Hoe verwijder je rijen die niet voldoen aan criteria op een ander werkblad?

Het is voor u waarschijnlijk niet moeilijk om rijen te verwijderen die niet voldoen aan de criteria op hetzelfde werkblad, maar weet u ook hoe u rijen kunt verwijderen die niet voldoen aan criteria op een ander werkblad, zoals hieronder wordt weergegeven? Ik deel nu twee handige trucs die u snel kunnen helpen dit op te lossen.

Rijen verwijderen die niet voldoen aan criteria op een ander werkblad met VBA

Rijen verwijderen die niet voldoen aan criteria op een ander werkblad met Kutools voor Excel

Criteria (in werkblad 2)	Voor (werkblad 1)		Na (Werkblad1)

---

Rijen verwijderen die niet voldoen aan criteria op een ander werkblad met VBA

Er is een VBA-code beschikbaar die u helpt rijen te verwijderen die niet voldoen aan de criteria op een ander werkblad.

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications weer te geven.

2. Klik in het venster op Invoegen > Module om een nieuw modulevenster te openen en kopieer vervolgens de volgende VBA-code naar het modulevenster.

VBA: Rijen verwijderen die niet voldoen aan de criteria op een ander werkblad in Excel.

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3. Klik op Uitvoeren, een KutoolsforExcelEr verschijnt een dialoogvenster waarin u een bereik kunt selecteren om rijen te verwijderen die niet aan de criteria voldoen. Zie schermafbeelding:

4. Klik op OK, waarna een nieuw dialoogvenster verschijnt waarin u de criteria op een ander werkblad kunt selecteren. Zie schermafbeelding:

5. Nu zijn alle rijen die niet voldoen aan de criteria naar een ander werkblad verwijderd.

---

Rijen verwijderen die niet voldoen aan criteria op een ander werkblad met Kutools voor Excel

Als VBA-code u te ingewikkeld lijkt, kunt u de functie ‘Bereiken vergelijken’ van Kutools voor Excel eenvoudig uitproberen.

Kutools voor Excel bevat meer dan 300 handige Excel-hulpmiddelen. Probeer het gratis en zonder beperkingen gedurende 30 dagen.Download nu

1. Selecteer het werkblad waarvan u de rijen wilt verwijderen die niet voldoen aan de criteria. Klik vervolgens op Kutools > Bereik > Cellen vergelijken. Zie schermafbeelding:

2. In het dialoogvenster Cellen vergelijken klikt u op de knop in Bereik B en selecteert u vervolgens het gewenste criteriabereik. Zie schermafbeelding:

 

3. Klik daarna op OK, ga terug naar het dialoogvenster Bereiken vergelijken en vink Afwijkende waarde en Selecteer Gehele Rij aan. Zie schermafbeelding:

4. Klik op OK en sluit het dialoogvenster Bereiken vergelijken. U ziet nu dat de rijen met waarden die afwijken van de criteria zijn geselecteerd.

5. Klik met de rechtermuisknop en kies Verwijderen in het contextmenu om de rijen te verwijderen die niet voldoen aan de criteria op een ander werkblad.

Klik hier voor meer informatie over de functie ‘Bereiken vergelijken’ van Kutools voor Excel.

---

Gerelateerde artikelen:

• Rijen verwijderen die bepaalde tekst niet bevatten in Excel

---