Hoe unieke waarden in Excel samen te voegen?

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

Vind unieke waarden in een kolom en voeg ze samen tot één cel met VBA-code

Vind unieke waarden in een kolom en voeg ze samen tot één cel met Kutools voor Excel

Maak een lijst van unieke waarden en voeg overeenkomstige waarden samen met VBA-code

Maak een lijst van unieke waarden en voeg overeenkomstige waarden samen met Kutools voor Excel

Vind unieke waarden in een kolom en voeg ze samen tot één cel met VBA-code

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

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

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: voeg unieke waarden samen 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 uw werkblad en voer deze formule in: = ConcatUniq (A1: A17, ",") in een lege cel waar u het aaneengeschakelde resultaat wilt uitvoeren en druk op Enter sleutel om het unieke aaneengeschakelde resultaat te krijgen, zie screenshot:

Opmerking:: In de bovenstaande formule, A1: A17 is het celbereik dat u wilt samenvoegen, en de komma ',”Is het scheidingsteken dat u nodig hebt om de gecombineerde waarden te scheiden, u kunt ze naar wens wijzigen.

Vind unieke waarden in een kolom en voeg ze samen tot één cel met Kutools voor Excel

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

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

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

2. Klikken Kutools > kies > Selecteer Dubbele en unieke cellen, zie screenshot:

3. In de Selecteer Dubbele en unieke cellen dialoogvenster, selecteer Allemaal uniek (inclusief 1e duplicaten) optie onder de Regel sectie, zie screenshot:

Tips: Als u de unieke waarden wilt combineren met uitzondering van de eerste dubbele waarden, vink dan aan Alleen unieke waarden optie.

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

5. Selecteer de geplakte unieke cellen en klik op Kutools > Samenvoegen en splitsen > Combineer rijen, kolommen of cellen zonder gegevens te verliezen, zie screenshot:

6. In de Combineer kolommen of rijen dialoogvenster, kies Combineer tot een enkele cel onder de Om geselecteerde cellen te combineren volgens de volgende optiesen specificeer vervolgens een scheidingsteken voor uw gecombineerde gegevens, zie screenshot:

7. Dan klikken Ok or Toepassen knop, zijn de geëxtraheerde unieke waarden samengevoegd tot één cel zoals in het volgende screenshot wordt getoond:

Gratis download Kutools voor Excel nu!

Maak een lijst van unieke waarden en voeg overeenkomstige waarden samen met VBA-code

In een ander geval heb je een gegevensbereik dat uit twee kolommen bestaat, en nu wil je alleen de unieke waarden weergeven en hun overeenkomstige waarden van een andere kolom samenvoegen om het volgende resultaat te krijgen, heb je goede manieren om deze klus te klaren in Excel?

Hier kunt u de volgende VBA-code toepassen om met deze taak om te gaan, doe dit als volgt:

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

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: maak een lijst van unieke waarden en voeg de bijbehorende gegevens samen

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
    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 er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt samenvoegen op basis van de unieke waarden, zie screenshot:

4. Klikken OKzijn de unieke waarden geëxtraheerd en zijn hun overeenkomstige waarden in een andere kolom samengevoegd tot een nieuw werkblad.

Opmerking:: 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 waarvan u de gecombineerde gegevens wilt scheiden.

Maak een lijst van unieke waarden en voeg overeenkomstige waarden samen met Kutools voor Excel

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

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

1. Maak eerst een kopie van uw originele gegevens als u de originele gegevens wilt behouden. En selecteer vervolgens het gegevensbereik dat u wilt samenvoegen op basis van de unieke waarden.

2. Dan klikken Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen, zie screenshot:

3. In de Geavanceerd Combineer rijen dialoogvenster, klik op de kolomnaam waarvan u alleen de unieke waarden wilt weergeven, en klik op Hoofdsleutel, zie screenshot:

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

5. En klik vervolgens op Ok knop, zijn de waarden aaneengeschakeld op basis van de unieke waarden van een andere kolom zoals in de volgende schermafbeelding:

Gratis download Kutools voor Excel nu!

---

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...