In Excel können Sie die leistungsstarke Funktion zum Suchen und Ersetzen anwenden, um Zeilen basierend auf einem bestimmten Zellenwert einfach zu entfernen. Bitte gehen Sie wie folgt vor:

1. Wählen Sie den Bereich aus, in dem Sie Zeilen basierend auf einem bestimmten Zellenwert entfernen möchten, und öffnen Sie das Dialogfeld Suchen und Ersetzen, indem Sie auf drücken Ctrl + F Schlüssel gleichzeitig.

2. Geben Sie im Dialogfeld Suchen und Ersetzen den bestimmten Zellenwert ein (in unserem Fall geben wir den ein So) in die Find what Klicken Sie auf das Feld Find All Taste. Siehe den ersten Screenshot unten:

3. Wählen Sie alle Suchergebnisse unten im Dialogfeld Suchen und Ersetzen aus und schließen Sie dieses Dialogfeld. (Hinweis: Sie können eines der Suchergebnisse auswählen und dann Ctrl + A Tasten, um alle gefundenen Ergebnisse auszuwählen. Siehe den zweiten Screenshot oben.)
Und dann können Sie sehen, dass alle Zellen ausgewählt sind, die den bestimmten Wert enthalten.

4. Klicken Sie mit der rechten Maustaste auf ausgewählte Zellen und wählen Sie die aus Delete aus dem Kontextmenü. Und dann überprüfen Sie die Entire row Option im daraufhin angezeigten Dialogfeld Löschen und klicken Sie auf OK Taste. Jetzt sehen Sie, dass alle Zellen, die den bestimmten Wert enthalten, entfernt werden. Siehe Screenshots unten:

Und dann wurden bereits ganze Zeilen basierend auf dem bestimmten Wert gelöscht.

Mit dem folgenden VBA-Code können Sie die Zeilen mit einem bestimmten Zellenwert schnell löschen. Führen Sie dazu die folgenden Schritte aus:

1. Drücken Sie die Alt + F11 Tasten gleichzeitig zu öffnen Microsoft Visual Basic for applications Fenster,

2. Klicken Sie Insert > Moduleund geben Sie den folgenden Code in das Modul ein:

VBA: Entfernen Sie ganze Zeilen basierend auf dem Zellenwert

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Klicken Sie dann auf Run Schaltfläche, um den Code auszuführen.

4. Wählen Sie im Popup-Dialogfeld den Bereich aus, in dem Sie Zeilen basierend auf dem bestimmten Wert entfernen möchten, und klicken Sie auf OK .

5. Geben Sie in einem anderen Dialogfeld den bestimmten Wert ein, anhand dessen Sie Zeilen entfernen möchten, und klicken Sie auf OK Taste. Siehe Screenshot:

Und dann sehen Sie, dass ganze Zeilen basierend auf dem angegebenen Wert bereits gelöscht wurden.

Wenn Sie installiert haben Kutools for Excel, seine Select Specific Cells Mit dieser Funktion können Sie die Zeilen mit einem bestimmten Wert schnell löschen. Bitte gehen Sie wie folgt vor:

1. Wählen Sie den Bereich aus, in dem Zeilen basierend auf dem bestimmten Wert entfernt werden sollen, und klicken Sie auf Kutools > Select > Select Specific Cells. Siehe Screenshot:

2. Aktivieren Sie im sich öffnenden Dialogfeld Angegebene Zellen auswählen die Option Entire row Option auswählen Contains von Specific type Dropdown-Liste, geben Sie den angegebenen Wert in das rechte Feld ein und klicken Sie auf Ok Schaltfläche (siehe obigen Screenshot).
Nach dem Anwenden dieser Funktion wird ein Dialogfeld angezeigt, in dem angezeigt wird, wie viele Zellen anhand der angegebenen Kriterien gefunden wurden. Bitte klicken Sie auf die OK Schaltfläche, um es zu schließen.

3. Nun werden ganze Zeilen mit dem bestimmten Wert ausgewählt. Bitte klicken Sie mit der rechten Maustaste auf die ausgewählten Zeilen und klicken Sie auf Delete aus dem Kontextmenü. Siehe Screenshot unten:

Hinweis: Diese Select Specific Cells Die Funktion unterstützt das Löschen von Zeilen um einen oder zwei bestimmte Werte. Um Zeilen basierend auf zwei angegebenen Werten zu löschen, geben Sie bitte einen anderen Wert in der an Specific type Abschnitt des Dialogfelds "Bestimmte Zellen auswählen" (siehe Abbildung):

In einigen Fällen müssen Sie möglicherweise Zeilen basierend auf mehreren Zellenwerten aus einer anderen Spalte / Liste in Excel entfernen. Hier werde ich vorstellen Kutools for Excel's Select Same & Different Cells Funktion, um es schnell und einfach zu lösen.

1. Klicken Sie Kutools > Select > Select Same & Different Cells um das Dialogfeld Gleiche und unterschiedliche Zellen auswählen zu öffnen.

2. In der Eröffnung Select Same & Different Cells Im Dialogfeld gehen Sie wie folgt vor (siehe Screenshot):

(1) In der Find values in Wählen Sie im Feld die Spalte aus, in der Sie die bestimmten Werte finden.
(2) In der According to Wählen Sie im Feld die Spalte / Liste mit mehreren Werten aus, auf deren Grundlage Sie Zeilen löschen möchten.
(3) In der Based on Abschnitt überprüfen Sie bitte die Each row Option;
(4) In der Find Abschnitt überprüfen Sie bitte die Same Values Option;
(5) Überprüfen Sie die Select entire rows Option am unteren Rand des sich öffnenden Dialogfelds.
Hinweis: Wenn zwei angegebene Spalten denselben Header enthalten, überprüfen Sie bitte die My data has headers .

3. Drücke den Ok Schaltfläche, um dieses Dienstprogramm anzuwenden. Anschließend wird ein Dialogfeld angezeigt, in dem angezeigt wird, wie viele Zeilen ausgewählt wurden. Klicken Sie einfach auf OK Schaltfläche, um es zu schließen.

Und dann wurden alle Zeilen ausgewählt, die Werte in der angegebenen Liste enthalten.

4. Klicken Sie Home > Delete > Delete Sheet Rows um alle ausgewählten Zeilen zu löschen.