Přejít k hlavnímu obsahu

Jak odstranit řádky neodpovídající kritériím na jiném listu?

Autor: Sun Naposledy změněno: 2014-06-26

Může být pro vás obtížné odstranit řádky, které neodpovídají kritériím na stejném listu, ale znáte nějaké způsoby, jak odstranit řádky, které neodpovídají kritériím na jiném listu, jak je znázorněno níže. Nyní mám dva triky, které vám pomohou rychle to vyřešit.

Odstraňte řádky neodpovídající kritériím na jiném listu pomocí VBA

Odstraňte řádky neodpovídající kritériím na jiném listu pomocí Kutools pro Excel

doc-delete-based-on-other-sheet-1 doc-delete-based-on-other-sheet-2 doktor-vpravo doc-delete-based-on-other-sheet-3
 Kritéria (v listu 2)     Před (list 1)          Po (list1)



šipka modrá pravá bublina Odstraňte řádky neodpovídající kritériím na jiném listu pomocí VBA

K dispozici je kód VBA, který vám pomůže odstranit řádky neodpovídající kritériím na jiném listu.

1. lis Alt + F11 pro zobrazení Microsoft Visual Basic pro aplikace okno.

2. V okně klikněte na Vložit > Modul pro zobrazení nového okna modulu, potom zkopírujte následující kód VBA do okna modulu.

VBA: Odstraňte řádky neodpovídající kritériím na jiném listu v aplikaci 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. cvaknutí Běh, je Kutools pro Excel Zobrazí se dialogové okno pro výběr rozsahu, který chcete odstranit řádky, které neodpovídají kritériím. Viz screenshot:

doc-delete-based-on-other-sheet-4

4. cvaknutí OKa objeví se další dialog pro výběr kritérií v jiném listu, viz screenshot:

doc-delete-based-on-other-sheet-5

5. Nyní jsou odstraněny všechny řádky, které neodpovídají kritériím v jiném listu.


šipka modrá pravá bublina Odstraňte řádky neodpovídající kritériím na jiném listu pomocí Kutools pro Excel

Pokud je pro vás kód VBA trochu obtížný, můžete vyzkoušet funkci Kutools pro Excel v oblasti porovnání rozsahů.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní

1. Vyberte list, ze kterého chcete odstranit řádky, které neodpovídají kritériím. A klikněte Kutools > Porovnat rozsahy. Viz snímek obrazovky:

doc-delete-based-on-other-sheet-6

2. V Porovnat rozsahy v dialogovém okně klikněte na tlačítko v Rozsah Ba poté můžete vybrat požadovaný rozsah kritérií. Viz screenshot:

doc-delete-based-on-other-sheet-7
doc-šipka
doc-delete-based-on-other-sheet-8

 

3. Pak klikněte na tlačítko OK, pak zpět na Porovnat rozsahy dialog, zkontrolujte Odlišná hodnota a Vyberte celé řádky. Viz snímek obrazovky:

doc-delete-based-on-other-sheet-9

4. cvaknutí Oka opustit Porovnat rozsahy dialog. Pak uvidíte, že jsou vybrány řádky hodnot, které se liší od kritérií.

doc-delete-based-on-other-sheet-10

5. Klikněte pravým tlačítkem a klikněte Vymazat z místní nabídky odstraníte řádky, které neodpovídají kritériím na jiném listu.

doc-delete-based-on-other-sheet-11

Kliknutím sem zobrazíte další informace o srovnávacích rozsazích programu Kutools pro Excel.


Relativní články:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Doesn't work with sheets that have multiple columns because it doesn't actually delete the row, just the cell.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations