Zeilen automatisch in Excel berechnen (oder löschen), wenn sich die erste Spalte ändert

Question

Ich habe eine große Tabelle, in der die ersten Spalten X "Eingabespalte" ist und der Bereich sich ändert.

Y - Es gibt mehr Formeln und Funktionen (Vlookup) und die erste Spalte X ist ein Nachschlagewert, und dann werden andere Spalten aus anderen Blättern berechnet.

| A | B | C | D | E 
1 | X | Y | Y | Y | Y 
2 | X | Y | Y | Y | Y 
3 | X | Y | Y | Y | Y 
4 | X | Y | Y | Y | Y 

Ich bin Einfügen (und Löschen) mehr X-Werte (Ist-Daten) und dann verwende ich „Doppelklick“ für alle anderen Spalten Y berechnet werden, aber es ist nicht gut, weil die X-Bereich ist nicht das Gleiche . Ich habe versucht, es in Tabelle "Ctrl-T" zu konvertieren, aber es funktioniert nicht sehr gut für mich. Vielleicht benutze ich es nicht richtig.

Problem:

Wenn ich eine neue X-Spalte einfügen, ich brauche andere Y-Spalten automatisch berechnet werden, oder wenn ich einige X Zeilen löschen, andere Y sollte ebenfalls gelöscht. Jetzt bekomme ich so etwas wie dieses:

| A | B | C | D | E 
1 | X | Y | Y | Y | Y 
2 | X | Y | Y | Y | Y 
3 | | N/A | N/A | N/A | N/A 
4 | | N/A | N/A | N/A | N/A 

oder:

| A | B | C | D | E 
1 | X | Y | Y | Y | Y 
2 | X | Y | Y | Y | Y 
3 | X |  |  |  | 

Was ich brauche:

Wenn ich X-Wert I automatisch Y-Werte verschwinden müssen entfernen:

| A | B | C | D | E 
1 | X | Y | Y | Y | Y 
2 | X | Y | Y | Y | Y 

Wenn ich X-Wert addiere, muss ich automatisch Y-Werte berechnen:

| A | B | C | D | E 
1 | X | Y | Y | Y | Y 
2 | X | Y | Y | Y | Y 
3 | X | Y | Y | Y | Y 

Hoffe, es ist klar, danke!

Answer 1

Für Y Spalten können Sie "IF" FORMEL

=if(A1>0,*Y COLUMN FORMULA*,"") 

Answer 2

versuchen zu ändern Formel

=iferror(*Y formula,"") 

hinzufügen oder wenn es immer noch langsam, und wenn Sie nur X Spalten

Ändern Sie können den folgenden Code verwenden:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 1 And Target.Count = 1 Then 'CHECK IF THERE IS ANY CHANGE ON X COLUMN 
     If Target.Value = Empty Then 'CHECK IF X COLUMN HAS BEEN DELETED 
      Rows(Target.Row).Delete 'IF X COLUMN IS DELETED, DELETS WHOLE ROW 
     Else 
      Cells(Target.Row - 1, 2).Resize(1, 4).Copy Cells(Target.Row, 2).Resize(1, 4) 'IF X COLUMN IS ENTERED OR MODIFIED COPIES ABOVE Y COLUMN FORMULAS 
     End If 
    End If 
End Sub