In diesem Artikel erfahren Sie, wie Sie die Zeilen löschen, wenn keine Daten in der gesamten Zeile vorhanden sind.

Es folgt die Momentaufnahme der Daten, die wir haben:

image 1

Das Konzept hinter diesem Tutorial lautet: Wenn im ausgewählten Bereich A1: E10 eine vollständige leere Zeile gefunden wird, sollte der vba-Code diese Zeile löschen.

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

image 2

aus * Geben Sie den folgenden Code in das aktuelle Arbeitsblattmodul ein

Sub DeleteEntireRow ()

Dim i As Long

‚Berechnung und Aktualisierung werden deaktiviert, um das Makro zu beschleunigen

Mit Anwendung

.Calculation = xlCalculationManual

.ScreenUpdating = False

Für i = Selection.Rows.Count To 1 Step -1

Wenn WorksheetFunction.CountA (Selection.Rows (i)) = 0, dann

Selection.Rows (i) .EntireRow.Delete

End If

Weiter i

.Calculation = xlCalculationAutomatic

.ScreenUpdating = True

End With

End Sub

image 3

  • Lassen Sie uns zuerst die Daten in einer Reihe 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

image 4

  • Führen Sie nun das Makro mit der Taste ALT + F8 aus und wählen Sie DeleteEntireRow

image 5

  • Die leere Zeile wurde gelöscht und alle folgenden Zeilen werden nach oben verschoben.

Auf diese Weise können wir Zeilen mit vba in Microsoft Excel löschen.

Excel//wp-content/uploads/2015/06/Download-Delete-Rows-in-VBA1.xlsm[Download-Delete Rows in VBA]