Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe unieke waarden samen te voegen in Excel?

Als ik een lange lijst met waarden heb die is gevuld met een aantal dubbele gegevens, wil ik nu alleen de unieke waarden vinden en ze vervolgens samenvoegen tot één cel. Hoe kon ik dit probleem snel en gemakkelijk in Excel oplossen?

Vind unieke waarden in een kolom en koppel ze in één cel met VBA-code

Vind unieke waarden in een kolom en koppel ze in één cel met Kutools voor Excel

Geef unieke waarden op en combineer bijbehorende waarden met VBA-code

Geef unieke waarden op en voeg overeenkomende waarden samen met Kutools voor Excel


pijl blauwe rechterbel Vind unieke waarden in een kolom en koppel ze in één cel met VBA-code


De volgende Door de gebruiker gedefinieerde functie kan u helpen om alleen de unieke waarden in één cel uit een lijst samen te voegen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: unieke waarden samenvoegen tot één cel:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice 20151228
    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 uw werkblad en voer deze formule in: = ConcatUniq (A1: A17, ",") in een lege cel waar u het samengevoegde resultaat wilt uitvoeren en druk op invoeren sleutel om het unieke aaneengeschakelde resultaat te krijgen, zie screenshot:

doc concatenate uniques 1

Notes: In de bovenstaande formule, A1: A17 is het cellenbereik dat u wilt samenvoegen en de komma ","Is het scheidingsteken dat u nodig hebt om de gecombineerde waarden te scheiden, u kunt ze naar uw behoefte wijzigen.


pijl blauwe rechterbel Vind unieke waarden in een kolom en koppel ze in één cel met Kutools voor Excel

Als u niet bekend bent met de VBA-code, Kutools for Excel kan je ook helpen, je kunt het combineren Selecteer Dupliceren en unieke cellen en Combineren hulpprogramma's om het gewenste resultaat te bereiken.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, doe als volgt :( Download nu Kutools voor Excel! )

1. Selecteer de lijst met cellen waarvan u alleen de unieke waarden wilt combineren.

2. Klikken Kutools > kiezen > Selecteer Dupliceren en unieke cellenzie screenshot:

doc concatenate uniques 2

3. In de Selecteer Dupliceren en unieke cellen dialoogvenster, selecteer Alle unieke (inclusief 1 st duplicaten) optie onder de Regel sectie, zie screenshot:

Tips: Als u de unieke waarden wilt combineren met uitzondering van het eerste duplicaat, controleert u Alleen unieke waarden optie.

doc concatenate uniques 3

4. Dan klikken OK en alleen de unieke waarden zijn geselecteerd en druk vervolgens op CTRL + C om ze te kopiëren en op een specifieke locatie te plakken door op te drukken Ctrl + Vzie screenshot:

doc concatenate uniques 4

5. Selecteer de geplakte unieke cellen en klik vervolgens op Kutools > Combinerenzie screenshot:

doc concatenate uniques 5

6. In de Kolommen of rijen combineren dialoogvenster, kies Combineer in een enkele cel onder de Om geselecteerde cellen te combineren op basis van de volgende optiesen geef vervolgens een scheidingsteken voor uw gecombineerde gegevens op, zie screenshot:

doc concatenate uniques 6

7. Dan klikken Ok or Van toepassing zijn knop, de geëxtraheerde unieke waarden zijn samengevoegd tot één enkele cel als volgt: screenshot getoond:

doc concatenate uniques 7

Download nu Kutools voor Excel!


pijl blauwe rechterbel Geef unieke waarden op en combineer bijbehorende waarden met VBA-code

In een ander geval hebt u een gegevensbereik met twee kolommen en nu wilt u alleen de unieke waarden weergeven en de bijbehorende waarden van een andere kolom samenvoegen om het volgende resultaat te krijgen. Heeft u goede manieren om deze taak te voltooien? in Excel?

doc concatenate uniques 8

Hier kunt u de volgende VBA-code toepassen om met deze taak om te gaan. Ga hiervoor als volgt te werk:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: geef een lijst met unieke waarden en voeg de bijbehorende gegevens samen

Sub test()
'updateby Extendoffice 20151228
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    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
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en een promptvakje wordt uitgeklapt om u eraan te herinneren dat u het gegevensbereik selecteert dat u wilt samenvoegen op basis van de unieke waarden, zie screenshot:

doc concatenate uniques 9

4. Klikken OK, de unieke waarden zijn geëxtraheerd en de bijbehorende waarden in een andere kolom zijn samengevoegd tot een nieuw werkblad.

Notes: In de bovenstaande code kunt u de rode komma wijzigen xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) in dit script naar andere scheidingstekens die u de gecombineerde gegevens wilt scheiden.


pijl blauwe rechterbel Geef unieke waarden op en voeg overeenkomende waarden samen met Kutools voor Excel

Als je Kutools for Excel, Met Geavanceerd Combineer rijen functie, kunt u dit probleem snel en eenvoudig oplossen zonder enige code.

Na het installeren van Kutools for Excel, doe als volgt :( Download nu Kutools voor Excel! )

1. Eerst moet u een kopie van uw originele gegevens maken als u de originele gegevens wilt behouden. Selecteer vervolgens het gegevensbereik dat u wilt samenvoegen op basis van de unieke waarden.

2. Dan klikken Kutools > Content > Geavanceerd Combineer rijenzie screenshot:

doc concatenate uniques 10

3. In de Geavanceerd Combineer rijen Klik op de kolomnaam waarvan u alleen de unieke waarden wilt weergeven en klik op Hoofdsleutelzie screenshot:

doc concatenate uniques 11

4. Klik vervolgens op een andere kolomnaam die u wilt samenvoegen en klik op Combinerenen kies een scheidingsteken voor het scheiden van uw gecombineerde gegevens, zie screenshot:

doc concatenate uniques 12

5. En klik vervolgens op Ok knop, zijn de waarden aaneengeschakeld op basis van de unieke waarden van een andere kolom zoals het volgende screenshot is getoond:

doc concatenate uniques 13

Download nu Kutools voor Excel!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MSBrown · 2 years ago
    I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
  • To post as a guest, your comment is unpublished.
    Marek · 2 years ago
    Thank you! Great and simple function works perfect for me!

    https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1