Hoe cellen samen te voegen als dezelfde waarde in een andere kolom in Excel bestaat?
Zoals te zien is in de onderstaande schermafbeelding, zijn er verschillende methoden die u kunt 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 te volbrengen.
Voeg cellen samen als dezelfde waarde met formules en filter
De volgende formules helpen om de inhoud van de overeenkomstige cellen in een kolom samen te voegen op basis van dezelfde waarde in een andere kolom.
1. Selecteer een lege cel naast de tweede kolom (hier selecteren we cel C2), voer de formule in = ALS (A2 <> A1, B2, C1 & "," & B2) in de formulebalk en druk vervolgens op Enter sleutel.
2. Selecteer vervolgens cel C2 en sleep de vulhendel naar de cellen die u wilt samenvoegen.
3. Voer de formule in = ALS (A2 <> A3, SAMENHANG (A2, "," "", C2, "" ""), "") in cel D2 en sleep de vulhendel naar de overige cellen.
4. Selecteer cel D1 en klik op Data > FILTER. Zie screenshot:
5. Klik op de vervolgkeuzepijl in cel D1, schakel het selectievakje uit (Spaties) vak en klik vervolgens op het OK knop.
U kunt zien dat de cellen aaneengeschakeld zijn als de eerste kolomwaarden hetzelfde zijn.
Note: Om de bovenstaande formules met succes te gebruiken, moeten dezelfde waarden in kolom A continu zijn.
Voeg cellen eenvoudig samen als dezelfde waarde met Kutools voor Excel (meerdere klikken)
De hierboven beschreven methode vereist het maken van twee helperkolommen en omvat meerdere stappen, wat onhandig kan zijn. Als u op zoek bent naar een eenvoudigere manier, overweeg dan om de Geavanceerd Combineer rijen tool van Kutools for Excel. Met slechts een paar klikken kunt u met dit hulpprogramma cellen samenvoegen met een specifiek scheidingsteken, waardoor het proces snel en probleemloos verloopt.
Tip: Installeer deze voordat u deze tool toepast Kutools for Excel in de eerste plaats. Ga nu naar gratis downloaden.
- Selecteer het bereik dat u wilt samenvoegen;
- Stel de kolom in met dezelfde waarden als de Hoofdsleutel kolom.
- Geef een scheidingsteken op om de cellen te combineren.
- Klik OK.
Resultaat
- Om deze functie toe te passen, alstublieft download en installeer Kutools voor Excel kopen.
- Bekijk dit artikel voor meer informatie over deze functie: Combineer snel dezelfde waarden of dubbele rijen in Excel
Voeg cellen samen als dezelfde waarde met VBA-code
U kunt ook VBA-code gebruiken om cellen in een kolom samen te voegen als dezelfde waarde in een andere kolom bestaat.
1. druk op anders + F11 toetsen om de te openen Microsoft Visual Basic-toepassingen venster.
2. In de Microsoft Visual Basic-toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens onderstaande code in het Module venster.
VBA-code: voeg cellen samen als dezelfde 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 Sub
Opmerkingen:
3. druk de F5 sleutel om de code uit te voeren, dan krijgt u de aaneengeschakelde resultaten binnen het opgegeven bereik.
Voeg cellen eenvoudig samen met dezelfde waarde met Kutools voor Excel
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!