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

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

Kritéria (v listu 2)	Před (list 1)		Po (list1)

---

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:

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

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

---

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:

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:

 

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:

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

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.

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

---

Relativní články:

• Odstraňte řádky neobsahující určitý text v aplikaci Excel