So löschen Sie die gesamte Zeile, wenn nur die letzte Zelle Daten enthält - Excel, VBA, Excel-VBA

Ich bin neu in VBA Excel Makro Programmierung undDerzeit wird ein Code geschrieben, um die gesamte Zeile zu löschen, wenn nur die letzte Zelle Daten enthält. Zum Beispiel, wenn die Zellen A1, B1, C1, D1, E1 leer sind und H1 Daten enthält, die die gesamte Zeile löschen sollen. Habe es mit der countA-Funktion versucht, aber gescheitert. Freundlich helfen

Antworten:

Wenn "H1" immer Ihre letzte Zelle ist, versuchen Sie Folgendes:

If Range("H1").Value = "" then
Range("H1").EntireRow.Delete
End if

Wenn Sie es mit einer Schleife durchgehen:

If Range("H" & row & "").Value = "" then
Range("H" & row & "").EntireRow.Delete
End if