Hoe eenvoudig tekst samenvoegen op basis van criteria in Excel?
Stel dat ik een kolom met ID-nummers heb die enkele duplicaten en een kolom met namen bevat, en nu wil ik de namen samenvoegen op basis van de unieke ID-nummers zoals het linker screenshot laat zien, om de tekst snel te combineren op basis van criteria, hoe kunnen we doen in Excel?
Voeg tekst samen op basis van criteria met door de gebruiker gedefinieerde functie
Voeg tekst samen op basis van criteria met Kutools voor Excel
Voeg tekst samen op basis van criteria met door de gebruiker gedefinieerde functie
Om tekst te combineren met de unieke ID-nummers, kunt u eerst de unieke waarden extraheren en vervolgens een door de gebruiker gedefinieerde functie maken om de namen te combineren op basis van de unieke ID.
1. Neem de volgende gegevens als voorbeeld, u moet eerst de unieke ID-nummers extraheren, pas deze matrixformule toe: =IFERROR(INDEX($A$2:$A$15, MATCH(0,COUNTIF($D$1:D1, $A$2:$A$15), 0)),"")Voer deze formule in een lege cel in, bijvoorbeeld D2, en druk vervolgens op Ctrl + Shift + Enter sleutels samen, zie screenshot:
Tip: In de bovenstaande formule, A2: A15 is het lijstgegevensbereik waaruit u unieke waarden wilt extraheren, D1 is de eerste cel van de kolom waarvan u het extractieresultaat wilt weergeven.
2. En sleep vervolgens de vulgreep naar beneden om alle unieke waarden te extraheren totdat lege plekken worden weergegeven, zie screenshot:
3. In deze stap moet u een Door de gebruiker gedefinieerde functie Om de namen te combineren op basis van de unieke ID-nummers, houdt u de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.
4. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg tekst samen op basis van criteria
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. Sla vervolgens deze code op en sluit deze, ga terug naar uw werkblad en voer deze formule in cel E2 in, = CONCATENATEIF ($ A $ 2: $ A $ 15, D2, $ B $ 2: $ B $ 15, ",") , zie screenshot:
6. Sleep vervolgens de vulgreep naar de cellen waarop u deze formule wilt toepassen en alle bijbehorende namen zijn gecombineerd op basis van de ID-nummers, zie screenshot:
Tips:
1. In de bovenstaande formule, A2: A15 zijn de originele gegevens die u wilt combineren op basis van, D2 is de unieke waarde die u heeft geëxtraheerd, en B2: B15 is de naamkolom die u met elkaar wilt combineren.
2. Zoals u kunt zien, heb ik de waarden gecombineerd die door komma's worden gescheiden. U kunt andere tekens gebruiken door de komma "," van de formule naar behoefte te wijzigen.
Voeg tekst samen op basis van criteria met Kutools voor Excel
Als je Kutools for Excel, Met Geavanceerd Combineer rijen hulpprogramma, kunt u de tekst op basis van criteria snel en gemakkelijk samenvoegen.
| Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Na het installeren van Kutools for Excel, doe als volgt:
1. Selecteer het gegevensbereik dat u wilt combineren op basis van één kolom.
2. Klikken Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen, zie screenshot:
3. In de Combineer rijen op basis van kolom dialoogvenster, klik op de ID-kolom en klik vervolgens op Hoofdsleutel Zie screenshot om van deze kolom de sleutelkolom te maken waarop uw gecombineerde gegevens zijn gebaseerd:
4. En klik vervolgens op Naam kolom waarvan u de waarden wilt combineren en klik op Combineren optie en kies een scheidingsteken voor de gecombineerde gegevens, zie screenshot:
5. Klik na het voltooien van deze instellingen op OK om het dialoogvenster te verlaten, en de gegevens in kolom B zijn gecombineerd op basis van de sleutelkolom A. Zie screenshot:
Met deze functie wordt het volgende probleem zo snel mogelijk opgelost:
Hoe combineer je meerdere rijen tot één en som duplicaten op in Excel?
Download en gratis proef Kutools voor Excel nu!
Demo: voeg tekst samen op basis van dezelfde cel in een andere kolom met Kutools voor Excel
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
