Hoe voegt u cellen samen wanneer er een identieke waarde voorkomt in een andere kolom in Excel?
Zoals in de onderstaande afbeelding wordt weergegeven, kunt u verschillende methoden gebruiken als u cellen in de tweede kolom wilt samenvoegen op basis van dezelfde waarden in de eerste kolom. In dit artikel introduceren we drie manieren om deze taak uit te voeren.
Cellen samenvoegen bij gelijke waarden met formules en filter
De volgende formules helpen u om overeenkomstige cellen samen te voegen in één kolom, op basis van overeenkomende waarden in een andere kolom.
1. Selecteer een lege cel naast de tweede kolom (hier kiezen we cel C2), typ de formule =IF(A2<>A1,B2,C1 & "," & B2) in de formulebalk en druk daarna op de Enter-toets.
2. Selecteer vervolgens cel C2 en sleep de vulgreep naar beneden naar de cellen die u wilt samenvoegen.
3. Voer de formule =IF(A2<>A3,CONCATENATE(A2,""",C2,""""),"") in cel D2 in en sleep de vulgreep naar beneden naar de resterende cellen.
4. Selecteer cel D1 en klik op Gegevens > Filter. Zie afbeelding:
5. Klik op de keuzelijstpijl in cel D1, schakel het selectievakje (Leeg) uit en klik vervolgens op de knop OK.
U ziet dat cellen automatisch worden samengevoegd wanneer de waarden in de eerste kolom identiek zijn.
Opmerking: Om de bovenstaande formules succesvol te gebruiken, moeten de gelijke waarden in kolom A aaneengesloten zijn.
Voeg eenvoudig cellen samen bij gelijke waarden met Kutools voor Excel (slechts enkele klikken)
De hierboven beschreven methode vereist het aanmaken van twee hulpkolommen en bestaat uit meerdere stappen, wat nogal omslachtig kan zijn. Als u op zoek bent naar een eenvoudigere oplossing, overweeg dan de Geavanceerd samenvoegen van rijen-tool van Kutools voor Excel. Met slechts een paar klikken voegt u cellen samen met een specifiek scheidingsteken—snel, eenvoudig en zonder gedoe.
1. Klik op Kutools > Samenvoegen en splitsen > Geavanceerd samenvoegen van rijen om deze functie in te schakelen.
2. In het dialoogvenster Geavanceerd samenvoegen van rijen hoeft u alleen het volgende te doen:
- Selecteer het bereik dat u wilt samenvoegen;
- Stel de kolom in op dezelfde waarden als de Primaire sleutel-kolom.
- Scheidingsteken om cellen samen te voegen.
- Klik op OK.
Resultaat
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
- Voor meer informatie over deze functie, bekijk dit artikel:Combineer snel dezelfde waarden of Dubbele rij in Excel
Cellen samenvoegen bij gelijke waarden met VBA-code
U kunt ook VBA-code gebruiken om cellen in een kolom samen te voegen wanneer er een overeenkomende waarde voorkomt in een andere kolom.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande code in het Module-venster.
VBA-code: cellen samenvoegen bij gelijke waarden
Sub ConcatenateCellsIfSameValues()
Dim xCol As New Collection
Dim xSrc As Variant
Dim xRes() As Variant
Dim I As Long
Dim J As Long
Dim xRg As Range
xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
Set xRg = Range("D1")
On Error Resume Next
For I = 2 To UBound(xSrc)
xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Next I
On Error GoTo 0
ReDim xRes(1 To xCol.Count + 1, 1 To 2)
xRes(1, 1) = "No"
xRes(1, 2) = "Combined Color"
For I = 1 To xCol.Count
xRes(I + 1, 1) = xCol(I)
For J = 2 To UBound(xSrc)
If xSrc(J, 1) = xRes(I + 1, 1) Then
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
End If
Next J
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Next I
Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
End SubOpmerkingen:
3. Druk op de F5-toets om de code uit te voeren; u krijgt dan de samengevoegde resultaten in Beperkt bereik.
Demo: Voeg eenvoudig cellen samen bij gelijke waarden met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins