Wie findet und löscht man mehrere Übereinstimmungen gleichzeitig in Excel?

Beim Arbeiten mit großen Datenmengen in Excel ist es entscheidend, schnell die benötigten Informationen zu finden. Hierbei hilft die Funktion Suchen und Ersetzen, mit der Sie bestimmte Werte oder Formate im aktuellen Arbeitsblatt oder in der gesamten Arbeitsmappe finden und hervorheben können, um anschließend die gewünschten Aktionen durchzuführen, wie z.B. Löschen oder Ersetzen. Allerdings können Sie mit der Excel-Funktion Suchen und Ersetzen nur einen Wert auf einmal finden. In diesem Tutorial zeige ich Ihnen eine schnelle Methode, um mehrere verschiedene Werte zu finden und sie gleichzeitig in Excel zu löschen.

Finden und Löschen mehrerer Übereinstimmungen gleichzeitig mit VBA

Wir haben zwei VBA-Codes erstellt, um Ihnen zu helfen, mehrere verschiedene Werte im ausgewählten Bereich oder über mehrere Arbeitsblätter hinweg zu finden und sofort zu löschen. Bitte folgen Sie den untenstehenden Schritten und führen Sie den Code entsprechend Ihren Bedürfnissen aus.

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

2. Klicken Sie auf Einfügen > Modul. Kopieren Sie dann einen der folgenden VBA-Codes in das Modul Fenster.

VBA-Code1: Finden und Löschen mehrerer Übereinstimmungen im ausgewählten Bereich auf einmal

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

Hinweis: Im Codeausschnitt xArrFinStr = Array("sales", "9", "@") in der13. Zeile sollten Sie "sales", "9", "@" durch die tatsächlichen Werte ersetzen, die Sie finden und löschen möchten. Denken Sie daran, jeden Wert in Anführungszeichen zu setzen und sie mit Kommas zu trennen.

VBA-Code2: Finden und Löschen mehrerer Übereinstimmungen über mehrere Blätter hinweg auf einmal

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

3. Drücken Sie F5, um den VBA-Code auszuführen. Hinweis: Wenn Sie den VBA-Code1 verwenden, erscheint ein Dialogfeld, das Sie auffordert, den Bereich auszuwählen, in dem die Werte gefunden und gelöscht werden sollen. Sie können auch auf einen Blatt-Tab klicken, um das gesamte Blatt auszuwählen.

4. Das unten gezeigte Dialogfeld erscheint und teilt Ihnen mit, dass der Code die angegebenen Übereinstimmungen gelöscht hat. Klicken Sie auf OK um das Dialogfeld zu schließen.

5. Die angegebenen Werte wurden auf einmal gelöscht.

Finden und Löschen mehrerer Übereinstimmungen gleichzeitig mit der Funktion Bestimmte Zellen auswählen

Kutools für Excel bietet die Funktion Bestimmte Zellen auswählen, um Werte zu finden, die eine oder zwei von Ihnen festgelegte Bedingungen erfüllen. Lesen Sie weiter, um herauszufinden, wie Sie schnell mehrere Werte auf einmal finden und löschen können.

1. Gehen Sie auf die Kutools Registerkarte, in der Bearbeitung Gruppe, klicken Sie auf Auswählen > Bestimmte Zellen auswählen.

2. Im aufpoppenden Dialogfeld Bestimmte Zellen auswählen, gehen Sie wie folgt vor: Dialogfeld, gehen Sie wie folgt vor:

• Im Feld Zellen im Bereich auswählen klicken Sie auf die Bereichsauswahl-Schaltfläche rechts, um den Bereich anzugeben, aus dem die Werte gefunden und gelöscht werden sollen. Hinweis: Um das gesamte Blatt zu durchsuchen, klicken Sie auf den Blatt-Tab.
• Im Abschnitt Auswahltyp wählen Sie die Option Zelle.
• Im Abschnitt Typ angeben, setzen Sie maximal zwei Bedingungen: Abschnitt, setzen Sie maximal zwei Bedingungen:
  • Klicken Sie auf den Dropdown-Pfeil auf der linken Seite, um eine Beziehung auszuwählen, die Sie benötigen, wie z.B. Enthält, Gleich, Kleiner als, Beginnt mit, usw.
  • Geben Sie den Wert in das entsprechende Feld ein, je nach Ihren Bedürfnissen.
  • Geben Sie die Beziehung zwischen den beiden Bedingungen an (falls vorhanden): Und oder Oder.

3. Klicken Sie auf Ok um die Zellen auszuwählen, die die von Ihnen festgelegten Bedingungen erfüllen. Ein Dialogfeld erscheint und teilt Ihnen mit, wie viele Zellen gefunden und ausgewählt wurden.

4. Klicken Sie auf OK. Drücken Sie nun die ENTF Taste, um die ausgewählten Werte auf einmal zu löschen.

Demo: Finden und Löschen mehrerer Übereinstimmungen gleichzeitig in Excel

Verwandte Artikel