Wie entferne ich Duplikate in Excel, behalte dabei aber die erste Instanz bei?
Angenommen, in Ihrem Arbeitsblatt befindet sich eine Liste mit Werten, die einige Duplikate enthält. Nun müssen Sie die Duplikate entfernen, aber die erste Zeile beibehalten, in der der doppelte Wert vorkommt. In diesem Artikel zeigen wir Ihnen zwei Methoden, um Duplikate zu entfernen, dabei jedoch die erste Instanz in Excel zu behalten.
Duplikate entfernen, aber erste Instanz mit VBA-Code beibehalten
Duplikate entfernen, aber erste Instanz mit Kutools für Excel beibehalten
Duplikate entfernen, aber erste Instanz mit VBA-Code beibehalten
Sie können den folgenden VBA-Code ausführen, um Duplikate zu entfernen und dabei jeweils die erste Instanz in einer Spalte beizubehalten.
1. Drücken Sie Alt+F11, um das Microsoft Visual Basic for Applications-Dialogfeld zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Dialogfeld auf Einfügen > Modul. Kopieren Sie anschließend den folgenden Code, und fügen Sie ihn in das Codefenster ein.
VBA-Code: Duplikate entfernen, aber erste Instanz beibehalten
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 Sub3. Drücken Sie die F5-Taste, um den Code auszuführen. Wählen Sie im erscheinenden KutoolsforExcel-Dialogfeld den Bereich aus, aus dem Sie Duplikate entfernen möchten, und klicken Sie dann auf die OK-Schaltfläche. Siehe Screenshot:
Nun sehen Sie, dass alle doppelten Zeilen – mit Ausnahme der jeweils ersten Datensätze – aus dem ausgewählten Spaltenbereich entfernt wurden. Siehe Screenshot:
Duplikate entfernen, aber erste Instanz mit Kutools für Excel beibehalten
Neben dem VBA-Code können Sie auch das Doppelte/Eindeutige Zellen auswählen-Tool des Kutools für Excel-Add-Ins nutzen, um ganz einfach Duplikate zu entfernen – und dabei die ersten Instanzen in Excel zu behalten.
1. Wählen Sie den Bereich aus, aus dem Sie Duplikate entfernen möchten, dabei aber die ersten Instanzen beibehalten wollen. Klicken Sie anschließend auf Kutools > Auswählen > Doppelte/ Eindeutige Zellen auswählen.
2. Wählen Sie im Doppelte/ Eindeutige Zellen auswählen-Dialogfeld die Option Doppelte Werte (Erster Treffer ausgeschlossen) aus, und klicken Sie dann auf die OK-Schaltfläche. Siehe Screenshot:
3. Klicken Sie im folgenden Doppelte/ Eindeutige Zellen auswählen-Dialogfeld auf OK.
4. Nun sind alle Duplikate bis auf die ersten Instanzen ausgewählt. Drücken Sie bitte die Entf-Taste, um die ausgewählten Duplikate zu entfernen.
Hinweis: Wenn Sie doppelte Zeilen löschen möchten, aktivieren Sie einfach die Option Gesamte Zeile auswählen im Doppelte/ Eindeutige Zellen auswählen-Dialogfeld und wenden Sie anschließend den Befehl Löschen aus dem Kontextmenü an, um die gesamten doppelten Zeilen zu entfernen.
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
Duplikate entfernen, aber erste Instanz mit Kutools für Excel beibehalten
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins