So löschen Sie Zeilen basierend auf leeren Zellenwert in VBA

Question

Ich versuche, ganze Zeilen basierend darauf, ob der Zellenwert in der Spalte D NULL ist oder nicht, zu löschen. Mein bisheriger Code ist:

Sub DeleteNULL() 

Dim i As Long 

For i = 2 To 119713 
     If IsEmpty(Range("Di")) = True Then 
      Rows([i]).EntireRow.Delete 

     Else 
      If IsEmpty(Range("Di")) = False Then 
      Next i 

     End If 


End Sub 

Ich bekomme immer Kompilierfehler, entweder ohne Else oder Next ohne For, wie soll ich das beheben?

Vielen Dank im Voraus.

Answer 1

Ein paar Dinge:

1. Platzierung einer Menge Syntax ist ausgeschaltet.
2. Beim Hinzufügen oder Löschen von Zeilen müssen Sie basierend auf der Verarbeitung dieser Ereignisse durch Excel eine Schleife zurückführen.

Siehe Code unten:

Sub DeleteNULL() 

    Dim i As Long 

    For i = 119713 To 2 Step -1 
     If IsEmpty(Range("D" & i)) Then Rows([i]).EntireRow.Delete 
    Next i 

End Sub