Wie entferne ich Duplikate, behalte aber die erste Instanz in Excel?

Angenommen, es gibt eine Liste von Werten in Ihrem Arbeitsblatt, die einige Duplikate enthält. Nun müssen Sie die Duplikate entfernen, aber die erste Zeile, in der der duplizierte Wert gefunden wird, behalten. In diesem Artikel zeigen wir Ihnen zwei Methoden zum Entfernen von Duplikaten, wobei die erste Instanz in Excel erhalten bleibt.

Duplikate entfernen, aber die erste Instanz mit VBA-Code behalten
Duplikate entfernen, aber die erste Instanz mit Kutools für Excel behalten

Duplikate entfernen, aber die erste Instanz mit VBA-Code behalten

Sie können den folgenden VBA-Code ausführen, um Duplikate zu entfernen, aber die erste Instanz in einer Spalte beizubehalten.

1. Drücken Sie Alt + F11, um das Dialogfeld Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Dialogfeld Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Duplikate entfernen, aber die erste Instanz behalten

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. Drücken Sie die F5-Taste, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld KutoolsforExcel den Bereich aus, aus dem Sie Duplikate entfernen möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

Jetzt sehen Sie, dass alle doppelten Zeilen außer den ersten Datensätzen aus dem ausgewählten Spaltenbereich entfernt wurden. Siehe Screenshot:

Duplikate entfernen, aber die erste Instanz mit Kutools für Excel behalten

Neben dem VBA-Code können Sie das Hilfsprogramm „Doppelte & Eindeutige Zellen auswählen“ des Kutools für Excel Add-Ins verwenden, um Duplikate einfach zu entfernen, aber die ersten Instanzen in Excel beizubehalten.

1. Wählen Sie den Bereich aus, aus dem Sie Duplikate entfernen möchten, aber die ersten Instanzen behalten möchten. Klicken Sie dann auf Kutools > Auswählen > Doppelte & Eindeutige Zellen auswählen.

2. Wählen Sie im Dialogfeld „Doppelte & Eindeutige Zellen auswählen“ die Option „Doppelte Werte (Erster Treffer ausgeschlossen)“ und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

3. Klicken Sie im nächsten Dialogfeld „Doppelte & Eindeutige Zellen auswählen“ auf OK.

4. Jetzt sind die Duplikate außer den ersten Instanzen ausgewählt. Drücken Sie bitte die Entf-Taste, um die ausgewählten Duplikate zu entfernen.

Hinweis: Wenn Sie die doppelten Zeilen löschen möchten, müssen Sie im Dialogfeld „Doppelte & Eindeutige Zellen auswählen“ einfach die Option „Ganze Zeile auswählen“ aktivieren und dann den Befehl „Löschen“ im Kontextmenü anwenden, um die gesamten doppelten Zeilen zu entfernen.

Duplikate entfernen, aber die erste Instanz mit Kutools für Excel behalten