Hvordan slettes rækker, der ikke matcher kriterier på et andet ark?
Det er måske ikke svært for dig at slette rækker, der ikke matcher kriterierne på det samme ark, men kender du nogen måder at slette de rækker, der ikke matcher kriterierne på et andet ark, som vist nedenfor. Nu har jeg to tricks, der kan hjælpe dig med hurtigt at løse det.
Slet rækker, der ikke matcher kriterier på et andet ark med VBA
Slet rækker, der ikke matcher kriterier på et andet ark med Kutools til Excel
 |
 |
 |
 |
| Kriterier (i ark 2) | Før (ark 1) | Efter (Ark1) |
Slet rækker, der ikke matcher kriterier på et andet ark med VBA
Der er en VBA-kode, der kan hjælpe dig med at slette rækker, der ikke matcher kriterierne på et andet ark.
1. Trykke Alt + F11 for at vise Microsoft Visual Basic til applikationer vindue.
2. Klik på i vinduet indsatte > Moduler for at vise et nyt modulvindue, kopier derefter følgende VBA-kode til modulvinduet.
VBA: Slet rækker, der ikke matcher kriterier på et andet ark i 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
4. klik OK, og en anden dialog vises for at vælge kriterierne i et andet ark, se skærmbillede:
5. Nu fjernes alle rækker, der ikke matcher kriterierne i et andet ark.
Slet rækker, der ikke matcher kriterier på et andet ark med Kutools til Excel
Hvis VBA-kode er lidt vanskelig for dig, kan du prøve Kutools for Excel's Sammenlign områder-funktion.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu
1. Vælg det ark, du vil slette de rækker, der ikke matcher kriterierne. Og klik Kutools > Sammenlign områder. Se skærmbillede:
2. i Sammenlign områder Klik på knappen i dialogboksen Område B, og derefter kan du vælge det ønskede kriterieområde. Se skærmbillede:
 |
 |
 |
3. Klik derefter på OK, derefter tilbage til Sammenlign områder dialog, tjek Forskellig værdi , Vælg hele rækker. Se skærmbillede:
4. klik Okog afslut Sammenlign områder dialog. Derefter ser du de værdirækker, der adskiller sig fra kriterierne, er valgt.
5. Højreklik for at klikke Slette fra kontekstmenuen for at slette de rækker, der ikke matcher kriterierne på et andet ark.
Klik her for mere information om Kutools for Excel's Sammenlign områder.
Relative artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
