Hoe combineert u twee lijsten in Excel zonder duplicaten?
Er staan twee lijsten in uw werkblad, en sommige waarden komen in beide lijsten voor. Hoe combineert u deze lijsten en behoudt u alleen de unieke waarden, zoals weergegeven in de onderstaande schermafbeeldingen?
 |  |  |
Lijsten combineren zonder duplicaten met Dubbele items verwijderen in Excel
Lijsten combineren zonder duplicaten met VBA
Lijsten combineren zonder duplicaten met Kutools voor Excel
Lijsten combineren zonder duplicaten met Dubbele items verwijderen in Excel
Om twee lijsten te combineren en Dubbele waarden te verwijderen in Excel, kunt u het volgende doen:
1. Kopieer één van de twee lijsten en plak deze onderaan de andere lijst, zoals te zien is in de schermafbeelding:
| |  |
2. Selecteer de lijst en klik op Gegevens > Dubbele items verwijderen, zie schermafbeelding:
3. In het Dubbele items verwijderen-dialoogvenster: als uw kolom geen koptekst heeft, schakelt u Titels opnemen uit en klikt u vervolgens op OK. Zie schermafbeelding:
4. Er verschijnt dan een dialoogvenster op het scherm met de melding dat de duplicaten zijn verwijderd. Klik op OK. Zie de schermafbeelding:
U ziet het resultaat:
Lijsten combineren zonder duplicaten met VBA
In Excel helpt een VBA-script u ook om de twee lijsten te combineren zonder duplicaten.
1. Houd de toets ALT ingedrukt en druk op F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en kopieer de VBA-code naar 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-code uit te voeren.
4. Er verschijnt een dialoogvenster op het scherm waarin u het bereik kunt selecteren dat u wilt combineren. Zie de schermafbeelding:
5. Klik op OK, waarna een nieuw dialoogvenster verschijnt waarin u een cel kunt selecteren om het gecombineerde resultaat weer te geven. Zie schermafbeelding:
6. Klik op OK. U ziet direct dat de lijsten zijn gecombineerd.
Tip: Na het uitvoeren van de bovenstaande VBA-code blijft de opmaak van de cellen niet behouden.
Lijsten combineren zonder duplicaten met Kutools voor Excel
Met de geïnstalleerde Kutools voor Excel kunt u de functie Selecteer duplicaat/unieke cellen gebruiken om twee lijsten zonder duplicaten te combineren.
Kutools voor Excel bevat meer dan 300 handige Excel-hulpmiddelen. Probeer het gratis en zonder beperkingen gedurende 30 dagen.Download nu
1. Kopieer één van de twee lijsten en plak deze onderaan de andere lijst. Selecteer de samengevoegde lijst en klik vervolgens op Kutools > Selecteren > Selecteer duplicaat/unieke cellen. Zie schermafbeelding:
2. In het Selecteer duplicaat/unieke cellen-dialoogvenster vinkt u Alle unieke waarden (inclusief eerste duplicaten) aan en klikt u op Ok.
3. Vervolgens verschijnt er een dialoogvenster met het aantal geselecteerde unieke waarden. 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 de schermafbeelding:
Klik hier voor meer informatie over het selecteren van duplicaat- of unieke cellen.
Gerelateerde artikelen:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins