Wie löscht man Zeilen mit fehlenden/leeren Werten in bestimmten Spalten in Excel?

In Excel kann der Umgang mit fehlenden oder leeren Werten für die Datenbereinigung und -analyse entscheidend sein. Dieser Leitfaden zeigt, wie Sie ganze Zeilen löschen können, wenn in bestimmten Spalten leere Zellen gefunden werden, indem Sie ein VBA-Skript verwenden.

Zeilen mit fehlenden/leeren Werten in bestimmten Spalten mit VBA-Code löschen

Zeilen mit fehlenden/leeren Werten in bestimmten Spalten mit VBA-Code löschen

Angenommen, Sie möchten Zeilen löschen, wenn in Spalte B oder D ein fehlender Wert vorhanden ist, wie im folgenden Screenshot gezeigt. Sie können den folgenden VBA-Code ausführen, um dies zu erreichen.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Zeilen mit fehlenden/leeren Werten in bestimmten Spalten löschen

Sub DeleteRows()
    Dim I As Integer
    Dim xCount As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xCount = xRg.Rows.Count
    For I = xCount To 1 Step -1
        If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
            xRg.Rows(I).EntireRow.Delete
        End If
    Next
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Dann erscheint ein Dialogfeld von Kutools für Excel, bitte wählen Sie den Spaltenbereich aus, den Sie überprüfen möchten, ob fehlende Werte vorhanden sind oder nicht, und klicken Sie dann auf die Schaltfläche OK.

Nachdem Sie auf die Schaltfläche OK geklickt haben, werden alle Zeilen mit fehlenden Werten in Spalte B oder D sofort gelöscht. Siehe Screenshot:

Hinweis: Sie können keine mehreren Bereiche gleichzeitig auswählen. Wenn in mehreren Spalten fehlende Werte vorhanden sind und Sie alle Zeilen löschen möchten, wiederholen Sie Schritt 3 für jede Spalte einzeln.

Verwandte Artikel:

• Wie löscht man Zeilen, wenn eine Zelle größer/kleiner als ein bestimmter Wert in Excel ist?
• Wie löscht man alle Zeilen außer der ersten Kopfzeile in Excel?
• Wie löscht man alle Zeilen unterhalb einer bestimmten Zeile oder aktiven Zelle in Excel?