Hoe twee lijsten zonder duplicaten combineren in Excel?

Er zijn twee lijsten in uw werkblad, en sommige waarden in de lijsten zijn duplicaten. U wilt deze twee lijsten combineren en alleen de unieke waarden behouden, zoals te zien is in de onderstaande schermafbeeldingen. Hoe kunt u dit doen?

Lijsten combineren zonder duplicaten met Verwijderen dubbele waarden in Excel

Lijsten combineren zonder duplicaten met VBA

Lijsten combineren zonder duplicaten met Kutools voor Excel

Lijsten combineren zonder duplicaten met Verwijderen dubbele waarden in Excel

Om twee lijsten te combineren en dubbele waarden te verwijderen in Excel, kunt u als volgt te werk gaan:

1. Kopieer een van de twee lijsten en plak deze onderaan de andere lijst, zie schermafbeelding:

2. Selecteer de lijst en klik op Gegevens > Dubbele waarden verwijderen, zie schermafbeelding:

3. In het dialoogvenster Dubbele waarden verwijderen, als uw kolom geen koptekst heeft, vink dan Gegevens bevat koppen uit, en klik vervolgens op OK. Zie schermafbeelding:

4. Vervolgens verschijnt er een dialoogvenster op het scherm om u te vertellen dat de duplicaten zijn verwijderd, klik op OK. Zie schermafbeelding:

U kunt het resultaat zien:

Lijsten combineren zonder duplicaten met VBA

In Excel kan een VBA u ook helpen om de twee lijsten zonder duplicaten te combineren.

1. Houd de knop ALT ingedrukt en druk op F11 op het toetsenbord om een Microsoft Visual Basic for Application-venster te openen.

2. Klik op Invoegen > Module, en kopieer de VBA in de module.

VBA: Lijsten combineren zonder duplicaten

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. Klik op de knop Uitvoeren of druk op F5 om de VBA uit te voeren.

4. Er verschijnt een dialoogvenster op het scherm, waarin u het bereik kunt selecteren dat u wilt combineren. Zie schermafbeelding:

5. Klik op OK, vervolgens verschijnt er een ander dialoogvenster waarin u een cel kunt selecteren om het gecombineerde resultaat uit te voeren. Zie schermafbeelding:

6. Klik op OK. U kunt zien dat de lijsten zijn gecombineerd.

Tip: Het resultaat behoudt niet de celopmaak na het uitvoeren van de bovenstaande VBA.

Lijsten combineren zonder duplicaten met Kutools voor Excel

Met geïnstalleerde Kutools voor Excel kunt u de functie Dubbele & unieke cellen selecteren gebruiken om het probleem op te lossen van het combineren van twee lijsten zonder duplicaten.

Kutools voor Excel bevat meer dan 300 handige Excel-tools. Gratis proberen zonder beperking gedurende 30 dagen. Nu downloaden

1. Kopieer een van de twee lijsten en plak deze onderaan de andere lijst, selecteer de nieuwe lijst, klik vervolgens op Kutools > Selecteer > Dubbele & unieke cellen selecteren. Zie schermafbeelding:

2. In het dialoogvenster Dubbele & unieke cellen selecteren, vink All uniques (Including 1st duplicates) aan, klik op Ok.

3. Vervolgens verschijnt er een dialoogvenster om u te vertellen hoeveel unieke waarden zijn geselecteerd, klik op OK en Annuleren om de twee dialoogvensters te sluiten. Zie schermafbeelding:

4. Kopieer de geselecteerde unieke waarden en plak ze in een nieuwe kolom. Zie schermafbeelding:

Klik hier om meer te weten te komen over Dubbele & unieke cellen selecteren.

Gerelateerde artikelen:

• Unieke waarden vinden tussen twee kolommen
• Dubbele waarden vinden in twee kolommen