Hoe rijen die niet overeenkomen met criteria op een ander werkblad verwijderen?

Het is misschien niet moeilijk voor u om rijen te verwijderen die niet overeenkomen met de criteria op hetzelfde werkblad, maar kent u manieren om rijen die niet overeenkomen met criteria op een ander werkblad te verwijderen zoals hieronder wordt weergegeven? Nu heb ik twee trucs die u snel kunnen helpen dit probleem op te lossen.

Rijen die niet overeenkomen met criteria op een ander werkblad verwijderen met VBA

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

Criteria(In Sheet 2)	Voor(Sheet 1)		Na(Sheet1)

---

Rijen die niet overeenkomen met criteria op een ander werkblad verwijderen met VBA

Er is een VBA-code die u kan helpen bij het verwijderen van rijen die niet overeenkomen met criteria op een ander werkblad.

1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster 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 die niet overeenkomen met criteria op een ander werkblad in Excel verwijderen.

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 Uitvoeren, een KutoolsforExcel dialoogvenster verschijnt waarin u een bereik kunt selecteren waarvan u de rijen wilt verwijderen die niet overeenkomen met de criteria. Zie screenshot:

4. Klik op OK, en er verschijnt een ander dialoogvenster waarin u de criteria in een ander werkblad kunt selecteren, zie screenshot:

5. Nu zijn alle rijen die niet overeenkomen met de criteria in een ander werkblad verwijderd.

---

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

Als VBA-code een beetje moeilijk voor u is, kunt u proberen Kutools voor Excel’s Cellen vergelijken-functie uit te proberen.

Kutools voor Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking gedurende 30 dagen. Download het nu

1. Selecteer het werkblad waarvan u de rijen wilt verwijderen die niet overeenkomen met de criteria. En klik op Kutools > Bereik > Cellen vergelijken. Zie screenshot:

2. Klik in het Cellen vergelijken-dialoogvenster op de knop in Bereik B, en selecteer vervolgens het benodigde criteriabereik. Zie screenshot:

 

3. Klik vervolgens op OK, ga terug naar het Bereiken vergelijken-dialoogvenster, vink Verschillende waarden aan en selecteer hele rijen. Zie screenshot:

4. Klik op Ok, en sluit het Bereiken vergelijken-dialoogvenster. Dan ziet u dat de rijen met waarden die verschillen van de criteria geselecteerd zijn.

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

Klik hier voor meer informatie over Kutools voor Excel’s Bereiken vergelijken.

---

Gerelateerde artikelen:

• Rijen die geen bepaalde tekst bevatten in Excel verwijderen

---