Ga naar hoofdinhoud

Hoe twee lijsten combineren zonder duplicaten in Excel?

Er zijn twee lijsten in uw werkblad, en sommige waarden in de lijsten zijn duplicaten, en u wilt deze twee lijsten combineren en gewoon de unieke waarden behouden, zoals weergegeven als de onderstaande schermafbeeldingen, hoe kunt u dat doen?

Combineer lijsten zonder duplicaten met Duplicaten verwijderen in Excel

Combineer lijsten zonder duplicaten met VBA

Combineer lijsten zonder duplicaten met Kutools voor Excel


pijl blauw rechts bel Combineer lijsten zonder duplicaten met Duplicaten verwijderen in Excel

Om twee lijsten te combineren en dubbele waarden in Excel te verwijderen, doet u het volgende:

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

2. Selecteer de lijst en klik op Data > Verwijder duplicaten, zie screenshot:


3. In de Verwijder duplicaten dialoogvenster, als uw kolom geen koptekst heeft, schakelt u het selectievakje uit Mijn gegevens hebben koptekstenEn klik op OK. Zie screenshot:


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


U kunt het resultaat zien:



pijl blauw rechts bel Combineer lijsten zonder duplicaten met VBA

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

1. Houden ALT knop en druk op F11 op het toetsenbord om een Microsoft Visual Basic voor toepassing venster.

2. klikken Invoegen > Moduleen kopieer de VBA naar de module.

VBA: combineer lijsten 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. klikken lopen knop of druk op F5 om de VBA uit te voeren.

4. Er wordt een dialoogvenster op het scherm weergegeven en u kunt het bereik selecteren dat u wilt combineren. Zie screenshot:


5. klikken OK, toen verscheen er een ander dialoogvenster waarin u een cel kon selecteren om het gecombineerde resultaat uit te voeren. Zie screenshot:


6. klikken OK. U kunt zien dat de lijsten zijn gecombineerd.


Tip: het resultaat kan de celopmaak niet reserveren na het uitvoeren van de bovenstaande VBA.


pijl blauw rechts bel Combineer lijsten zonder duplicaten met Kutools voor Excel

Met geïnstalleerd Kutools for Excel, kunt u de Selecteer duplicaten en unieke cellen functie om het probleem op te lossen dat twee lijsten combineert zonder duplicaten.

Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now

1. Kopieer een van de twee lijsten en plak deze onder aan de andere lijst, selecteer de nieuwe lijst en klik op Kutools > Selecteer Tools > Selecteer duplicaten en unieke cellen. Zie screenshot:


2. In de Selecteer duplicaten en unieke cellen dialoogvenster, vink aan Alle unieke exemplaren (inclusief 1e duplicaten), Klik Ok.


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


4. En kopieer de geselecteerde unieke waarden en plak ze in een nieuwe kolom. Zie screenshot:


Klik hier voor meer informatie over Selecteer duplicaten en unieke cellen.


Relatieve artikelen:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations