VBA · Excel

Leere Excel-Zeilen im benutzten Bereich entfernen

Entfernt vollständig leere Zeilen im UsedRange von unten nach oben.

VBA

Sub LeereZeilenEntfernen()
    Dim i As Long
    With ActiveSheet.UsedRange
        For i = .Rows.Count To 1 Step -1
            If Application.WorksheetFunction.CountA(.Rows(i)) = 0 Then .Rows(i).EntireRow.Delete
        Next i
    End With
End Sub

Hinweis: Vorher eine Sicherung der Arbeitsmappe erstellen.

VBAExcelZeilenBereinigung

← Zur Codebibliothek Unterstützung anfragen