KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Dubbele tekens of woorden verwijderen in Excel

AuteurXiaoyang Wijzigingsdatum

Bij het werken met tekstgegevens in Excel komt het vaak voor dat u dubbele tekens of herhaalde woorden tegenkomt binnen één cel – bijvoorbeeld bij geïmporteerde gegevens, gebruikersinvoer, tags of productbeschrijvingen. Het verwijderen van deze duplicaten verbetert de leesbaarheid, zorgt voor consistente gegevens en maakt verdere analyses betrouwbaarder.

In deze handleiding bespreken we verschillende effectieve methoden om dubbele tekens of woorden in Excel te verwijderen, waaronder ingebouwde formules, een snelle batch-oplossing met Kutools voor Excel en aanpasbare VBA-functies. Kies de methode die het beste aansluit bij uw Excel-versie, technische kennis en workflowbehoeften.

alle dubbele tekens zijn verwijderd

Dubbele tekens verwijderen in Excel

Het verwijderen van dubbele tekens houdt in dat u elk teken slechts één keer behoudt — namelijk de eerste keer dat het voorkomt (bijvoorbeeld „)aabbcc” → „abc”). Hieronder vindt u drie praktische methoden om dit eenvoudig voor elkaar te krijgen.

Met behulp van Excel-formule

Als u Excel voor Microsoft 365 of Excel 2021 (of nieuwer) gebruikt, kunt u dubbele waarden eenvoudig verwijderen met dynamische matrixformules. Deze ingebouwde methode wordt automatisch bijgewerkt zodra uw brongegevens wijzigt — perfect voor wie liever werkt met formulegestuurde oplossingen.

Stappen:

  1. Selecteer een lege cel waarin u het resultaat wilt weergeven, bijvoorbeeld D2.
  2. Voer de volgende formule in:
    =TEXTJOIN("",,UNIQUE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)))
  3. Druk op Enter om het resultaat te krijgen.
  4. Sleep de vulgreep omlaag om, indien nodig, de formule op andere cellen toe te passen.
    hoe de formule te gebruiken

Hoe de formule werkt:

  • MIDhaalt elk teken uit de tekst
  • RIJ+INDIRECTgenereert tekenposities
  • UNIEKDubbele items verwijderen
  • TEKST.SAMENVOEGENvoegt het resultaat weer samen tot een tekenreeks
Opmerkingen:
  • Deze methode werkt alleen in Excel 365 / 2021 of nieuwer
  • Als u #NAAM? ziet, ondersteunt uw versie deze functies mogelijk niet.

Kutools voor Excel bulksgewijs gebruiken

Als u complexe formules wilt vermijden en een snellere, gebruiksvriendelijkere aanpak zoekt – vooral voor grote datasets – biedt Kutools voor Excel een handige manier om dubbele tekens bulksgewijs te verwijderen.

Kutools voor Excel – uitgerust met meer dan 300 essentiële tools voor Excel. Maak uw Excel-taken sneller, eenvoudiger en efficiënter.Download nu!

Stappen:

  1. Selecteer het celbereik waaruit u dubbele tekens wilt verwijderen.
  2. Ga naar Kutools>Tekst>Specifieke tekens verwijderen.
    schakel de functie Tekens verwijderen in
  3. Vink in het dialoogvenster Specifieke tekens verwijderen alleen de optie Dubbele tekens aan en klik op OK.
    configureer het dialoogvenster Tekens verwijderen

Resultaat:

Alle dubbele tekens in elke geselecteerde cel worden direct verwijderd, zodat alleen de eerste keer dat een teken voorkomt behouden blijft.

alle dubbele tekens zijn verwijderd

Voordelen:

  • Geen formules of codering vereist
  • Werkt in alle Excel-versies
  • Ondersteunt batchverwerking
  • Eenvoudige en intuïtieve interface
  • Bespaart aanzienlijk tijd bij grote datasets

Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële tools, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmer gegevensverwerking en productiviteit.Download Nu


Met behulp van gebruikersgedefinieerde functie

Als uw Excel-versie geen dynamische matrixformules ondersteunt of als u liever een herbruikbare, aangepaste oplossing wilt, kunt u een door de gebruiker gedefinieerde VBA-functie (UDF) gebruiken om dubbele tekens te verwijderen.

Stappen:

  1. Druk op Alt + F11 om de VBA-editor te openen.
  2. Klik op Invoegen > Module.
  3. Plak de volgende code:
    VBA-code: Dubbele tekens verwijderen
    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
    gebruik de VBA-code in module
  4. Druk op Alt + Q om de VBA-editor te sluiten en terug te keren naar Excel.
  5. Voer in een lege cel waar u het resultaat wilt weergeven de volgende formule in:
    =RemoveDupes1(C2)
    pas de bijbehorende formule toe
Opmerkingen:
  • Macro's moeten zijn ingeschakeld
  • De functie werkt alleen in de Huidig werkboek

Extra: Dubbele woorden verwijderen met een door de gebruiker gedefinieerde functie

In sommige gevallen bevat uw dataset herhaalde woorden in plaats van tekens, zoals:

marketing,verkoop,marketing,crm

U wilt mogelijk alleen unieke woorden behouden, inclusief hun oorspronkelijke volgorde.

Met deze methode verwijdert u dubbele woorden op basis van een scheidingsteken, zoals een komma, spatie of puntkomma.

Stappen:

  1. Druk op Alt + F11 om de VBA-editor te openen.
  2. Klik op Invoegen > Module.
  3. Plak de volgende code:
    VBA-code: Dubbele woorden verwijderen
    Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
        Dim x
        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
    
    gebruik de VBA-code 2 in module
  4. Druk op Alt + Q om de VBA-editor te sluiten en terug te keren naar Excel.
  5. Voer in een lege cel waar u het resultaat wilt weergeven de volgende formule in:
    =RemoveDupes2(A2,",")
  6. Druk op Enterom het resultaat te krijgen en sleep vervolgens de vulgreepomlaag om de formule op andere cellen toe te passen.
    pas de bijbehorende formule van code 2 toe
Opmerkingen:
  • In deze formule kunt u "," vervangen door andere scheidingstekens zoals " " of ";"
  • Werkt het beste wanneer gegevens consistent zijn opgemaakt
  • Meerdere scheidingstekens vereisen mogelijk aanpassing

Conclusie

Het verwijderen van dubbele tekens of woorden in Excel kan op verschillende manieren, afhankelijk van uw specifieke behoeften en uw Excel-omgeving.

  • Gebruik Excel-formules als u liever een ingebouwde, dynamische oplossing wilt (Excel 365/2021).
  • Gebruik Kutools voor Excel als u op zoek bent naar een snelle manier om batchverwerking uit te voeren zonder formules.
  • Gebruik VBA-functies wanneer u meer flexibiliteit nodig hebt of met oudere versies van Excel werkt.

Elke methode heeft zijn eigen voordelen, en de beste keuze hangt af van uw workflow, technische vaardigheden en de complexiteit van uw gegevens. Voor de meeste gebruikers die grote datasets verwerken, vereenvoudigt een tool zoals Kutools het proces aanzienlijk en verhoogt de efficiëntie.


Beste Office-productiviteitstools

🤖KUTOOLS AI Assistent: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan
Populaire functies:Zoek, markeer of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Schakel zichtbaarheidsstatus van verborgen kolommen in/uit|Vergelijk bereiken & kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 toolsets:12 Teksttools(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoegtools(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversietools(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsentools(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te verkrijgen die u het meest nodig heeft...


Office Tab Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezing in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt een krachtige suite van invoegtoepassingen voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro — ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— Excel-, Word-, Outlook- en PowerPoint-add-ins + Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar voor gebruik (MSI-klaar)
  • Werkt beter samen— gestroomlijnde productiviteit in Office-apps
  • 30-dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins