1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

Hvor å fjerne rader som ikke samsvarer kriteriene på et annet ark?

There er en VBA-kode kan hjelpe deg med å slette rader som ikke samsvarer kriteriene på et annet ark.
1. Trykk Alt + F11 for å vise Microsoft Visual Basic for Applications vinduet.
2. I vinduet klikker du Sett inn > Modul for å vise en ny modul vindu, og deretter kopiere følgende VBA-kode i modulvinduet
VBA. Slett rader som ikke samsvarer kriteriene på et annet ark i Excel
Sub DeleteRow () 'Updateby20140618Dim RNG Som RangeDim Rng1 As Range. , Rng2 Som RangeDim arr1 Som VariantDim arr2 Som VariantDim dic2 Som VariantDim OutArr Som VariantxTitleId = "KutoolsforExcel" Set Rng1 = Application.SelectionSet Rng1 = Application.InputBox ("Range1:", xTitleId, Rng1.Address, Type: = 8) Set Rng2 = Application.InputBox ("Range2:", xTitleId, Type: = 8) Sett Rng1 = Rng1.Columns (1) Sett Rng2 = Rng2.Columns (1) Sett dic2 = Create ("Scripting.Dictionary") arr1 = Rng1. Valuearr2 = Rng2.ValueFor i = 1 Til UBound (arr2, 1) xKey = arr2 (i, 1) dic2 (xKey) = "" NextRng1.ClearContentsOutArr = Rng1.ValuexIndex = 1 For i = 1 Til UBound (arr1, 1) xKey = arr1 (i, 1) Hvis dic2.Exists (xKey) Så OutArr (xIndex, 1) = xKey xIndex = xIndex + 1 End IfNextRng1.Value = OutArrEnd Sub 3. Klikk Run, dukker opp en dialogboks KutoolsforExcel for deg å velge en spenner du vil slette radene som ikke er samsvarende kriterier. Se skjermbilde:
4. Klikk OK, og en annen dialog spretter ut for å velge kriterier i et annet ark, se skjermbilde:
5. Nå er alle radene ikke samsvarer med kriteriene i et annet ark er fjernet.

Slett rader ikke samsvarende kriteriene på et annet ark med Kutools for Excel
Hvis VBA-kode er litt vanskelig for deg, kan du ha en prøve på Kutools for Excel sammenlign Ranges har.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Få den nå
en. Velg arket som du ønsker å slette radene som ikke er samsvarende kriterier. Og klikk Kutools > Sammenligne Ranges. Se skjermbilde:
to. I sammenligning dialog Ranges, klikker du knappen i Range B, og deretter kan du velge kriteriene spenner du trenger. Se skjermbilde:
tre. Klikk deretter på OK, deretter tilbake til sammenligning dialog Ranges, sjekk annen verdi og velg hele rader. Se skjermbilde:
4. Klikk OK, og gå ut av dialogen sammenlign Ranges. Da ser du de verdi rader som er forskjellige fra de kriteriene som er valgt.
5. Høyreklikk for å klikke Slett fra hurtigmenyen for å slette radene som ikke samsvarer med kriteriene på et annet ark
Klikk her for mer informasjon om Kutools for Excel sammenlign Ranges

Relative artikler..:

Slett rader som ikke inneholder bestemt tekst i Excel