Wie löscht man Zeilen, die nicht den Kriterien auf einem anderen Arbeitsblatt entsprechen?

Es mag nicht schwierig für Sie sein, Zeilen zu löschen, die nicht den Kriterien auf demselben Arbeitsblatt entsprechen, aber kennen Sie eine Möglichkeit, Zeilen zu löschen, die nicht den Kriterien auf einem anderen Arbeitsblatt entsprechen, wie unten gezeigt? Jetzt habe ich zwei Tricks, die Ihnen helfen können, das Problem schnell zu lösen.

Zeilen löschen, die nicht den Kriterien auf einem anderen Arbeitsblatt mit VBA entsprechen

Zeilen löschen, die nicht den Kriterien auf einem anderen Arbeitsblatt mit Kutools für Excel entsprechen

Kriterien (In Arbeitsblatt 2)	Vorher (Arbeitsblatt 1)		Nachher (Arbeitsblatt 1)

---

Zeilen löschen, die nicht den Kriterien auf einem anderen Arbeitsblatt mit VBA entsprechen

Es gibt einen VBA-Code, der Ihnen helfen kann, Zeilen zu löschen, die nicht den Kriterien auf einem anderen Arbeitsblatt entsprechen.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications anzuzeigen.

2. Klicken Sie im Fenster auf Einfügen > Modul, um ein neues Modulfenster zu öffnen, und kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA: Löschen von Zeilen, die nicht den Kriterien auf einem anderen Arbeitsblatt 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 Sie auf Ausführen, ein KutoolsforExcel Dialogfenster erscheint, 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 Sie auf OK, und ein weiteres Dialogfeld erscheint, in dem Sie die Kriterien auf einem anderen Arbeitsblatt auswählen können. Siehe Screenshot:

5. Nun werden alle Zeilen, die nicht den Kriterien auf einem anderen Arbeitsblatt entsprechen, entfernt.

---

Zeilen löschen, die nicht den Kriterien auf einem anderen Arbeitsblatt mit Kutools für Excel entsprechen

Falls der VBA-Code etwas schwierig für Sie ist, können Sie Kutools für Excel’s Zellen vergleichen-Funktion ausprobieren.

Kutools für Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos 30 Tage lang ohne Einschränkungen testen. Holen Sie es sich jetzt

1. Wählen Sie das Arbeitsblatt aus, in dem Sie die Zeilen löschen möchten, die nicht den Kriterien entsprechen. Und klicken Sie auf Kutools > Bereich > Zellen vergleichen. Siehe Screenshot:

2. Klicken Sie im Dialogfeld „Zellen vergleichen“ auf die Schaltfläche im Bereich B, und wählen Sie dann den benötigten Kriterienbereich aus. Siehe Screenshot:

 

3. Klicken Sie dann auf OK, kehren Sie zum Dialogfeld „Bereiche vergleichen“ zurück, aktivieren Sie „Unterschiedliche Werte“ und „Ganze Zeile auswählen“. Siehe Screenshot:

4. Klicken Sie auf OK und verlassen Sie das Dialogfeld „Bereiche vergleichen“. Dann sehen Sie, dass die Zeilen, deren Werte sich von den Kriterien unterscheiden, ausgewählt sind.

5. Klicken Sie mit der rechten Maustaste und wählen Sie „Löschen“ aus dem Kontextmenü, um die Zeilen zu löschen, die nicht den Kriterien auf einem anderen Arbeitsblatt entsprechen.

Klicken Sie hier für weitere Informationen zu Kutools für Excel’s Bereiche vergleichen.

---

Verwandte Artikel:

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

---