Hur sammanfoga celler om samma värde finns i en annan kolumn i Excel?
Som visas i skärmdumpen nedan, om du vill sammanfoga celler i den andra kolumnen baserat på samma värden i den första kolumnen, finns det flera metoder du kan använda. I den här artikeln kommer vi att presentera tre sätt att utföra denna uppgift.
Sammankoppla celler om samma värde med formler och filter
Följande formler hjälper till att sammanfoga motsvarande celler i en kolumn baserat på matchande värden i en annan kolumn.
1. Välj en tom cell förutom den andra kolumnen (här väljer vi cell C2), ange formel = IF (A2 <> A1, B2, C1 & "," & B2) i formelfältet och tryck sedan på ange nyckel.
2. Välj sedan cell C2 och dra ner Fill Handle till celler som du behöver sammanfoga.
3. Ange formel = IF (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") in i cell D2 och dra Fill Handle ned till resten av cellerna.
4. Välj cell D1 och klicka Data > Filter. Se skärmdump:
5. Klicka på rullgardinspilen i cell D1, avmarkera kryssrutan (Tomt) och klicka sedan på OK knapp.
Du kan se att cellerna sammanfogas om de första kolumnvärdena är desamma.
Anmärkningar: För att använda ovanstående formler framgångsrikt måste samma värden i kolumn A vara kontinuerliga.
Sammankoppla celler enkelt om samma värde med Kutools för Excel (flera klick)
Metoden som beskrivs ovan kräver att två hjälpkolumner skapas och involverar flera steg, vilket kan vara obekvämt. Om du letar efter ett enklare sätt, överväg att använda Avancerade kombinera rader verktyg från Kutools för Excel. Med bara några klick låter det här verktyget dig sammanfoga celler med en specifik avgränsare, vilket gör processen snabb och problemfri.
1. klick Kutools > Slå ihop och dela > Avancerade kombinera rader för att aktivera den här funktionen.
2. I Avancerade kombinera rader dialogrutan behöver du bara:
- Välj intervallet du vill sammanfoga;
- Ställ in kolumnen med samma värden som Primärnyckel kolonn.
- Ange en separator för att kombinera cellerna.
- Klicka OK.
Resultat
Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av permanent gratis AI-funktioner! Hämta den nu
- För att veta mer om den här funktionen, ta en titt på den här artikeln: Kombinera snabbt samma värden eller duplicera rader i Excel
Sammankoppla celler om samma värde med VBA-kod
Du kan också använda VBA-kod för att sammanfoga celler i en kolumn om samma värde finns i en annan kolumn.
1. Tryck andra + F11 nycklar för att öppna Microsoft Visual Basic-applikationer fönster.
2. I Microsoft Visual Basic-applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra sedan in koden nedan i Modulerna fönster.
VBA-kod: sammanfoga celler om samma värden
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
Anmärkningar:
3. tryck på F5 nyckel för att köra koden, då får du de sammanfogade resultaten inom angivet intervall.
Demo: Sammanfoga enkelt celler om samma värde med Kutools för Excel
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!