If du har Kutools for Excel, vil denne oppgaven ikke lenger være et problem. Advanced Kombiner Rows verktøyet kan hjelpe deg med å kombinere alle relative verdier basert på en kolonne
Kutools for Excel. Med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
1. Velg dataområdet som du ønsker å kombinere alle samsvarende verdier basert på en kolonne.
2. Klikk Kutools > Innhold > Avansert Kombiner Rader, se skjermbilde:
tre. I Kombiner Rows Basert på Column dialogboksen, klikker du kolonnenavnet som du ønsker å kombinere basert på, og klikk deretter Primary Key knappen, se skjermbilde:
4. Klikk deretter andre kolonnen navn som du ønsker å kombinere sine matchet verdier, og klikk Kombiner å velge en separator for å skille de samlede verdier, se skjermbilde:
5. Klikk deretter på OK-knappen, har alle de tilsvarende celler med samme verdi slått sammen til én celle som er adskilt med komma, se skjerm:
Klikk for å vite mer detaljer om denne Avansert Kombiner Rows verktøy ...
Gratis Last ned Kutools for Excel Nå
Retur flere oppslags verdier i en kommaseparert celle med brukerdefinerte funksjonen
Normalt er det ingen direkte måte for oss å hente ut og returnere flere samsvarende verdier og atskilt med komma inn i en celle, Herfra kan du opprette en brukerdefinert funksjon for å løse denne jobben, kan du gjøre som følger:
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Returner flere oppslags verdier i én kommaseparert celle
Funksjon SingleCellExtract (LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String) ' Updateby20150824 Dim Jeg As Long Dim xRet As String For I = 1 Til LookupRange.Columns (1) .Cells.Count Hvis LookupRange.Cells (I, 1) = LookupValue Så hvis xRet = "" Så xRet = LookupRange.Cells (I, ColumnNumber) & Char Else xRet = xRet & "" &Amp; LookupRange.Cells (I, ColumnNumber) & Char End If End If Neste SingleCellExtract = Left (xRet, Len (xRet) - 1) End Function3. Deretter lagre denne koden og lukke Module vinduet, gå tilbake til regnearket, og skriv denne formelen: = SingleCellExtract (D2, A2: B15,2, ",") inn i en tom celle som du ønsker å returnere resultatet. Og trykk Enter-tasten for å få resultatet, se skjermbilde:
Merk: I formelen ovenfor:
D2 indikerer celleverdiene som du ønsker å slå opp,
A2: B15: er data varierer at du ønsker å hente data,
2: nummer 2 er kolonnenummeret som sams verdi skal returneres,
,: kommaet er separatoren at du ønsker å skille flere verdier <. br> Du kan endre dem til dine behov
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Datamaskin læring 