Hoe verwijder ik rijen die niet voldoen aan de criteria op een ander blad?
Het is misschien niet moeilijk voor u om rijen te verwijderen die niet voldoen aan de criteria op hetzelfde blad, maar kent u manieren om de rijen te verwijderen die niet overeenkomen met de criteria op een ander blad, zoals hieronder getoond. Nu heb ik twee trucs waarmee je het snel kunt oplossen.
Verwijder rijen die niet overeenkomen met criteria op een ander blad met VBA
Verwijder rijen die niet overeenkomen met de criteria op een ander blad met Kutools voor Excel
Criteria (op blad 2) | Voor (blad 1) | Na (Blad1) |
Verwijder rijen die niet overeenkomen met criteria op een ander blad met VBA
Er is een VBA-code die u kan helpen rijen te verwijderen die niet voldoen aan de criteria op een ander blad.
1. druk op Alt + F11 om de Microsoft Visual Basic voor toepassingen venster.
2. Klik in het venster op Invoegen > Module om een nieuw modulevenster weer te geven en kopieer vervolgens de volgende VBA-code naar het modulevenster.
VBA: verwijder rijen die niet voldoen aan de criteria op een ander blad 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. klikken lopen, een KutoolsvoorExcel Er verschijnt een dialoogvenster waarin u een bereik kunt selecteren waarvan u de rijen wilt verwijderen die niet overeenkomen met de criteria. Zie screenshot:
4. klikken OK, en een ander dialoogvenster verschijnt om de criteria in een ander blad te selecteren, zie screenshot:
5. Nu worden alle rijen die niet voldoen aan de criteria in een ander blad verwijderd.
Verwijder rijen die niet overeenkomen met de criteria op een ander blad met Kutools voor Excel
Als VBA-code een beetje moeilijk voor je is, kun je het proberen Kutools voor Excel's Vergelijk bereiken functie.
Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now
1. Selecteer het blad waarvan u de rijen wilt verwijderen die niet voldoen aan de criteria. En klik Kutools > Vergelijk Ranges. Zie screenshot:
2. In de Vergelijk Ranges dialoogvenster, klikt u op de knop in het Bereik B, en vervolgens kunt u het criteriumbereik selecteren dat u nodig heeft. Zie screenshot:
3. Dan klikken OK, dan terug naar de Vergelijk Ranges dialoogvenster, vink aan Verschillende waarde en Selecteer hele rijen. Zie screenshot:
4. klikken Oken sluit het Vergelijk Ranges dialoog. Vervolgens zie je dat de waarderijen die verschillen van de criteria zijn geselecteerd.
5. Klik met de rechtermuisknop om te klikken Verwijder vanuit het contextmenu om de rijen te verwijderen die niet voldoen aan de criteria op een ander blad.
Klik hier voor meer informatie over Kutools for Excel's Compare Ranges.
Relatieve artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!