Wie lösche ich Zeilen, die nicht den Kriterien eines anderen Blattes entsprechen?

Es ist möglicherweise nicht schwierig für Sie, Zeilen zu löschen, die nicht den Kriterien auf demselben Blatt entsprechen. Kennen Sie jedoch Möglichkeiten, die Zeilen zu löschen, die nicht mit den Kriterien auf einem anderen Blatt übereinstimmen, wie unten gezeigt? Jetzt habe ich zwei Tricks, mit denen Sie es schnell lösen können.

Löschen Sie Zeilen, die nicht den Kriterien auf einem anderen Blatt entsprechen, mit VBA

Löschen Sie mit Kutools for Excel Zeilen, die nicht den Kriterien auf einem anderen Blatt entsprechen

Kriterien (in Blatt 2)	Vorher (Blatt 1)		Nach (Sheet1)

---

Löschen Sie Zeilen, die nicht den Kriterien auf einem anderen Blatt entsprechen, mit VBA

Es gibt einen VBA-Code, mit dem Sie Zeilen löschen können, die nicht den Kriterien auf einem anderen Blatt entsprechen.

1. Drücken Sie Alt + F11 um das anzuzeigen Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im Fenster auf Insert > Modul Um ein neues Modulfenster anzuzeigen, kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA: Löschen Sie Zeilen, die nicht den Kriterien auf einem anderen Blatt in Excel entsprechen.

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 Klicken Führen Sie, eine KutoolsforExcel Das Dialogfeld wird geöffnet, in dem Sie einen Bereich auswählen können, in dem Sie die Zeilen löschen möchten, die nicht den Kriterien entsprechen. Siehe Screenshot:

4 Klicken OKund ein weiteres Dialogfeld zur Auswahl der Kriterien in einem anderen Blatt wird angezeigt (siehe Screenshot):

5. Jetzt werden alle Zeilen entfernt, die nicht den Kriterien in einem anderen Blatt entsprechen.

---

Löschen Sie mit Kutools for Excel Zeilen, die nicht den Kriterien auf einem anderen Blatt entsprechen

Wenn VBA-Code für Sie etwas schwierig ist, können Sie die Funktion "Bereiche vergleichen" von Kutools for Excel ausprobieren.

Kutools for Excel Enthält mehr als 300 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Starten Sie jetzt

1. Wählen Sie das Blatt aus, für das Sie die Zeilen löschen möchten, die nicht den Kriterien entsprechen. Und klicken Sie Kutoolen > Bereiche vergleichen. Siehe Screenshot:

2. In dem Bereiche vergleichen Klicken Sie im Dialogfeld auf die Schaltfläche im Bereich B.und dann können Sie den gewünschten Kriterienbereich auswählen. Siehe Screenshot:

 

3. Dann klick OK, dann zurück zum Bereiche vergleichen Dialog, überprüfen Anderer Wert und Wählen Sie ganze Zeilen aus. Siehe Screenshot:

4 Klicken Okund verlassen Sie die Bereiche vergleichen Dialog. Dann sehen Sie, dass die Wertzeilen ausgewählt werden, die sich von den Kriterien unterscheiden.

5. Klicken Sie mit der rechten Maustaste, um zu klicken Löschen aus dem Kontextmenü, um die Zeilen zu löschen, die nicht den Kriterien auf einem anderen Blatt entsprechen.

Klicken Sie hier, um weitere Informationen zu den Vergleichsbereichen von Kutools for Excel zu erhalten.

---

Relative Artikel:

• Löschen Sie Zeilen, die keinen bestimmten Text in Excel enthalten