Hoe zoekt en verwijdert u meerdere overeenkomsten tegelijk in Excel?

Bij het werken met grote datasets in Excel is het essentieel om op elk moment snel de benodigde informatie te vinden. Daarvoor gebruikt u de functie Zoeken en Vervangen, waarmee u specifieke waarden of opmaak kunt opsporen en markeren in het huidige werkblad of in de hele werkmap, zodat u de resultaten direct kunt verwijderen of vervangen. De ingebouwde zoekfunctie van Excel (Zoeken en Vervangen) laat u echter slechts één waarde tegelijk zoeken. In deze handleiding laat ik u zien hoe u meerdere verschillende waarden tegelijk kunt zoeken en verwijderen in Excel.

Meerdere overeenkomsten tegelijk zoeken en verwijderen met VBA

We hebben twee VBA-codes ontwikkeld om u te helpen meerdere verschillende waarden in een bereik of over meerdere werkbladen tegelijk te selecteren en direct te verwijderen. Volg de onderstaande stappen en voer de code uit die het beste aansluit bij uw behoeften.

1. Druk in uw Excel-bestand op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module. Kopieer daarna één van de volgende VBA-codes naar het Module-venster.

VBA-code 1: Meerdere overeenkomsten tegelijk zoeken en verwijderen in het Bereik selecteren

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

Opmerking: In het codefragment xArrFinStr = Array("sales", "[[PH_35]]", „@") in rij 13 moet u "sales", "9", „@" vervangen door de werkelijke waarde die u wilt zoeken en verwijderen. Zorg ervoor dat u elke waarde tussen dubbele aanhalingstekens plaatst en ze van elkaar scheidt met komma’s.

VBA-code 2: Meerdere overeenkomsten tegelijk zoeken en verwijderen in meerdere werkbladen

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. Druk op F5 om de VBA-code uit te voeren.Opmerking: Als u VBA-code 1 gebruikt, verschijnt er een dialoogvenster waarin u het bereik moet selecteren waarin waarden gezocht en verwijderd moeten worden. U kunt ook op een werkbladtabblad klikken om het hele werkblad te selecteren.

4. Het onderstaande dialoogvenster verschijnt met de melding dat de code de opgegeven overeenkomsten heeft verwijderd. Klik op OK om het dialoogvenster te sluiten.

5. De opgegeven waarden zijn tegelijkertijd verwijderd.

Meerdere overeenkomsten tegelijk zoeken en verwijderen met de functie Specifieke cellen selecteren

Kutools voor Excel biedt de functie Specifieke cellen selecteren om waarden te vinden die voldoen aan één of twee door u ingestelde voorwaarden. Lees hier hoe u snel meerdere waarden tegelijk kunt zoeken en verwijderen.

1. Klik op het tabblad Kutools, in de groep Bewerken, op Selecteren > Specifieke cellen selecteren.

2. In het pop-upvenster Specifieke cellen selecterendoet u het volgende:

• Klik in het vak Selecteer cellen binnen het bereikop de bereikselectieknop aan de rechterkant om het bereik op te geven waar u waarden wilt zoeken en verwijderen.Opmerking:Klik op het werkbladtabblad om het hele werkblad te doorzoeken.
• Selecteer in de sectie Selecteer type de optie Cel.
• Stel in de sectie Specificeer typemaximaal twee voorwaarden in:
  • Klik op de keuzelijstpijl aan de linkerkant om een relatie te selecteren die u nodig hebt, zoals Bevat, Gelijk aan, Minder dan, Begint met, enzovoort.
  • Voer de waarde in het bijbehorende veld in, afgestemd op uw behoeften.
  • Geef de relatie aan tussen de twee voorwaarden (indien aanwezig): En of Of.

3. Klik op Ok om de cellen te selecteren die voldoen aan de ingestelde voorwaarde(n). Er verschijnt een dialoogvenster met het aantal gevonden en geselecteerde cellen.

4. Klik op OK. Druk nu op de toets DELETE om de geselecteerde waarden tegelijk te verwijderen.

Demo: Meerdere overeenkomsten tegelijk zoeken en verwijderen in Excel

Gerelateerde artikelen

Beste Office-productiviteitshulpmiddelen

🤖	KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
	Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
	Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
	Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
	Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
	Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
	Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Meer details over Kutools voor Excel...Gratis downloaden...

---

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

• Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
• Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Meer details over Office Tab...Gratis downloaden...

---

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

• Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
• Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
• Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
• 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
• Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins

Meer details over Kutools for Office...Gratis downloaden...