Jak usunąć wiersze niespełniające kryteriów na innym arkuszu?

Usunięcie wierszy, które nie pasują do kryteriów na tym samym arkuszu, może nie być trudne, ale czy znasz sposoby usunięcia wierszy niespełniających kryteriów z innego arkusza, jak pokazano poniżej. Teraz mam dwie sztuczki, które pomogą ci szybko go rozwiązać.

Usuń wiersze niespełniające kryteriów na innym arkuszu z VBA

Usuń wiersze niespełniające kryteriów na innym arkuszu za pomocą Kutools for Excel

Kryteria (w arkuszu 2)	Przed (arkusz 1)		Po (Arkusz1)

---

Usuń wiersze niespełniające kryteriów na innym arkuszu z VBA

Istnieje kod VBA, który może pomóc w usunięciu wierszy niespełniających kryteriów na innym arkuszu.

1. naciśnij Alt + F11 wyświetlić Microsoft Visual Basic for Applications okno.

2. W oknie kliknij wstawka > Moduł aby wyświetlić nowe okno modułu, a następnie skopiuj następujący kod VBA do okna modułu.

VBA: Usuń wiersze niespełniające kryteriów na innym arkuszu w programie 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. kliknij run, A Kutools dla programu Excel pojawi się okno dialogowe, w którym możesz wybrać zakres, z którego chcesz usunąć wiersze, które nie spełniają kryteriów. Zobacz zrzut ekranu:

4. kliknij OKi pojawi się kolejne okno dialogowe do wyboru kryteriów w innym arkuszu, patrz zrzut ekranu:

5. Teraz wszystkie wiersze nie spełniające kryteriów w innym arkuszu zostaną usunięte.

---

Usuń wiersze niespełniające kryteriów na innym arkuszu za pomocą Kutools for Excel

Jeśli kod VBA jest dla Ciebie trochę trudny, możesz wypróbować funkcję Kutools dla Excela Porównaj zakresy.

Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz

1. Wybierz arkusz, z którego chcesz usunąć wiersze, które nie spełniają kryteriów. I kliknij Kutools > Porównaj zakresy. Zobacz zrzut ekranu:

2. w Porównaj zakresy kliknij przycisk w Zakres B, a następnie możesz wybrać potrzebny zakres kryteriów. Zobacz zrzut ekranu:

 

3. Następnie kliknij OK, a następnie wróć do Porównaj zakresy okno dialogowe, sprawdź Inna wartość i Wybierz całe wiersze. Zobacz zrzut ekranu:

4. kliknij Oki zamknij Porównaj zakresy dialog. Następnie zobaczysz wiersze wartości, które różnią się od kryteriów.

5. Kliknij prawym przyciskiem myszy, aby kliknąć Usuń z menu kontekstowego, aby usunąć wiersze, które nie spełniają kryteriów na innym arkuszu.

Kliknij tutaj, aby uzyskać więcej informacji na temat Kutools dla Excel's Porównaj zakresy.

---

Względne artykuły:

• Usuń wiersze niezawierające określonego tekstu w programie Excel