Hvordan sammenkædes let tekst baseret på kriterier i Excel?
Antag, at jeg har en kolonne med ID-numre, der indeholder nogle duplikater og en kolonne med navne, og nu vil jeg sammenkæde navnene baseret på de unikke ID-numre som vist skærmbillede til venstre for hurtigt at kombinere teksten baseret på kriterier, hvordan kunne vi gøre i Excel?
Sammenkæd tekst baseret på kriterier med brugerdefineret funktion
Sammenkæd tekst baseret på kriterier med Kutools til Excel
Sammenkæd tekst baseret på kriterier med brugerdefineret funktion
For at kombinere tekst med de unikke ID-numre kan du først udpakke de unikke værdier og derefter oprette en brugerdefineret funktion for at kombinere navnene baseret på det unikke ID.
1. Tag følgende data som eksempel, du skal først udpakke de unikke ID-numre. Anvend venligst denne matrixformel: =IFERROR(INDEX($A$2:$A$15, MATCH(0,COUNTIF($D$1:D1, $A$2:$A$15), 0)),""), Indtast denne formel i en tom celle, f.eks. D2, og tryk derefter på Ctrl + Skift + Enter nøgler sammen, se skærmbillede:
Tip: I ovenstående formel A2: A15 er det listedataområde, du vil udtrække unikke værdier fra, D1 er den første celle i den kolonne, du vil lægge udtrækningsresultatet ud.
2. Og træk derefter fyldhåndtaget ned for at udtrække alle unikke værdier, indtil blanke vises, se skærmbillede:
3. I dette trin skal du oprette en Brugerdefineret funktion Hvis du vil kombinere navnene baseret på de unikke ID-numre, skal du holde nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.
4. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: sammenkædet tekst baseret på kriterier
Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
'Updateby Extendoffice
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
ConcatenateIf = CVErr(xlErrRef)
Exit Function
End If
For i = 1 To CriteriaRange.Count
If CriteriaRange.Cells(i).Value = Condition Then
xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
End If
Next i
If xResult <> "" Then
xResult = VBA.Mid(xResult, VBA.Len(Separator) + 1)
End If
ConcatenateIf = xResult
Exit Function
End Function
5. Gem derefter og luk denne kode, gå tilbage til dit regneark, og indtast denne formel i celle E2, = CONCATENATEIF ($ A $ 2: $ A $ 15, D2, $ B $ 2: $ B $ 15, ",") , se skærmbillede:
6. Træk derefter fyldhåndtaget ned til de celler, som du vil anvende denne formel, og alle de tilsvarende navne er blevet kombineret baseret på ID-numrene, se skærmbillede:
tips:
1. I ovenstående formel A2: A15 er de originale data, som du vil kombinere baseret på, D2 er den unikke værdi, du har ekstraheret, og B2: B15 er den kolonne, du vil kombinere sammen.
2. Som du kan se, kombinerede jeg de værdier, der er adskilt med komma, du kan bruge andre tegn ved at ændre kommaet "," med formlen efter behov.
Sammenkæd tekst baseret på kriterier med Kutools til Excel
Hvis du har Kutools til Excel, Med Avancerede kombinere rækker værktøj, kan du hurtigt og bekvemt sammenkæde tekstbasen efter kriterier.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excel, gør som følger:
1. Vælg det dataområde, du vil kombinere, baseret på en kolonne.
2. Klik Kutools > Flet og del > Avancerede kombinere rækker, se skærmbillede:
3. I Kombiner rækker baseret på kolonne Klik på ID-kolonnen, og klik derefter på Primærnøgle for at gøre denne kolonne til den nøglekolonne, som dine kombinerede data er baseret på, se skærmbillede:
4. Og klik derefter på Navn kolonne, som du vil kombinere værdierne, og klik derefter på Kombiner mulighed, og vælg en separator til de kombinerede data, se skærmbillede:
5. Når du er færdig med disse indstillinger, skal du klikke på OK for at afslutte dialogen, og dataene i kolonne B er kombineret baseret på nøglekolonnen A. Se skærmbillede:
Med denne funktion løses følgende problem så hurtigt som muligt:
Hvordan kombineres flere rækker til en og sum duplikater i Excel?
Download og gratis prøveversion Kutools til Excel nu!
Demo: Sammenkæd tekst baseret på samme celle i en anden kolonne med Kutools til Excel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med 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!