Hoe voegt u teksten in een kolom samen zonder duplicaten in Excel?

Bij het werken met lijsten of grote gegevenssets in Excel moet u de tekstinhoud van een volledige kolom vaak samenvoegen tot één cel, waarbij dubbele waarden slechts één keer worden meegenomen. Daarnaast komt het regelmatig voor dat teksten in één kolom moeten worden samengevoegd op basis van een specifieke waarde in een andere kolom – ook dan zonder duplicaten. Het beheersen van deze technieken is essentieel voor het opschonen, samenvatten en rapporteren van gegevens, zodat uw werkbladen overzichtelijk en eenvoudig te interpreteren blijven. In dit artikel vindt u diverse praktische methoden om deze doelen te bereiken, inclusief gedetailleerde, stapsgewijze instructies voor veelvoorkomende scenario’s.

Teksten in een kolom zonder duplicaten samenvoegen met een formule
Teksten in een kolom zonder duplicaten samenvoegen op basis van een andere celwaarde met VBA-code
Eenvoudig teksten in een kolom samenvoegen op basis van een andere celwaarde met een geweldig hulpmiddel
Meer handleidingen voor het samenvoegen van cellen…

Teksten in een kolom zonder duplicaten samenvoegen met een formule

Stel dat u een kolom met tekstwaarden in uw werkblad hebt en deze wilt samenvoegen tot één cel, waarbij dubbele waarden automatisch worden verwijderd – zoals te zien in de schermafbeelding hieronder. Deze aanpak is ideaal voor het maken van samenvattingsvelden of komma-gescheiden lijsten met unieke waarden, perfect voor rapportages en dashboards. De methode werkt zonder macro’s of externe hulpmiddelen en is compatibel met de meeste Excel-versies die dynamische matrixfuncties en TEXTJOIN ondersteunen.

Selecteer een lege cel waarin de samengevoegde tekst moet verschijnen. Kopieer en plak de onderstaande formule in de geselecteerde cel en druk op Ctrl+Shift+Enter als u een oudere versie van Excel gebruikt. In nieuwere versies die dynamische matrices ondersteunen (Excel 365 of Excel 2019 en nieuwer), drukt u eenvoudigweg op Enter:

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12,0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, „"))

Uitleg van parameters en gebruiksaanwijzingen:

• A2:A12: Hiermee geef je het celbereik op waarvan je de waarden wilt samenvoegen. Pas dit bereik zo nodig aan jouw gegevens aan.
• ", ": Dit is het scheidingsteken dat wordt gebruikt tussen de samengevoegde teksten (in dit voorbeeld een komma gevolgd door een spatie). Voor andere scheidingstekens, zoals een puntkomma of een regeleinde, wijzigt u dit argument eenvoudigweg.
• TRUE: Met deze instelling instrueert u TEXTJOIN om lege cellen te negeren.

Nadat u deze stappen heeft voltooid, ontvangt u één cel met alle unieke tekstwaarden uit de opgegeven kolom, samengevoegd met behulp van het ingestelde scheidingsteken.

Teksten in een kolom zonder duplicaten samenvoegen op basis van een andere celwaarde met VBA-code

Er zijn situaties waarin u tekst uit één kolom wilt samenvoegen op basis van unieke waarden in een andere kolom – bijvoorbeeld alle projecten toegewezen aan een teamlid of onderwerpen behandeld in elke sessie, zonder dubbele vermeldingen. De standaardfuncties van Excel kunnen hierbij beperkt of omslachtig zijn, vooral bij groeiende hoeveelheden gegevens. Met VBA automatiseren we dit proces flexibel en efficiënt, zelfs bij het samenvoegen van grote aantallen rijen per groep, terwijl duplicaten automatisch worden genegeerd. De volgende VBA-oplossing stelt u in staat dit snel uit te voeren en de resultaten naar een nieuw werkblad te exporteren – uw brongegevens blijven ongewijzigd voor optimale veiligheid en controle.

1. Druk in het werkblad met de teksten die u wilt combineren op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het Visual Basic-venster op Invoegen>Moduleom een nieuwe module te maken en plak vervolgens de volgende code in het codovenster van de module:

VBA-code: Teksten in een kolom zonder duplicaten samenvoegen op basis van een andere celwaarde

Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
    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 xValue
    Dim xStr, xStrValue As String
    Dim xB As Boolean
    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
    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
            xStrValue = xArr(I, 2)
           xB = True
            For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
                If xStr = xStrValue Then
                    xB = False
                    Exit For
                End If
            Next
            If xB Then
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
            End If
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub 

3. Druk op de toets F5om de code uit te voeren. Selecteer in het dialoogvenster dat verschijnt (met de titel)Kutools voor Excel) het bereik dat zowel de groeperingskolom als de teksten bevat die moeten worden samengevoegd. Het bereik moet twee kolommen breed zijn (bijvoorbeeld de eerste kolom met een categorie en de tweede kolom met de bijbehorende tekstwaarden). Klik op OK om uw selectie te bevestigen en door te gaan.

Zodra de code is uitgevoerd, ziet u dat er een nieuw werkblad aan uw werkmap is toegevoegd. Daarin worden de unieke waarden uit uw sleutelkolom weergegeven, samen met de bijbehorende teksten uit uw oorspronkelijke kolom – samengevoegd en elk slechts één keer getoond. Dit is bijzonder efficiënt voor het samenvatten van gegroepeerde gegevens, zoals het verzamelen van klantopmerkingen per product of het overzichtelijk maken van projecten per manager.

Eenvoudig teksten in een kolom samenvoegen op basis van een andere celwaarde met een geweldig hulpmiddel

Met deze methode configureert u uw samenvattings- en samenvoegbewerkingen interactief—ideaal voor gebruikers die regelmatig met variabele datasets werken of dezelfde bewerking meerdere keren met verschillende parameters moeten uitvoeren.

Opmerking:Aangezien dit hulpprogramma uw geselecteerde bereik direct wijzigt, raden we u ten zeerste aan om eerst een back-up te maken van uw originele werkbladgegevens voordat u de samenvoegbewerking uitvoert — zo voorkomt u onbedoeld gegevensverlies of het overschrijven van cruciale informatie.

1. Selecteer het celbereik dat zowel de waarden bevat waarmee u wilt groeperen als de teksten die moeten worden samengevoegd. Ga vervolgens naar het tabblad Kutools, klik op Samenvoegen en splitsen en selecteer Geavanceerd samenvoegen van rijen in het vervolgkeuzemenu.

2. In het dialoogvenster Geavanceerd samenvoegen van rijendat verschijnt:

• Kies de kolom die bepaalt hoe uw teksten worden gegroepeerd en klik op Primaire sleutel. Dit is meestal de kolom met identificatie- of categoriedata.
• Selecteer de kolom met de teksten die u wilt samenvoegen en klik op Samenvoegen > Komma (of kies uw gewenste scheidingsteken).
• Als er extra kolommen zijn, zoals numerieke waarden of andere kenmerken, kunt u bewerkingen voor deze kolommen opgeven (bijvoorbeeld totalen optellen of gemiddelden berekenen) door de bijbehorende functie te selecteren, zoals Berekenen > Som.
• Klik op OK om de bewerking uit te voeren; de gegevens worden vervolgens dienovereenkomstig samengevoegd. Zie de volgende schermafbeelding voor een voorbeeld:

Na het proces ziet u dat alle tekstwaarden in uw opgegeven kolom zijn samengevoegd op basis van de groepering van uw gekozen Sleutelkolom. Deze aanpak is vooral voordelig voor gebruikers die een snelle, herhaalbare oplossing nodig hebben zonder formules te hoeven onthouden.

Gerelateerde artikelen

Beste Office-productiviteitshulpmiddelen

🤖	KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
	Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
	Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
	Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
	Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
	Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
	Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

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...

Meer details over Kutools voor Excel...Gratis downloaden...

---

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!

Meer details over Office Tab...Gratis downloaden...

---

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

Meer details over Kutools for Office...Gratis downloaden...