Hoe unieke waarden in Excel samenvoegen?

Het samenvoegen van unieke waarden in Excel is een veelvoorkomende taak die op verschillende manieren kan worden uitgevoerd. Dit artikel onderzoekt verschillende technieken om unieke waarden in een kolom samen te voegen en unieke waarden weer te geven terwijl hun bijbehorende waarden worden samengevoegd.

Alleen unieke waarden uit een kolom samenvoegen

• Door gebruik te maken van de functies TEXTJOIN en UNIQUE
• Door gebruik te maken van Kutools AI Assistent
• Door gebruik te maken van een door de gebruiker gedefinieerde functie

Unieke waarden weergeven en bijbehorende waarden samenvoegen

• Door gebruik te maken van de functies TEXTJOIN en UNIQUE
• Door gebruik te maken van Kutools voor Excel
• Door gebruik te maken van VBA-code

Alleen unieke waarden uit een kolom samenvoegen

Bij data-analyse zijn er gevallen waarin je unieke waarden uit een kolom in Excel moet samenvoegen in één cel. Deze taak kan worden uitgevoerd met behulp van formules, VBA of Kutools, afhankelijk van je voorkeur en de complexiteit van de dataset. Hieronder verkennen we geoptimaliseerde methoden om dit efficiënt aan te pakken.

Methode 1: Gebruik van TEXTJOIN en UNIQUE functies

Als je Excel 365 of Excel 2021 hebt, bieden de nieuwe functies TEXTJOIN en UNIQUE een eenvoudige en efficiënte manier om unieke waarden uit een kolom samen te voegen.

Gebruik de volgende formule in een cel waar je het samengevoegde resultaat wilt hebben:

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

Methode 2: Gebruik van Kutools AI Assistent

Voor een snellere en volledig geautomatiseerde oplossing biedt Kutools voor Excel een innovatief hulpmiddel—"Kutools AI Assistent". Beschrijf gewoon je taak en de AI genereert binnen enkele seconden de gewenste resultaten zonder handmatige instellingen. Dit elimineert de noodzaak van complexe formules of tijdrovende configuraties.

Na installatie van Kutools Voor Excel, klik op "Kutools" > "AI Assistent" om het "Kutools AI Assistent" paneel te openen.

1. Selecteer de cellen waaruit je alleen unieke waarden wilt combineren;
2. Typ de vereiste in het chatvenster: zoals:
   Voeg unieke waarden samen met komma's uit het geselecteerde bereik en plaats het samengevoegde resultaat in cel C2
3. Druk vervolgens op Enter of klik op de "Verzenden" knop. Kutools AI zal de vraag analyseren, na afronding, klik op de "Uitvoeren" knop om het resultaat te krijgen.
   

Methode 3: Gebruik van een door de gebruiker gedefinieerde functie

Voor gevorderde gebruikers die meer flexibiliteit nodig hebben of het proces willen automatiseren, kan een aangepaste VBA-functie (UDF) worden gemaakt om unieke waarden samen te voegen. Deze methode is ideaal voor gebruikers die bekend zijn met coderen of die een herbruikbare oplossing nodig hebben.

1. Houd de toetsen "ALT + F11" ingedrukt om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik op "Invoegen" > "Module", en plak de volgende code in het Modulevenster.

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 vervolgens terug naar je werkblad en voer deze formule in: =ConcatUniq (A2:A18,",") in een lege cel waar je het samengevoegde resultaat wilt tonen, en druk op Enter om het unieke samengevoegde resultaat te krijgen, zie screenshot:

Unieke waarden weergeven en bijbehorende waarden samenvoegen

In Excel is het weergeven van unieke waarden en het samenvoegen van hun bijbehorende waarden een veelvoorkomende taak, vooral bij het werken met datasets die samenvatting of consolidatie vereisen. Deze sectie biedt een uitgebreide handleiding om dit efficiënt te bereiken.

Methode 1: Gebruik van TEXTJOIN en UNIQUE functies

Excel’s moderne functies zoals UNIQUE, FILTER en TEXTJOIN maken het gemakkelijk om unieke waarden weer te geven en hun bijbehorende waarden samen te voegen zonder de noodzaak van complexe formules.

1. Gebruik de functie UNIQUE om alle unieke waarden uit kolom A weer te geven:

=UNIQUE(A2:A17)

2. Pas TEXTJOIN en FILTER functies toe om de bijbehorende waarden voor de unieke waarde samen te voegen, sleep de formule omlaag om andere cellen te vullen, zie screenshot:

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

Methode 2: Gebruik van Kutools voor Excel

Als je Kutools voor Excel hebt, maakt de krachtige functie "Geavanceerd samenvoegen van rijen" het mogelijk om moeiteloos unieke waarden weer te geven en hun bijbehorende waarden samen te voegen—snel en gemakkelijk, zonder codering of complexe formules. Selecteer gewoon je gegevens, configureer de instellingen en laat Kutools de rest doen, met professionele resultaten binnen enkele seconden.

1. Kopieer en plak de originele gegevens naar een andere cel om de gegevens te back-uppen. Selecteer het gegevensbereik, klik dan op "Kutools" > "Samenvoegen & Opsplitsen" > "Geavanceerd samenvoegen van rijen", zie screenshot:

2. Configureer de instellingen in het dialoogvenster "Geavanceerd samenvoegen van rijen":

• Klik op de kolomnaam waarop je duplicaten wilt samenvoegen, en selecteer "Hoofdsleutel" uit de keuzelijst in de kolom "Bewerking";
• Selecteer vervolgens de kolomnaam waarvan je de waarden wilt samenvoegen, en selecteer een scheidingsteken om de waarden te scheiden uit de keuzelijst in de kolom "Bewerking";
• Klik ten slotte op de OK-knop.
  

Resultaat:

Kutools automatiseert het proces van het extraheren van unieke waarden en het samenvoegen van hun bijbehorende waarden met het opgegeven scheidingsteken.

Methode 3: Gebruik van VBA-code

Hoewel Excel’s ingebouwde functies zoals UNIQUE en TEXTJOIN dit tot op zekere hoogte kunnen afhandelen, kunnen ze tekortschieten bij het omgaan met complexe scenario's of oudere versies van Excel. Of je nu een beginner bent of een gevorderde gebruiker, deze handleiding begeleidt je door de stappen om unieke waarden weer te geven en hun bijbehorende waarden samen te voegen met behulp van VBA-code.

1. Houd de toetsen "ALT + F11" ingedrukt om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik op "Invoegen" > "Module", en plak de volgende code in het 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 vervolgens op F5 om deze code uit te voeren, en er verschijnt een pop-upvenster dat je eraan herinnert het gegevensbereik te selecteren dat je wilt samenvoegen op basis van de unieke waarden, zie screenshot:

4. Klik op OK, er verschijnt een ander pop-upvenster dat je eraan herinnert de cellen te selecteren om het resultaat te plaatsen:

5. Klik op OK, de unieke waarden zijn geëxtraheerd en hun bijbehorende waarden in een andere kolom zijn samengevoegd. Zie screenshot:

Concluderend, het samenvoegen van unieke waarden in Excel kan efficiënt worden bereikt door meerdere methoden die zijn afgestemd op verschillende niveaus van expertise en behoeften. Door de methode te kiezen die het beste bij je vereisten past, kun je het verwerken van gegevens stroomlijnen en de efficiëntie van het beheren van unieke waarden in Excel verbeteren. Als je geïnteresseerd bent in het verkennen van meer Excel-tips en -trucs, onze website biedt duizenden tutorials.