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
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.
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!
