Hoe voegt u unieke waarden samen in Excel?
Bij het werken met spreadsheets komt het vaak voor dat u alleen de unieke waarden uit een kolom moet samenvoegen (concateneren), of lijsten moet samenstellen die unieke vermeldingen samenvatten met hun bijbehorende records. Dubbele waarden verwerken en samengevatte informatie presenteren maakt uw gegevens niet alleen overzichtelijker, maar ook rapporten helderder en informatiever. In Excel zijn er verschillende praktische manieren om deze doelen te bereiken, variërend van het gebruik van ingebouwde functies tot het benutten van geavanceerde invoegtoepassingen of aangepaste code. Deze handleiding biedt een gedetailleerde verkenning van meerdere methoden om unieke waarden samen te voegen en unieke vermeldingen weer te geven naast hun gerelateerde gegevens. De behandelde oplossingen sluiten aan bij verschillende Excel-versies en gebruikersvoorkeuren, zodat u de beste aanpak voor uw situatie kunt kiezen.
Alleen unieke waarden uit een kolom samenvoegen
- Door gebruik te maken van de functies TEXTJOIN en UNIQUE
- Door gebruik te maken van KUTOOLS AI Aide
- Door gebruik te maken van een door de gebruiker gedefinieerde functie
- Door gebruik te maken van een geavanceerde Excel-formule (alternatieve oplossing)
Unieke waarden weergeven en bijbehorende waarden samenvoegen
- Door gebruik te maken van de functies TEXTJOIN en UNIQUE
- Door gebruik te maken van Kutools for Excel
- Door gebruik te maken van VBA-code
- Door gebruik te maken van een draaitabel in Excel met formules (alternatieve oplossing)
Alleen unieke waarden uit een kolom samenvoegen
Tijdens het werken in Excel Data-analyse komt het vaak voor dat u alleen de unieke vermeldingen uit een kolom in één cel wilt samenvoegen. Dit is bijzonder handig bij het opstellen van samenvattende rapporten, het voorkomen van dubbele waarden in een lijst of het voorbereiden van gegevens voor verdere verwerking. De keuze van de methode hangt af van uw Excel-versie, de omvang van uw dataset en uw vertrouwdheid met formules of code. De volgende methoden sluiten aan bij verschillende behoeften, belichten belangrijke overwegingen per optie en bieden praktische tips om een correcte uitvoering te garanderen.
Methode 1: Gebruik van de functies TEXTJOIN en UNIQUE
Voor gebruikers van Excel 365 en Excel 2021 maken de functies TEXTJOIN en UNIQUE het samenvoegen van unieke waarden uit een kolom eenvoudig én flexibel.
Deze oplossing is ideaal wanneer uw gegevenskolom continu is en u alle unieke items snel in één cel wilt samenvoegen met een door u gekozen scheidingsteken. Dubbele waarden worden automatisch verwijderd, de oplossing is eenvoudig te beheren en u kunt zowel het bereik als het scheidingsteken naar wens aanpassen. Houd er echter rekening mee dat deze aanpak alleen beschikbaar is in de nieuwste Excel-versies; oudere versies ondersteunen de UNIQUE-functie niet.
Voer in de cel waar u het resultaat wilt weergeven de volgende formule in (ervan uitgaande dat uw gegevens zich bevinden in cellen A2:A18):
=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))
- UNIQUE(A2:A18)filtert dubbele vermeldingen eruit en retourneert alleen de unieke waarden uit het bereik A2:A18.
- TEXTJOIN(", ", TRUE, ...)combineert (voegt samen) deze unieke waarden in één cel, gescheiden door een komma en een spatie. Het argument WAAR zorgt ervoor dat lege cellen worden genegeerd bij het samenvoegen.
Handige tips en probleemoplossing:
- Zorg ervoor dat uw Excel-versie de functies UNIQUE en TEXTJOIN ondersteunt. Als u een #NAAM?-fout ziet, gebruikt u waarschijnlijk een oudere versie.
- Het scheidingsteken in TEXTJOIN kunt u naar wens aanpassen, bijvoorbeeld naar "; " of „|".
- Wanneer u gegevens in het oorspronkelijke bereik toevoegt of verwijdert, wordt de formule automatisch bijgewerkt.
- Controleer het argument voor het scheidingsteken in de formule zorgvuldig om onbedoelde extra spaties of scheidingstekens te voorkomen.
Methode 2: Gebruik van KUTOOLS AI Aide
Wanneer u een snellere, volledig geautomatiseerde manier zoekt om unieke waarden samen te voegen—zonder formules te schrijven—biedt de **AI Assistent**-tool van Kutools voor Excel een praktische oplossing die tijd bespaart voor gebruikers van elk niveau. Deze methode is vooral handig als u niet vertrouwd bent met geavanceerde Excel-formules of als uw gegevens regelmatig veranderen, waardoor herhaalde handelingen nodig zijn.
Nadat u Kutools voor Excel hebt geïnstalleerd, opent u deze functie door te klikken op "Kutools" > „AI Assistent"om het venster „KUTOOLS AI Aide" te openen.
- Selecteer de cellen met de waarden die u in één cel wilt combineren en zorg dat uw selectie overeenkomt met de gegevens die u wenst te gebruiken.
- Beschrijf uw wens in het chatvenster. U kunt bijvoorbeeld typen:
Voeg unieke waarden met komma's samen uit Bereik selecteren en plaats het samengevoegde resultaat in cel C2 - Druk op de Enter-toets of klik op de „Verzenden"-knop. Nadat de AI uw verzoek heeft geanalyseerd en verwerkt, drukt u op „Uitvoeren” zodat Kutools de bewerking kan uitvoeren. Het resultaat wordt zoals beschreven geretourneerd.
Opmerkingen en tips:
- Controleer of u de nieuwste versie van Kutools gebruikt om toegang te krijgen tot alle AI-functies.
- Wees specifiek in uw tekstcommando voor de beste resultaten: vermeld het scheidingsteken en de doelcel.
- KUTOOLS AI is bijzonder efficiënt bij grote bereiken of bij workflows die herhaald moeten worden op verschillende datasets.
Methode 3: Gebruik van een door de gebruiker gedefinieerde functie
Voor gebruikers die geavanceerde flexibiliteit nodig hebben, aangepaste scheidingstekens willen gebruiken of een herbruikbare tool zoeken voor meerdere werkmappen, biedt het coderen van een door de gebruiker gedefinieerde functie (UDF) in VBA een effectieve oplossing om automatisch unieke waarden samen te voegen. Deze VBA-oplossing is compatibel met alle Excel-versies en werkt onafhankelijk van de beschikbaarheid van nieuwe functies.
- U dient de macro’s in uw werkmap in te schakelen.
- Sla het bestand op als „macro-ingeschakeld" ().xlsm), zodat u deze VBA-code in de toekomst kunt blijven gebruiken.
- Het wordt aanbevolen om regelmatig back-ups van uw werkmap te maken voordat u nieuwe code uitvoert.
1. Houd ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het VBA-venster op Invoegen > Module en kopieer en plak vervolgens de volgende code:
VBA-code: Unieke waarden samenvoegen in één cel:
Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
Dim xCell As Range
Dim xDic As Object
Set xDic = CreateObject("Scripting.Dictionary")
For Each xCell In xRg
xDic(xCell.Value) = Empty
Next
ConcatUniq = Join$(xDic.Keys, xChar)
Set xDic = Nothing
End Function
3.Ga terug naar uw werkblad en typ in een lege cel (bijvoorbeeld C2) de volgende formule:
=ConcatUniq(A2:A18,",")Druk op Enter om te bevestigen. De cel toont alle unieke waarden uit het beperkte bereik, gescheiden door komma’s.
- Als uw bereik afwijkt, pas dan A2:A18 dienovereenkomstig aan.
- Als u een ander scheidingsteken nodig heeft, vervangt u ","in de formule door uw gewenste symbool (bijvoorbeeld)";" of |).
- Als u een #NAAM?-fout tegenkomt, controleer dan of macro’s zijn ingeschakeld en of de naam van de door u gedefinieerde functie exact overeenkomt.
Tip: Als u deze functie in andere werkmappen wilt hergebruiken, kopieer dan ook de VBA-code naar hun modules.
Methode 4: Gebruik van een geavanceerde Excel-formule (alternatieve oplossing)
In omgevingen waar de UNIQUE-functie niet beschikbaar is (bijvoorbeeld in Excel 2016 of Excel 2019), kunt u unieke waarden nog steeds samenvoegen met behulp van een complexere combinatie van de klassieke ALS-, AANTAL.ALS- en TEKST.SAMENVOEGEN-functies als matrixformules. Deze aanpak werkt, maar is het meest geschikt voor kleinere datasets vanwege de rekenbelasting.
1. Voer in een doelcel (bijv. C2) de volgende matrixformule in (druk na invoer op)Ctrl+Shift+Enter in plaats van alleen op Enter):
=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A18, A2:A18,0) = ROW(A2:A18) - MIN(ROW(A2:A18)) +1, A2:A18, ""))2. Als u accolades {} rondom uw formule ziet verschijnen, is deze correct ingevoerd als matrixformule. De formule retourneert samengevoegde unieke waarden uit het bereik A2:A18, gescheiden door komma’s.
Opmerking: Bij deze methode moet u de bereiken aanpassen aan uw gegevens. Bij zeer grote bereiken kan de berekentijd toenemen. Als u niet vertrouwd bent met matrixformules, overweeg dan de VBA- of invoegtoepassingsoplossingen die hierboven zijn beschreven.
Unieke waarden weergeven en bijbehorende waarden samenvoegen
Bij gegevensrapportage komt het vaak voor dat u niet alleen unieke waarden uit één kolom wilt extraheren, maar ook bijbehorende gegevens uit een andere kolom wilt aggregeren of samenvoegen — bijvoorbeeld om alle producten per verkoper te consolideren of alle vermeldingen gekoppeld aan hetzelfde ID samen te stellen. De juiste methode hangt af van de complexiteit van uw gegevens en of automatisering, gebruiksgemak of compatibiliteit uw hoogste prioriteit is.
Methode 1: Gebruik van TEKST.SAMENVOEGEN en UNIQUE-functies
Wanneer u Excel 365 of Excel 2021 gebruikt, combineert u de functies UNIQUE en FILTER met TEKST.SAMENVOEGEN voor een robuuste, volledig formulegedreven oplossing. Deze aanpak is ideaal om gegevens samen te vatten waarbij één waarde aan meerdere records is gekoppeld en u een door scheidingstekens gescheiden lijst van die gerelateerde records wilt genereren.
1. Voer in een lege kolom de volgende formule in om alle unieke waarden uit kolom A weer te geven:
=UNIQUE(A2:A17)
2. Voer nu, om de bijbehorende waarden uit kolom B samen te voegen voor elke unieke vermelding, in de volgende kolom naast uw unieke waarde (bijv. E2 als uw unieke waarden beginnen bij D2) deze formule in en sleep deze naar beneden indien nodig:
=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))
- UNIQUE(A2:A17)maakt een matrix met unieke items uit kolom A.
- FILTER(B2:B17, A2:A17 = D2)genereert een matrix met alle bijbehorende waarden uit kolom B voor elke unieke waarde in D2.
- TEXTJOIN(", ", TRUE, ...)voegt deze bijbehorende waarden samen, gescheiden door komma’s.
- Als u een ander scheidingsteken nodig heeft, wijzig dan ", " in TEXTJOIN dienovereenkomstig.
- Zorg ervoor dat de bereiken in uw formules even lang zijn en dat FILTER geen fouten geeft bij ontbrekende overeenkomsten, zodat u fouten voorkomt.
- Deze aanpak werkt resultaten automatisch bij zodra uw gegevens veranderen, waardoor het ideaal is voor dynamische overzichtstabellen.
Methode 2: Gebruik van Kutools voor Excel
Kutools voor Excel beschikt over een „Geavanceerd samenvoegen van rijen”-hulpmiddel dat speciaal is ontworpen om gegevens te groeperen op unieke waarden en bijbehorende waarden samen te voegen met het scheidingsteken van uw keuze. Dit is geschikt voor gebruikers die een grafische oplossing willen en zich niet comfortabel voelen bij het schrijven van formules of code. Het is vooral waardevol bij grote datasets of wanneer regelmatig opnieuw gegroepeerd moet worden, zoals bij periodieke rapportages of lopend gegevensbeheer.
Het is altijd verstandig om eerst een back-up van uw gegevens te maken door de oorspronkelijke bestanden naar een andere locatie te kopiëren. Volg daarna deze stappen:
- Selecteer het gegevensbereik dat u wilt sorteren.
- Navigeer naar "Kutools" > "Samenvoegen en splitsen" > „Geavanceerd samenvoegen van rijen", zoals hieronder is weergegeven:
- In het dialoogvenster dat verschijnt:
- Selecteer de kolom met duplicaten die u wilt samenvoegen en stel deze in als 'Primaire sleutel' in de kolom 'Bewerking'.
- Kies de kolom met de waarden die u wilt samenvoegen en geef uw gewenste scheidingsteken op in de keuzelijst onder ‘Bewerking’.
- Klik op OK om uit te voeren.
Resultaat:
Kutools herstructureert uw gegevens, filtert unieke vermeldingen eruit en voegt alle bijbehorende waarden samen volgens uw instellingen.
- Als u een fout maakt, gebruikt u de Ongedaan-maken-functie in Excel (Ctrl+Z) om direct terug te keren.
- Dit proces is geschikt voor datasets met mogelijk honderden of duizenden records en ondersteunt diverse scheidingstekens.
Methode 3: Gebruik van VBA-code
Met een VBA-script behoudt u volledige controle over het extraheren en samenvatten van uw gegevens. Deze aanpak is compatibel met alle Excel-versies en ideaal voor aangepaste workflows, automatisering of situaties waarin functies zoals UNIQUE of FILTER niet beschikbaar zijn. Als uw gegevensstructuur regelmatig verandert, past u deze VBA-oplossing eenvoudig aan.
Volg deze stappen om de onderstaande code te gebruiken:
1. Druk op ALT + F11 om de VBA-editor te openen.
2. Ga naar Invoegen > Module en plak de volgende code in het geopende modulevenster:
VBA-code: Unieke waarden weergeven en bijbehorende gegevens samenvoegen
Sub test()
'updateby Extendoffice
Dim xRg As Range
Dim xArr As Variant
Dim xCell As Range
Dim xTxt As String
Dim I As Long
Dim xDic As Object
Dim xOutputRg As Range
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Does not support multiple selections", , "Kutools for Excel"
Exit Sub
End If
If xRg.Columns.Count <> 2 Then
MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
Exit Sub
End If
Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
If xOutputRg Is Nothing Then Exit Sub
xArr = xRg
Set xDic = CreateObject("Scripting.Dictionary")
xDic.CompareMode = 1
For I = 1 To UBound(xArr)
If Not xDic.Exists(xArr(I, 1)) Then
xDic.Item(xArr(I, 1)) = xDic.Count + 1
xArr(xDic.Count, 1) = xArr(I, 1)
xArr(xDic.Count, 2) = xArr(I, 2)
Else
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
Next
xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub
3. Druk op F5 om het script uit te voeren. Er verschijnt een pop-up waarin u het gegevensbereik moet selecteren. Zorg ervoor dat u precies twee kolommen selecteert: de eerste voor unieke waarden en de tweede voor de bijbehorende waarden.
4. Klik op OK en selecteer de eerste cel waar de resultaattabel moet beginnen.
5. Nadat u op OK hebt geklikt, genereert de code een tabel met alleen unieke waarden en hun bijbehorende samengevoegde gegevens.
- Als u een foutmelding krijgt over het aantal kolommen, controleer dan of uw selectie exact twee kolommen bevat.
- Als u het scheidingsteken moet wijzigen van een komma naar een ander symbool, pas dan indien nodig de code aan in de regel
xArr(xDic.Item(xArr(I,1)),2) = xArr(xDic.Item(xArr(I,1)),2) & "," & xArr(I,2). - Maak altijd eerst een back-up van uw bestand voordat u nieuwe VBA-scripts uitvoert.
Kort samengevat biedt Excel diverse methoden om unieke waarden samen te voegen en gerelateerde gegevens te consolideren. Formulemethoden zijn snel en dynamisch in moderne Excel-versies, terwijl VBA- en Kutools-oplossingen bredere compatibiliteit én meer controle bieden. Kies altijd de methode die het beste aansluit bij de omvang van uw gegevens, uw Excel-versie en uw voorkeursworkflow. Test nieuwe methodes altijd eerst op voorbeeldgegevens of maak een back-up van uw werk—vooral bij scriptgebaseerde of batchbewerkingen. Voor nog meer Excel-hulp en geavanceerde tips,bekijk onze volledige verzameling tutorials.
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