Wie lösche ich Zeilen mit fehlenden / leeren Werten in bestimmten Spalten in Excel?

In einigen Fällen müssen Sie möglicherweise die gesamten Zeilen mit fehlendem Wert oder leerer Zelle in einem Zellenbereich in Excel löschen. Dieser Artikel zeigt Ihnen, wie Sie mit diesem Problem umgehen können.

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

---

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

Angenommen, Sie möchten Zeilen löschen, wenn in Spalte B und D ein fehlender Wert vorhanden ist (siehe Abbildung unten). Sie können den folgenden VBA-Code ausführen, um dies zu erreichen.

1. Drücken Sie Andere + F11 öffnen Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

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

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 F5 Schlüssel zum Ausführen des Codes. Dann ein Kutools for Excel Das Dialogfeld wird angezeigt. Wählen Sie den Spaltenbereich aus, in dem überprüft werden soll, ob ein fehlender Wert vorhanden ist, und klicken Sie dann auf OK .

Nach einem Klick auf die OK Mit der Schaltfläche können Sie sehen, dass alle Zeilen mit fehlendem Wert in Spalte B und D sofort gelöscht werden. Siehe Screenshot:

Hinweis: Sie können nicht mehrere Bereiche gleichzeitig auswählen. Wenn in mehreren Spalten ein fehlender Wert vorhanden ist und Sie alle Zeilen löschen möchten, können Sie den obigen Schritt 3 von einer Spalte zur nächsten wiederholen.

---

---

In Verbindung stehende Artikel:

• Wie lösche ich Zeilen, wenn die Zelle in Excel größer / kleiner als ein bestimmter Wert ist?
• Wie lösche ich alle Zeilen außer der ersten Kopfzeile in Excel?
• Wie lösche ich alle Zeilen unter einer bestimmten Zeile oder aktiven Zelle in Excel?