Wie kombiniert man zwei Listen in Excel, ohne Duplikate zu erhalten?
In Ihrem Arbeitsblatt befinden sich zwei Listen, von denen einige Werte doppelt vorkommen. Wie können Sie diese beiden Listen kombinieren und dabei nur die eindeutigen Werte behalten – so wie in den folgenden Screenshots gezeigt?
 |  |  |
Listen ohne Duplikate mit Duplikate entfernen in Excel kombinieren
Listen ohne Duplikate mit VBA kombinieren
Listen ohne Duplikate mit Kutools für Excel
Listen ohne Duplikate mit Duplikate entfernen in Excel kombinieren
Um zwei Listen zu kombinieren und Doppelte Werte in Excel zu entfernen, gehen Sie wie folgt vor:
1. Kopieren Sie eine der beiden Listen und fügen Sie sie am Ende der anderen ein. Siehe Screenshot:
| |  |
2. Wählen Sie die Liste aus und klicken Sie auf Daten > Duplikate entfernen. Siehe Screenshot:
3. Im Dialogfeld Duplikate entfernen: Falls Ihre Spalte keine Überschrift enthält, deaktivieren Sie das Kontrollkästchen Titel einschließen und klicken Sie anschließend auf OK. Siehe Screenshot:
4. Anschließend erscheint ein Dialogfeld, das Ihnen mitteilt, dass die Duplikate gelöscht wurden. Klicken Sie auf OK. Siehe Screenshot:
Sie können das Ergebnis sehen:
Listen ohne Duplikate mit VBA kombinieren
In Excel kann Ihnen auch ein VBA-Makro dabei helfen, die beiden Listen ohne Duplikate zu kombinieren.
1. Halten Sie die Taste ALT gedrückt und drücken Sie F11, um ein Fenster für Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und kopieren Sie den VBA-Code in das Modul.
VBA: Listen ohne Duplikate kombinieren
Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
For i = 1 To InputRng.Rows.Count
xValue = InputRng.Cells(i, j).Value
If xValue <> "" And Not dic.Exists(xValue) Then
OutRng.Value = xValue
dic(xValue) = ""
Set OutRng = OutRng.Offset(1, 0)
End If
Next
Next
End Sub
3. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie F5, um das VBA-Skript auszuführen.
4. Ein Dialogfeld erscheint auf dem Bildschirm, in dem Sie den Bereich auswählen können, den Sie kombinieren möchten. Siehe Screenshot:
5. Klicken Sie auf OK, woraufhin ein weiteres Dialogfeld erscheint, in dem Sie eine Zelle für das kombinierte Ergebnis auswählen können. Siehe Screenshot:
6. Klicken Sie auf OK. Sie sehen, dass die Listen kombiniert wurden.
Tipp: Das Ergebnis behält nach der Ausführung des obigen VBA-Codes die Zellenformatierung nicht bei.
Listen ohne Duplikate mit Kutools für Excel
Mit installiertem Kutools für Excel können Sie die Funktion Doppelte/ Eindeutige Zellen auswählen nutzen, um zwei Listen ohne Duplikate zu kombinieren.
Kutools für Excel bietet über 300 praktische Excel-Tools – testen Sie es jetzt 30 Tage lang kostenlos und ohne Einschränkungen! Jetzt herunterladen
1. Kopieren Sie eine der beiden Listen und fügen Sie sie am Ende der anderen ein. Wählen Sie die zusammengeführte Liste aus und klicken Sie dann auf Kutools > Auswählen > Doppelte/ Eindeutige Zellen auswählen. Siehe Screenshot:
2. Aktivieren Sie im Dialogfeld Doppelte/ Eindeutige Zellen auswählen das Kontrollkästchen Alle eindeutigen Werte (einschließlich erster Duplikate) und klicken Sie auf OK.
3. Anschließend erscheint ein Dialogfeld, das Ihnen mitteilt, wie viele eindeutige Werte ausgewählt wurden. Klicken Sie auf OK und Abbrechen, um die beiden Dialogfelder zu schließen. Siehe Screenshot:
4. Kopieren Sie anschließend die ausgewählten eindeutigen Werte und fügen Sie sie in eine neue Spalte ein. Siehe Screenshot:
Klicken Sie hier, um mehr über die Auswahl doppelter bzw. eindeutiger Zellen zu erfahren.
Verwandte Artikel:
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