Jak odstranit duplicitní znaky nebo slova v řetězci buňky?
Předpokládejme, že v každé buňce jsou duplicitní znaky nebo slova, a chcete duplikáty odstranit a ponechat pouze jedinečné znaky nebo slova. Jak byste mohli tento problém vyřešit v aplikaci Excel?
Odstraňte duplicitní znaky textového řetězce pomocí funkce definované uživatelem
Odstraňte duplicitní slova oddělená interpunkcí pomocí funkce definované uživatelem
Odstraňte duplicitní znaky textového řetězce pomocí funkce definované uživatelem
Pokud máte seznam textového řetězce, musíte nyní odstranit duplicitní znaky, jak ukazuje následující snímek obrazovky. Tady mohu mluvit o kódu VBA, abych se s ním vypořádal.
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Odstraňte duplicitní znaky textového řetězce v buňce
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
xChar = VBA.Mid(xValue, i, 1)
If xDic.Exists(xChar) Then
Else
xDic(xChar) = ""
xOutValue = xOutValue & xChar
End If
Next
RemoveDupes1 = xOutValue
End Function
3. Poté tento kód uložte a zavřete, vraťte se do listu a zadejte tento vzorec = odstraněnoupes1 (A2) (A2 je datová buňka, ze které chcete odebrat duplikáty) do prázdné buňky kromě vašich dat, viz screenshot:
4. A potom přetáhněte úchyt výplně do buněk rozsahu, na které chcete použít tento vzorec, všechny duplicitní znaky byly z každé buňky okamžitě odstraněny.
Odstraňte duplicitní slova oddělená interpunkcí pomocí funkce definované uživatelem
Pokud jsou v buňce některá slova oddělená určitými interpunkčními znaménky, můžete duplicitní slova také odstranit, jak chcete. Proveďte prosím následující kroky:
1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Odstraňte duplicitní slova oddělená interpunkcí buňky
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. Poté tento kód uložte a zavřete, vraťte se do listu a zadejte tento vzorec = RemoveDupes2 (A2, ",") do prázdné buňky vedle vašich dat, viz screenshot:
4. Potom zkopírujte vzorec do požadovaných buněk a všechna duplicitní slova byla odstraněna ze všech buněk. Viz screenshot:
Poznámka: Ve výše uvedeném vzorci, A2 označuje buňku, kterou chcete použít, a čárka (,) znamená interpunkční znaménko, které odděluje slova v buňce, můžete ji podle potřeby změnit na jakoukoli jinou interpunkci.
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!
