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:
Note: 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.
| Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
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 Solliciteer 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.
Note: 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!
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!
