Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie man Duplikate entfernt, aber die erste Instanz in Excel behält?

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

Entfernen Sie die Duplikate, behalten Sie jedoch die erste Instanz mit VBA-Code

Entfernen Sie Duplikate, behalten Sie jedoch die erste Instanz mit Kutools for Excel


Markieren Sie einfach alle doppelten oder eindeutigen Werte in einer Liste

Mit  Kutools for Excel's Wählen Sie Doppelte und eindeutige Zellen aus Mit diesem Dienstprogramm können Sie schnell alle Duplikate oder Werte in einer Liste in Excel hervorheben.

Kutools for Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos zu testen, ohne Einschränkung in 60 Tagen. Laden Sie jetzt die kostenlose Testversion herunter

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und andere Elemente zu Ihren Favoriten hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20-Textfunktionen: Extrahieren Sie die Nummer aus der Textzeichenfolge. Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umrechnen ...
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einer; Mehrere Zellen / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren; Doppelte Zeilen und Summe zusammenführen ...
  • Geteilte Werkzeuge: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe in mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten ...
  • Einfügen überspringen Versteckte / Gefilterte Zeilen; Zählung und Summe nach Hintergrundfarbe; Mailingliste erstellen und Senden Sie E-Mails nach dem Wert von Cell...
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie diese auf alle Blätter an. Art nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

Entfernen Sie die Duplikate, behalten Sie jedoch die erste Instanz mit VBA-Code


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

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 Einsatz > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Duplikate entfernen, aber 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 F5 Schlüssel zum Ausführen des Codes. In dem Auftauchen KutoolsfürExcel Wählen Sie im Dialogfeld den Bereich aus, in dem Duplikate entfernt werden sollen, und klicken Sie dann auf OK Taste. Siehe Screenshot:

Jetzt können Sie alle doppelten Zeilen sehen, außer die ersten Einträge werden aus dem ausgewählten Spaltenbereich entfernt. Siehe Screenshot:


Entfernen Sie Duplikate, behalten Sie jedoch die erste Instanz mit Kutools for Excel

Neben dem VBA-Code können Sie den Wählen Sie Doppelte und eindeutige Zellen aus Nutzen von Kutools for Excel Add-In zum einfachen Entfernen von Duplikaten, aber behalten Sie die ersten Instanzen in Excel.

Kutools for Excel : mit mehr als 300 praktischen Excel Add-Ins, Es ist kostenlos in 60 Tagen zu versuchen.

1. Wählen Sie den Bereich aus, in dem Duplikate entfernt werden sollen, aber behalten Sie die ersten Instanzen bei. Dann klick Kutoolen > Auswählen > Wählen Sie Doppelte und eindeutige Zellen aus. Siehe Screenshot:

2. In dem Wählen Sie Doppelte und eindeutige Zellen aus Wählen Sie im Dialogfeld Duplikate (außer 1st) Option, und klicken Sie dann auf OK Taste. Siehe Screenshot:

doc entfernen duplicates1

3. Im Folgenden Wählen Sie Doppelte und eindeutige Zellen aus Dialogfeld, klicken Sie auf OK.

doc entfernen duplicates1

4. Jetzt sind die Duplikate ausgewählt, mit Ausnahme der ersten Instanzen, drücken Sie bitte die Löschen Taste, um die ausgewählten Duplikate zu entfernen.

Text: 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 aus Dialogfeld und wenden Sie dann das Löschen Befehl des Rechtsklick-Menüs, um alle doppelten Zeilen zu entfernen.

Tip.Wenn Sie dieses Programm kostenlos testen möchten, gehen Sie bitte zu Laden Sie die Software kostenlos herunter zuerst, und gehen Sie dann, um die Operation gemäß den obigen Schritten anzuwenden.


Entfernen Sie Duplikate, behalten Sie jedoch die erste Instanz mit Kutools for Excel

Kutools for Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos zu testen, ohne Einschränkung in 60 Tagen. Laden Sie jetzt die kostenlose Testversion herunter!


Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lelouch · 2 years ago
    I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell

    John I Red
    John I Blue
    John I Yellow

    Joe I Red
    Joe I Blue
    Joe I Yellow

    and turn it into

    John I Red
    I Blue
    I Yellow

    Joe I Red
    I Blue
    I Yellow

    Can you help on just keeping the first duplicate in a single cell only?