Wie kombiniere ich zwei Listen ohne Duplikate in Excel?

Ihr Arbeitsblatt enthält zwei Listen, und einige der Werte in den Listen sind Duplikate. Sie möchten diese beiden Listen kombinieren und die eindeutigen Werte, wie in den folgenden Screenshots gezeigt, belassen. Wie können Sie dies tun?

Kombinieren Sie Listen ohne Duplikate mit Duplikate entfernen in Excel

Kombinieren Sie Listen ohne Duplikate mit VBA

Kombinieren Sie Listen ohne Duplikate mit Kutools for Excel

Kombinieren Sie Listen ohne Duplikate mit Duplikate entfernen in Excel

Toll! Verwenden Sie effiziente Tabs in Excel wie Chrome, Edge, Firefox und Safari!
Sparen Sie 50% Ihrer Zeit und reduzieren Sie jeden Tag Tausende von Mausklicks für Sie!

Um zwei Listen zu kombinieren und doppelte Werte in Excel zu entfernen, haben Sie folgende Möglichkeiten:

1. Kopieren Sie eine der beiden Listen und fügen Sie sie am Ende der anderen Liste ein (siehe Abbildung):

2. Wählen Sie die Liste aus und klicken Sie auf Datum > Duplikate entfernen, siehe Screenshot:

3. In dem Duplikate entfernen Wenn Ihre Spalte keine Überschrift enthält, deaktivieren Sie das Kontrollkästchen Meine Daten haben Kopfzeilen, Und klicken Sie auf OK. Siehe Screenshot:

4. Anschließend wird auf dem Bildschirm ein Dialogfeld angezeigt, in dem Sie darüber informiert werden, dass die Duplikate gelöscht wurden. Klicken Sie auf OK. Siehe Screenshot:

Sie können das Ergebnis sehen:

Kombinieren Sie Listen ohne Duplikate mit VBA

In Excel kann Ihnen ein VBA auch dabei helfen, die beiden Listen ohne Duplikate zu kombinieren.

1. Halt ALT Taste drücken und drücken F11 auf der Tastatur zum Öffnen a Microsoft Visual Basic für Anwendung Fenster.

2 Klicken Insert > Modulund kopieren Sie den VBA in das Modul.

VBA: Kombinieren Sie Listen ohne Duplikate

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 Führen Sie Taste oder drücken F5 um die VBA auszuführen.

4. Auf dem Bildschirm wird ein Dialogfeld angezeigt, in dem Sie den Bereich auswählen können, den Sie kombinieren möchten. Siehe Screenshot:

5 Klicken OKAnschließend wurde ein weiteres Dialogfeld angezeigt, in dem Sie eine Zelle für die Ausgabe des kombinierten Ergebnisses auswählen können. Siehe Screenshot:

6 Klicken OK. Sie können sehen, dass die Listen kombiniert wurden.

Tipp: Das Ergebnis kann die Formatierung der Zellen nach dem Ausführen des obigen VBA nicht reservieren.

Kombinieren Sie Listen ohne Duplikate mit Kutools for Excel

Mit installiert Kutools for Excel, können Sie die Wählen Sie Duplikate und eindeutige Zellen aus Funktion zur Lösung des Problems, bei dem zwei Listen ohne Duplikate kombiniert werden.

Kutools for Excel Enthält mehr als 300 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Starten Sie jetzt

1. Kopieren Sie eine der beiden Listen und fügen Sie sie am Ende der anderen Liste ein. Wählen Sie die neue Liste aus und klicken Sie dann auf Kutoolen > Wählen Sie Extras > Wählen Sie Duplikate und eindeutige Zellen aus. Siehe Screenshot:

2. In dem Wählen Sie Duplikate und eindeutige Zellen aus Dialog, überprüfen Alle Unikate (einschließlich 1. Duplikate), klicken Ok.

3. Anschließend wird ein Dialogfeld angezeigt, in dem Sie erfahren, wie viele eindeutige Werte ausgewählt wurden. Klicken Sie auf OK und Abbrechen um zwei Dialoge zu schließen. Siehe Screenshot: