Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako zbrisati vrstice, ki ne ustrezajo kriterijem na drugem listu?

Morda vam ni težko izbrisati vrstic, ki se ne ujemajo z merili na istem listu, a ali veste, kako lahko izbrišete vrstice, ki niso v skladu s kriteriji na drugem listu, kot je prikazano spodaj. Zdaj imam dva trika, ki vam lahko pomagata hitro rešiti.

Izbrišite vrstice, ki ne ustrezajo kriterijem na drugem listu z VBA

Izbrišite vrstice, ki ne ustrezajo kriterijem na drugem listu s programom Kutools for Excel

doc-delete-on-another-sheet-1 doc-delete-on-another-sheet-2 doc-desno doc-delete-on-another-sheet-3
Merila (v listu 2) Pred (list 1) Po (Sheet1)


puščica modra desno mehurček Izbrišite vrstice, ki ne ustrezajo kriterijem na drugem listu z VBA


Obstaja koda VBA, ki vam lahko pomaga izbrisati vrstice, ki ne ustrezajo kriterijem na drugem listu.

1. Pritisnite Alt + F11 za prikaz Microsoft Visual Basic za aplikacije okno.

2. V oknu kliknite Vstavi > Moduli da prikažete novo okno modula, nato pa v okno modula kopirajte naslednjo kodo VBA.

VBA: izbrišite vrstice, ki ne ustrezajo kriterijem na drugem listu v Excelu.

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 RunA KutoolsforExcel pogovorno okno se pojavi, da izberete obseg, v katerem želite izbrisati vrstice, ki ne ustrezajo kriterijem. Prikaz slike:

doc-delete-on-another-sheet-4

4. klik OK, in še eno pogovorno okno se prikaže za izbiro meril v drugem listu, si oglejte posnetek zaslona:

doc-delete-on-another-sheet-5

5. Zdaj se vse vrstice, ki ne ustrezajo merilom v drugem listu, odstranijo.


puščica modra desno mehurček Izbrišite vrstice, ki ne ustrezajo kriterijem na drugem listu s programom Kutools for Excel

Če je kodo VBA malo težko za vas, lahko poskusite na Kutools za Excelovo funkcijo primerjanja.

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 30 dneh. Get it now

1. Izberite list, za katerega želite izbrisati vrstice, ki ne ustrezajo kriterijem. In kliknite Kutools > Primerjaj razdalje. Prikaz slike:

doc-delete-on-another-sheet-6

2. V Ljubljani Primerjaj razdalje dialog, kliknite gumb v Območje B, nato pa lahko izberete obseg meril, ki ga potrebujete. Prikaz slike:

doc-delete-on-another-sheet-7
doc-arrow
doc-delete-on-another-sheet-8

3. Nato kliknite OK, nato pa nazaj na Primerjaj razdalje pogovor, preveri Različna vrednost in Izberite vse vrste vrstic. Prikaz slike:

doc-delete-on-another-sheet-9

4. klik Ok, in zapustite Primerjaj razdalje dialog. Nato se prikažejo vrstice vrednosti, ki se razlikujejo od meril.

doc-delete-on-another-sheet-10

5. Z desno miškino tipko kliknite Brisanje iz kontekstnega menija, da izbrišete vrstice, ki se ne ujemajo z merili na drugem listu.

doc-delete-on-another-sheet-11

Kliknite tukaj za več informacij o Kutools za Excelove primerjalne stopnje.


Relativni členi:



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    TonyT · 3 years ago
    Doesn't work with sheets that have multiple columns because it doesn't actually delete the row, just the cell.