Hvordan sette sammen celler hvis samme verdi eksisterer i en annen kolonne i

With nedenfor formler Excel?, Kan du sette sammen tilsvarende celleinnholdet hvis en annen kolonne inneholder samme verdi i Excel.
1. Velg en tom celle i tillegg til andre kolonne (her velger vi celle C2), skriv formelen = HVIS (A2 < > A1, B2, C1 & "," & B2) i formellinjen, og deretter trykker du på Enter-tasten .
to. Deretter velger celle C2, og drar fyllhåndtaket ned til cellene du trenger for å sette sammen
3.. Skriv inn formelen = HVIS (A2 < > A3, KJEDE.SAMMEN (A2, "", "", C2, "" ""), "") i celle D2, og drar fyllhåndtaket ned til resten cellene
<. br> Formula er for komplisert til å huske? Auto Text trekk ved Kutools for Excel kan lagre formelen som en Auto Tekst oppføring for gjenbruk med bare ett klikk i fremtiden! Les mer ... eller Last ned gratis trail nå! 4. Velg celle D1, og klikker på Data > Filter. Se skjermbilde:
5. Klikk på rullegardinpilen i celle D1, fjerner (Blanks), og klikk deretter på OK-knappen.
Du kan se cellene er sammensatt hvis de første kolonneverdier er samme.

Merk:. For å bruke formlene ovenfor vellykket, de samme verdiene i kolonne A må være sammenhengende
Vanskelig å huske formler? Du kan oppnå det gjennom den tredje metoden med bare noen klikk.

Slå sammen celler hvis samme verdi med VBA-kode
tillegg formel, i denne delen, vil vi vise deg hvordan du bruker VBA-kode for å slå sammen celler hvis samme verdi.
1. Trykk Alt + F11 tastene for å åpne Microsoft Visual Basic Applications vinduet.
2. I Microsoft Visual Basic Applications vinduet klikker du Sett > Modul. Deretter kopiere og lime inn under koden i Module vinduet
VBA-kode. Slå sammen celler hvis samme verdiene
Sub ConcatenateCellsIfSameValues ​​() Dim xCol Som ny samling Dim xSrc As Variant Dim xRes () As Variant Dim jeg As Long Dim J Som Long Dim XRG som Range xSrc = Range ("A1", Cells (Rows.Count, "A"). End (xlUp)). Resize (2) Set XRG = Range ("D1") On Error Resume Next For I = 2 Slik UBound (xSrc) xCol.Add xSrc (I, 1), Typename (xSrc (I, 1)) & CSTR (xSrc (I, 1)) Neste I On Error GoTo 0 ReDim xRes (1 til xCol.Count + 1, 1 til 2) xRes (1, 1) = "Ingen" xRes (1, 2) = "Kombinert Color "For jeg = 1 Til xCol.Count xRes (I + 1, 1) = xCol (I) For J = 2 UBound (xSrc) Hvis xSrc (J, 1) = xRes (I + 1, 1) Then xRes ( I + 1, 2) = xRes (I + 1, 2) &Co. "," &Co. xSrc (J, 2) End If Neste J xRes (I + 1, 2) = Mid (xRes (I + 1, 2), 2) Neste I Set XRG = xRg.Resize (UBound (xRes, 1), UBound ( xRes, 2)) xRg.NumberFormat = "@" XRG = xRes xRg.EntireColumn.AutoFitEnd SubNotes:
1. D1 i tråd Set XRG = Range ("D1") betyr at resultatet vil bli plassert i celle D1.
2. Nei og Kombinert Color i linje xRes (1, 1) = "Nei" og xRes (1, 2) = "Kombinert Color" er overskrifter av sammenkjedede kolonner. Du kan endre dem som du trenger.
3. Trykk F5 for å kjøre koden, så vil du få de sammenkjedede resultater i angitte området.

Enkelt sette sammen celler hvis samme verdi med Kutools for Excel (flere klikk)
Hvis det over to metoder er komplisert for deg, her vil vi vise deg den avanserte Kombiner Rader nytten av Kutools for Excel. Etter å ha installert Kutools for Excel, kan du enkelt sette sammen celler med komma, semikolon og så videre hvis samme verdiene eksisterer i en annen kolonne
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce 1. Merk området med celler du trenger for å sette sammen, og klikk deretter Kutools > Innhold > Avansert Kombiner rader. Se skjermbilde:
to. I Kombiner Rows Basert på dialog Column boksen, må du gjøre som følger.


A. Velg kolonnen med samme verdi du ønsker å slå sammen celler i henhold til, og deretter klikker du primærnøkkelknappen.

B. Velg kolonnen du ønsker å sette sammen, klikk Kombiner knappen, og angi deretter en separator fra hurtigmenyen (her velger vi Comma).

C. Klikk på OK-knappen. Se skjermbilde:

Gratis Last ned Kutools for Excel Nå
Nå cellene er sammensatt i henhold til primærnøkkelen kolonnen
Hvis dette verktøyet er nyttig, kan du laste ned og prøve den gratis prøveperioden. nå!