Gå til hovedindhold

Hvordan sammenkædes celler, hvis samme værdi findes i en anden kolonne i Excel?

Forfatter: Siluvia Sidst ændret: 2024-12-10

Som vist på skærmbilledet nedenfor, hvis du vil sammenkæde celler i den anden kolonne baseret på de samme værdier i den første kolonne, er der flere metoder, du kan bruge. I denne artikel vil vi introducere tre måder at udføre denne opgave på.

Skærmbillede, der viser en tabel med sammenkædede værdier baseret på fælles nøgler


Sammenkæd celler, hvis samme værdi er med formler og filter

Følgende formler hjælper med at sammenkæde de tilsvarende celler i én kolonne baseret på matchende værdier i en anden kolonne.

1. Vælg en tom celle udover den anden kolonne (her vælger vi celle C2), indtast formel = HVIS (A2 <> A1, B2, C1 & "," & B2) ind i formellinjen, og tryk derefter på Indtast nøgle.

Skærmbillede af en formel anvendt til at sammenkæde værdier i Excel

2. Vælg derefter celle C2, og træk udfyldningshåndtaget ned til celler, du skal sammenkæde.

Skærmbillede af træk i udfyldningshåndtaget i Excel for at anvende sammenkædningsformel

3. Indtast formlen = HVIS (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") ind i celle D2, og træk Fill Handle ned til resten af ​​cellerne.

Skærmbillede af et sammenkædningsformelresultat i Excel

4. Vælg celle D1, og klik data > filtre. Se skærmbillede:

Skærmbillede, der viser filterindstillingen i Excel-bånd

5. Klik på drop-down pilen i celle D1, fjern markeringen af (Blank) og klik derefter på OK .

Skærmbillede af rullemenuen med Excel-filter, der viser mulighederne for filtrering af tomme celler

Du kan se, at cellerne sammenkædes, hvis de første kolonneværdier er de samme.

Skærmbillede af endelige sammenkædede resultater i Excel efter filtrering

Bemærk: For at bruge ovenstående formler med succes skal de samme værdier i kolonne A være kontinuerlige.


Nem sammenkædning af celler, hvis de har samme værdi med Kutools for Excel (flere klik)

Metoden beskrevet ovenfor kræver oprettelse af to hjælpekolonner og involverer flere trin, hvilket kan være ubelejligt. Hvis du leder efter en enklere måde, kan du overveje at bruge Avancerede kombinere rækker værktøjet fra Kutools for Excel. Med blot et par klik giver dette værktøj dig mulighed for at sammenkæde celler ved hjælp af en specifik afgrænser, hvilket gør processen hurtig og problemfri.

Kutools for Excel tilbyder over 300 avancerede funktioner til at strømline komplekse opgaver, hvilket øger kreativiteten og effektiviteten. Itegarate med AI-funktioner, Kutools automatiserer opgaver med præcision, hvilket gør datahåndtering ubesværet. Detaljeret information om Kutools for Excel...         Gratis prøveversion...

1. klik Kutools > Flet og del > Avancerede kombinere rækker at aktivere denne funktion.

2. i Avancerede kombinere rækker dialogboks, skal du blot:

  • Vælg det område, du vil sammenkæde;
  • Indstil kolonnen med de samme værdier som Primærnøgle kolonne.
  • Angiv en separator for at kombinere cellerne.
  • Klik OK.
  • Skærmbillede viser Kutools Avancerede indstillinger for rækkekombination til sammenkædning af celler

Resultat

Skærmbillede af sammenkædede resultater ved hjælp af Kutools

Bemærk:

Sammenkæd celler, hvis samme værdi er med VBA-kode

Du kan også bruge VBA-kode til at sammenkæde celler i en kolonne, hvis den samme værdi findes i en anden kolonne.

1. Trykke andre + F11 nøgler til at åbne Microsoft Visual Basic-applikationer vindue.

2. i Microsoft Visual Basic-applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående kode i Moduler vindue.

VBA-kode: sammenkæd celler, hvis de samme værdier er

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

Noter:

1. D1 i linjen Indstil xRg = Range ("D1") betyder, at resultatet vil blive placeret startende med celle D1.
2. "Ingen"og "Kombineret farve" i linjen xRes (1, 1) = "Nej" og xRes (1, 2) = "Kombineret farve" er overskrifterne på de valgte kolonner. 

3. Tryk på F5 nøgle for at køre koden, så får du de sammenkædede resultater inden for det angivne interval.

Skærmbillede, der viser sammenkædede resultater ved hjælp af VBA


Demo: Sammenkæd nemt celler, hvis de har samme værdi med Kutools for Excel

Kutools for Excel: Over 300 praktiske værktøjer lige ved hånden! Nyd permanent gratis AI-funktioner! Hent nu!

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI-hjælper: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  påberåbe Kutools Funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere
Brug Kutools på dit foretrukne sprog – understøtter engelsk, spansk, tysk, fransk, kinesisk og over 40 andre!

Boost dine Excel-færdigheder med Kutools for Excelog oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner, der øger produktiviteten og sparer tid.  Klik her for at få den funktion, du har mest brug for...


Office Tab Bringer fanebladsbaseret brugerflade til Office og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!