Hoe teksten in een kolom samen te voegen zonder duplicaten in Excel?
Weet u hoe u teksten uit een kolom in een cel kunt samenvoegen zonder duplicaten in Excel? En wat als teksten in een kolom worden samengevoegd zonder duplicaten op basis van een specifieke celwaarde? Dit artikel bevat methoden om de problemen op te lossen.
Voeg teksten in een kolom zonder duplicaten samen met de formule
Voeg teksten in een kolom samen zonder duplicaten op basis van een andere celwaarde met VBA-code
Voeg eenvoudig teksten samen in een kolom op basis van een andere celwaarde met een geweldige tool
Meer tutorial voor het combineren van cellen ...
Voeg teksten in een kolom zonder duplicaten samen met de formule
Zoals de onderstaande schermafbeelding laat zien, wilt u teksten in kolom A samenvoegen tot een enkele cel zonder duplicaten. Ga als volgt te werk.
1. Selecteer een lege cel, kopieer de onderstaande formule erin en druk op anders + Shift + Enter toetsen tegelijkertijd.
=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))
Opmerking: In de formule, ", ”Is het scheidingsteken van de gecombineerde teksten; A2: A12 zijn de kolomcellen die u samenvoegt. Wijzig ze indien nodig.
Nu worden de teksten in de opgegeven kolom samengevoegd zonder duplicaten.
Voeg teksten in een kolom samen zonder duplicaten op basis van een andere celwaarde met VBA-code
Soms moet u teksten in een kolom samenvoegen zonder duplicaten op basis van de waarde in een andere cel, zoals onderstaand screenshot, u kunt het als volgt weergeven.
1. In het werkblad met de teksten waaraan u wilt deelnemen, drukt u op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > module, en kopieer vervolgens de onderstaande VBA-code naar het modulecodevenster.
VBA-code: voeg teksten in een kolom samen zonder duplicaten 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 de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer het bereik met zowel de waarden waarop u teksten wilt samenvoegen als de teksten die u wilt samenvoegen, en klik vervolgens op de OK knop.
Vervolgens worden de unieke waarden geëxtraheerd en hun overeenkomstige unieke teksten in een andere kolom worden samengevoegd en in een nieuw werkblad geplaatst.
Voeg eenvoudig teksten samen in een kolom op basis van een andere celwaarde met een geweldige tool
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
Opmerking: Aangezien het hulpprogramma direct van toepassing is in het oorspronkelijke bereik, moet u een kopie maken van de originele gegevens voordat u de onderstaande bewerking toepast.
1. Selecteer het bereik (inclusief de teksten waarmee u zich aansluit en de waarde waarop u teksten samenvoegt), klik Kutools > Content > Geavanceerd Combineer rijen. Zie screenshot:
2. In de Geavanceerd Combineer rijen dialoog, doe dan als volgt:
- Selecteer de kolom met de waarden waarop u teksten wilt samenvoegen, en klik op Hoofdsleutel;
- Selecteer de kolom met de teksten die u in een cel wilt samenvoegen en klik op Combineren > Komma;
- Als er nog kolommen zijn, specificeer dan de voorwaarden ervoor. In dit geval selecteer ik de kolom Verkoop en selecteer ik Berekenen > Som.
- Klik op de OK knop. Zie screenshot:
Vervolgens kunt u zien dat alle teksten in de opgegeven kolom zijn samengevoegd op basis van de sleutelkolom. Zie screenshot:
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Gerelateerde artikelen
Combineer dubbele rijen en tel de waarden op in Excel
In Excel kunt u dit probleem altijd tegenkomen, als u een reeks gegevens hebt die enkele dubbele vermeldingen bevatten en u nu de dubbele gegevens wilt combineren en de overeenkomstige waarden in een andere kolom wilt optellen, hoe kunt u dit probleem dan oplossen? Probeer de methoden in dit artikel.
Combineer meerdere cellen in een cel met spatie, komma's of andere scheidingstekens in Excel
Wanneer u de cellen uit meerdere kolommen of rijen in één cel combineert, worden de gecombineerde gegevens mogelijk door niets gescheiden. Maar als u ze wilt scheiden met gespecificeerde markeringen, zoals spatie, komma's, puntkomma of andere, hoe kunt u dat dan doen? Deze tutorial introduceert enkele methoden voor je.
Voeg cellen samen met behoud van getal- / datumnotatie in Excel
Het is je misschien opgevallen dat wanneer we de functie CONCATENATE toepassen in Excel, de datumnotatie (2014-01-03) en getalnotatie zoals valuta-indeling ($ 734.7), percentage-indeling (48.9%), decimalen (24.5000), etc. worden verwijderd en worden als algemene getallen weergegeven in de resultaten van de aaneenschakeling. In dit artikel komen we met verschillende tijdelijke oplossingen om gegevens samen te voegen met het behouden van datum- of getalnotatie in Excel.
Keer de aaneenschakelfunctie in Excel om
Zoals we allemaal weten, kan de functie Concatenate in Excel ons helpen om meerdere cellen in één cel te combineren, maar soms wil je het tegenovergestelde doen van de functie Concatenate, dit betekent dat je geen cellen combineert, maar de celwaarde splitst in meerdere gescheiden cellen. De methoden in dit artikel helpen het probleem op te lossen.
Voeg cellen samen als dezelfde waarde in een andere kolom in Excel voorkomt
Dit artikel biedt methoden waarmee u eenvoudig cellen kunt samenvoegen als dezelfde waarde in een andere kolom in Excel bestaat.
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!