Wie entferne ich Duplikate, behalte aber die erste Instanz in Excel?
Angenommen, Ihr Arbeitsblatt enthält eine Liste von Werten, die einige Duplikate enthält. Jetzt müssen Sie die Duplikate entfernen, aber die erste Zeile beibehalten, in der sich der duplizierte Wert befindet. In diesem Artikel zeigen wir Ihnen zwei Methoden zum Entfernen von Duplikaten, behalten jedoch die erste Instanz in Excel bei.
Entfernen Sie Duplikate, aber behalten Sie die erste Instanz mit VBA-Code bei
Entfernen Sie Duplikate, aber behalten Sie die erste Instanz mit Kutools for Excel bei
Entfernen Sie Duplikate, aber behalten Sie die erste Instanz mit VBA-Code bei
Sie können den folgenden VBA-Code ausführen, um Duplikate zu entfernen, aber die erste Instanz in einer Spalte behalten.
1. Drücken Sie Andere + F11 öffnen Microsoft Visual Basic für Applikationen Dialogbox.
2. In dem Microsoft Visual Basic für Applikationen Dialogfeld, klicken Sie auf Insert > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Entfernen Sie Duplikate, aber behalten Sie die erste Instanz bei
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 F5 Schlüssel zum Ausführen des Codes. Beim Auftauchen KutoolsforExcel Wählen Sie im Dialogfeld den Bereich aus, in dem Sie Duplikate entfernen möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
Jetzt können Sie alle doppelten Zeilen sehen, mit Ausnahme der ersten Datensätze, die aus dem ausgewählten Spaltenbereich entfernt wurden. Siehe Screenshot:
Entfernen Sie Duplikate, aber behalten Sie die erste Instanz mit Kutools for Excel bei
Neben dem VBA-Code können Sie den verwenden Wählen Sie Doppelte und eindeutige Zellen Nutzen von Kutools for Excel Add-In zum einfachen Entfernen von Duplikaten, aber Beibehalten der ersten Instanzen in Excel.
Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.
1. Wählen Sie den Bereich aus, in dem Sie Duplikate entfernen möchten, behalten Sie jedoch die ersten Instanzen bei. Dann klick Kutoolen > Auswählen > Wählen Sie Doppelte und eindeutige Zellen.
2. In dem Wählen Sie Doppelte und eindeutige Zellen Wählen Sie im Dialogfeld Duplikate (außer 1.) Option, und klicken Sie dann auf OK Taste. Siehe Screenshot:
3. Im Folgenden Wählen Sie Doppelte und eindeutige Zellen Dialogfeld, klicken Sie auf OK.
4. Jetzt werden die Duplikate mit Ausnahme der ersten Instanzen ausgewählt. Drücken Sie die Taste Löschen Taste zum Entfernen der ausgewählten Duplikate.
Note: Wenn Sie die doppelten Zeilen löschen möchten, müssen Sie nur überprüfen Wählen Sie ganze Zeilen aus Option in der Wählen Sie Doppelte und eindeutige Zellen Dialogfeld, und wenden Sie dann die Löschen Befehl des Rechtsklick-Menüs, um die gesamten doppelten Zeilen zu entfernen.
Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
Entfernen Sie Duplikate, aber behalten Sie die erste Instanz mit Kutools for Excel bei
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!