Jak snadno zřetězit text na základě kritérií v aplikaci Excel?
Předpokládejme, že mám sloupec čísel ID, který obsahuje nějaké duplikáty a sloupec jmen, a teď chci zřetězit jména na základě jedinečných čísel ID, jak je ukázáno vlevo, rychle kombinovat text na základě kritérií, jak bychom mohli dělat v Excelu?
Zřetězit text na základě kritérií pomocí funkce definované uživatelem
Zřetězte text na základě kritérií pomocí programu Kutools pro Excel
Zřetězit text na základě kritérií pomocí funkce definované uživatelem
Chcete-li kombinovat text s jedinečnými čísly ID, můžete nejprve extrahovat jedinečné hodnoty a poté vytvořit funkci definovanou uživatelem a kombinovat názvy na základě jedinečného ID.
1. Vezměte si následující data jako příklad, musíte nejprve extrahovat jedinečná čísla ID, použijte tento vzorec pole: =IFERROR(INDEX($A$2:$A$15, MATCH(0,COUNTIF($D$1:D1, $A$2:$A$15), 0)),""), Zadejte tento vzorec do prázdné buňky, například D2, a stiskněte Ctrl + Shift + Enter klíče společně, viz screenshot:
Tip: Ve výše uvedeném vzorci, A2: A15 je rozsah dat seznamu, ze kterého chcete extrahovat jedinečné hodnoty, D1 je první buňka ve sloupci, který chcete vyjmout výsledek extrakce.
2. A potom přetáhněte úchyt výplně dolů a extrahujte všechny jedinečné hodnoty, dokud se nezobrazí mezery, viz screenshot:
3. V tomto kroku byste měli vytvořit a Uživatelem definovaná funkce Chcete-li kombinovat jména na základě jedinečných identifikačních čísel, podržte stisknutou klávesu ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.
4, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: zřetězení textu na základě kritérií
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. Poté tento kód uložte a zavřete, vraťte se do svého listu a zadejte tento vzorec do buňky E2, = CONCATENATEIF ($ A $ 2: $ A $ 15, D2, $ B $ 2: $ B $ 15, ",") , viz screenshot:
6. Poté přetáhněte popisovač výplně dolů do buněk, na které chcete použít tento vzorec, a všechny odpovídající názvy byly kombinovány na základě čísel ID, viz screenshot:
Tip:
1. Ve výše uvedeném vzorci A2: A15 jsou původní data, která chcete kombinovat, D2 je jedinečná hodnota, kterou jste extrahovali, a B2: B15 je sloupec s názvem, který chcete spojit dohromady.
2. Jak vidíte, kombinoval jsem hodnoty oddělené čárkou, můžete použít libovolné další znaky změnou čárky „,“ vzorce podle potřeby.
Zřetězte text na základě kritérií pomocí programu Kutools pro Excel
Pokud máte Kutools pro Excel, S jeho Pokročilé kombinování řádků nástroj, můžete rychle a pohodlně zřetězit textovou základnu podle kritérií.
Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, proveďte následující kroky:
1. Na základě jednoho sloupce vyberte rozsah dat, který chcete kombinovat.
2, klikněte Kutools > Sloučit a rozdělit > Pokročilé kombinování řádků, viz screenshot:
3. V Kombinujte řádky na základě sloupce V dialogovém okně klikněte na sloupec ID a poté klikněte na Primární klíč Chcete-li tento sloupec vytvořit jako klíčový sloupec, na kterém jsou založena vaše kombinovaná data, podívejte se na snímek obrazovky:
4. A pak klikněte na tlačítko Příjmení sloupec, do kterého chcete hodnoty zkombinovat, klikněte na Kombinovat možnost a vyberte jeden oddělovač pro kombinovaná data, viz screenshot:
5. Po dokončení těchto nastavení klikněte na OK k opuštění dialogu a data ve sloupci B byla zkombinována společně na základě klíčového sloupce A. Viz screenshot:
Díky této funkci bude následující problém vyřešen co nejdříve:
Jak kombinovat více řádků do jednoho a sčítat duplikáty v aplikaci Excel?
Stáhněte si zdarma zkušební verzi Kutools pro Excel!
Ukázka: Zřetězte text založený na stejné buňce v jiném sloupci pomocí Kutools pro Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!