Hoe dubbele tekens of woorden in een tekenreeks van een Excel-cel te verwijderen?

Stel dat er dubbele tekens of woorden in elke cel staan, en je wilt de duplicaten verwijderen en alleen unieke tekens of woorden behouden. Hoe zou je dit probleem in Excel kunnen oplossen?

Verwijder dubbele tekens van een tekstreeks met een door de gebruiker gedefinieerde functie

Verwijder dubbele woorden gescheiden door leestekens met een door de gebruiker gedefinieerde functie

Verwijder dubbele tekens van een tekstreeks met een door de gebruiker gedefinieerde functie

Als je een lijst met tekstreeksen hebt, moet je nu de dubbele tekens verwijderen zoals weergegeven in de volgende schermafbeelding. Hier kan ik een VBA-code bespreken om het mee aan te pakken.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Verwijder dubbele tekens van een tekstreeks in een cel

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. Sla vervolgens deze code op en sluit deze, ga terug naar het werkblad, en voer deze formule in =removedupes1(A2) (A2 is de gegevenscel waarvan je de duplicaten wilt verwijderen) in een lege cel naast je gegevens, zie schermafbeelding:

4. Sleep vervolgens de vulgreep over de cellen waaraan je deze formule wilt toepassen, alle dubbele tekens zijn onmiddellijk uit elke cel verwijderd.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Verwijder dubbele woorden gescheiden door leestekens met een door de gebruiker gedefinieerde functie

Als er enkele woorden zijn die gescheiden worden door bepaalde leestekens in een cel, kun je ook de dubbele woorden naar wens verwijderen. Volg hiervoor de volgende stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Verwijder dubbele woorden gescheiden door leestekens in een cel

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. Sla vervolgens deze code op en sluit deze, ga terug naar het werkblad, en voer deze formule in =RemoveDupes2(A2,",") in een lege cel naast je gegevens, zie schermafbeelding:

4. Kopieer vervolgens de formule naar beneden naar de cellen die je nodig hebt, en alle dubbele woorden zijn verwijderd uit elke cel. Zie schermafbeelding:

Opmerking: In de bovenstaande formule staat A2 voor de cel die je wilt gebruiken, en de komma (,) staat voor het leesteken dat de woorden in een cel scheidt. Je kunt dit wijzigen naar elk ander leesteken indien nodig.