VBA – Leere Zeilen löschen

Leere Zeilen löschen

Die naheliegendste Möglichkeit, leere Zeilen aus einem Datensatz zu entfernen, besteht darin, die Daten einfach zu sortieren. Dadurch werden die Leerzeilen an das Ende der Daten verschoben und „entfernt“. Aber was ist, wenn Sie die leeren Zeilen entfernen möchten, die Daten aber nicht sortiert werden sollen? Eine Möglichkeit dazu ist VBA oder Sie können leere Zeilen mit der Funktion ANZAHL2 und dem Löschen von gefilterten Zellen entfernen.

Das folgende Makro entfernt leere Zeilen ohne Sortierung (schalten Sie die Bildschirmaktualisierung aus, um schneller zu arbeiten).

Sub LeereZeileLoeschen()

Dim x As Long

With ActiveSheet

    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If WorksheetFunction.CountA(.Rows(x)) = 0 Then
            ActiveSheet.Rows(x).Delete
        End If
    Next

End With

End Sub