In diesem Artikel erfahren Sie, wie Sie die Zeilen löschen, wenn in der ganzen Zeile keine Daten vorhanden sind.
Im Folgenden ist die Momentaufnahme der Daten, die wir haben:
Das Konzept hinter diesem Tutorial besteht darin, dass der VBA-Code diese Zeile löschen sollte, wenn im ausgewählten Bereich A1: E10 eine vollständige leere Zeile gefunden wird.
Wir müssen die folgenden Schritte ausführen:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie in der Gruppe Code die Option Visual Basic . aus
- Geben Sie den folgenden Code in das aktuelle Arbeitsblattmodul ein
Unter DeleteEntireRow()
Dim ich so lang
'Berechnung und Bildschirmaktualisierung ist deaktiviert, um das Makro zu beschleunigen
Mit Bewerbung
.Berechnung = xlCalculationManual
.ScreenUpdating = False
Für i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
Ende Wenn
Als nächstes
.Berechnung = xlBerechnungAutomatik
.ScreenUpdating = True
Ende mit
End Sub
- Lassen Sie uns zunächst die Daten hintereinander manuell löschen, um unseren Code zu testen.
- Nach dem Kopieren des Codes; Wählen Sie den Bereich A1:E10 und löschen Sie jede Zeile manuell
- Führen Sie nun das Makro mit der ALT + F8-Taste aus und wählen Sie DeleteEntireRow
- Die leere Zeile wurde gelöscht und alle darunter liegenden Zeilen nach oben verschoben.
Auf diese Weise können wir Zeilen mit vba in Microsoft Excel löschen.
Herunterladen-Löschen von Zeilen in VBA