Jak odstranit duplicitní znaky nebo slova v řetězci buňky aplikace Excel?

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.

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

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:

Pozor: 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.