Hoe dubbele tekens of woorden in een tekenreeks van een Excel-cel te verwijderen?
Bij het werken met gegevens in Excel is het vrij gebruikelijk om situaties tegen te komen waarin cellen herhaalde tekens of dubbele woorden bevatten. Je zou bijvoorbeeld gebruikersinvoer, geëxporteerde logs of productcodes kunnen hebben waarin tekens of woorden meerdere keren voorkomen. Het verwijderen van deze duplicaten kan helpen om je gegevens op te schonen voor verdere analyse, de leesbaarheid te verbeteren of strings voor te bereiden voor gebruik in andere systemen.
Deze handleiding introduceert verschillende methoden om dubbele tekens of dubbele woorden binnen één cel te verwijderen. Je kunt de meest geschikte oplossing kiezen op basis van je Excel-versie, technische comfortzone en het type scheidingsteken dat in je gegevens wordt gebruikt. Of je gegevens nu afzonderlijke tekens of hele woorden omvatten, gescheiden door spaties of leestekens, er is hieronder een praktische aanpak die je kunt gebruiken.
- Verwijder dubbele tekens of woorden met behulp van Excel-formules (Dynamische Matrix)
- Verwijder dubbele tekens uit een tekststring met een door de gebruiker gedefinieerde functie
- Verwijder dubbele woorden gescheiden door leestekens met een door de gebruiker gedefinieerde functie
Verwijder dubbele tekens of woorden met behulp van Excel-formules (Dynamische Matrix)
Als je Microsoft 365 of Excel 2021 en later gebruikt, kun je gebruik maken van dynamische matrixformules om dubbele tekens of woorden uit een cel te verwijderen — volledig zonder VBA. Deze functies, zoals TEXTSPLIT, UNIQUE, TEXTJOIN en MID, maken het gemakkelijk om strings te splitsen, te dedupliceren en opnieuw samen te stellen direct in je werkblad.
Deze methode wordt vooral aanbevolen als je geen macro's wilt gebruiken, een efficiënte oplossing zoekt en bekend bent met de nieuwste formulefuncties van Excel.
Voordelen: Herberekent direct wanneer brongegevens veranderen, geen noodzaak voor macro-inschakeling of speciale machtigingen, formule kan eenvoudig worden toegepast op grote gegevensbereiken.
Nadelen: Werkt alleen in Excel voor Microsoft 365, Excel 2021 of nieuwer (werkt niet in Excel 2019 of eerder).
Om dubbele tekens binnen een cel te verwijderen (bijvoorbeeld "banaan" → "ban"):
1. Selecteer de cel waar je het resultaat wilt weergeven (bijvoorbeeld cel B2 naast je broncel A2) en voer de volgende formule in:
=TEXTJOIN("",,UNIQUE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)))Deze formule splitst de inhoud van A2 in individuele tekens met behulp van MID, genereert sequentiële posities met behulp van ROW(INDIRECT(...)), haalt unieke tekens op met UNIQUE en combineert ze vervolgens terug tot een tekststring met TEXTJOIN.
2. Druk op Enter. Het formuleresultaat zal de string in A2 weergeven met dubbele tekens verwijderd, volgorde behouden. Om dezelfde bewerking voor andere rijen toe te passen, gebruik de vulgreep om de formule naar beneden te kopiëren indien nodig.
Opmerking: Als je een #NAAM? fout ziet, ondersteunt je versie van Excel deze functies mogelijk niet. Controleer of je Excel voor Microsoft 365 of Excel 2021 of later gebruikt.
Probleemoplossing: Soms kunnen extra spaties of leestekens de resultaten beïnvloeden. Overweeg TRIM of TEXTSPLIT met extra argumenten te gebruiken als je gegevens niet consistent zijn opgemaakt.
Het gebruik van dynamische matrixformules helpt om je workflow efficiënt en up-to-date te houden en vereenvoudigt taken voor het schoonmaken van gegevens voor zowel eenvoudige als complexe stringpatronen.
Verwijder dubbele tekens uit een tekststring met een door de gebruiker gedefinieerde functie
Als je een bereik van cellen hebt dat tekststrings bevat en je wilt dubbele tekens uit elke cel verwijderen - bijvoorbeeld het omzetten van "aabbcc" in "abc" zoals hieronder geïllustreerd - kan een aangepaste VBA-functie je hierbij snel helpen, vooral als je Excel-versie geen geavanceerde arrayformules ondersteunt.
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster. Zorg ervoor dat je de code aan het begin van de module plaatst om conflicten met andere macro's die je mogelijk hebt te voorkomen.
VBA-code: Verwijder dubbele tekens uit een tekststring 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. Nadat je het VBA-codevenster hebt opgeslagen en gesloten, ga je terug naar je werkblad. Voer deze formule =removedupes1(A2) in een lege cel naast je originele tekst in (hier is A2 de cel die de string bevat die je wilt verwerken). Zie illustratie hieronder:
4. Druk op Enter om het resultaat te berekenen. Sleep de vulgreep naar beneden om de functie toe te passen op alle andere relevante cellen in de kolom, en je zult zien dat alle dubbele tekens onmiddellijk uit elke overeenkomstige cel worden verwijderd.
Tip: De volgorde van verschijning blijft behouden — de functie houdt de eerste instantie van elk teken en verwijdert daaropvolgende duplicaten binnen de cel.
Waarschuwing: Door de gebruiker gedefinieerde functies (UDF's) toegevoegd via VBA zijn alleen beschikbaar in het werkboek waar de code is opgeslagen. Als je je werkboek verplaatst of deelt, zorg er dan voor dat de macro is opgenomen of opnieuw is ingevoegd in het doelbestand. Ook moeten macro's zijn ingeschakeld om de code te laten werken.
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.
Verwijder dubbele woorden gescheiden door leestekens met een door de gebruiker gedefinieerde functie
In situaties waarin je gegevens bestaan uit woorden gescheiden door leestekens — zoals komma's, puntkomma's of andere symbolen — wil je misschien herhaalde woorden binnen elke cel verwijderen terwijl je alleen de eerste instantie van elk woord behoudt. Dit is vooral handig voor taglijsten, categorieën of adressen. Je kunt dit efficiënt doen met behulp van een aangepaste VBA-functie.
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster. Plaats de code zo mogelijk aan het begin van een nieuwe module voor duidelijkheid.
VBA-code: Verwijder dubbele woorden gescheiden door leestekens van 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. Nadat je het VBA-venster hebt opgeslagen en gesloten, ga je terug naar je werkblad. Voer in een lege kolom naast je gegevens deze formule in: =RemoveDupes2(A2,","). Hier verwijst A2 naar je doelcel en "," geeft het leesteken aan dat als scheidingsteken wordt gebruikt. Je kunt deze komma vervangen door een ander teken (zoals ";" of spatie) als je woorden worden gescheiden door een ander leesteken.
4. Druk op Enter om te bevestigen, sleep vervolgens de formule naar beneden om andere cellen te vullen indien nodig. Na deze stap zijn alle dubbele woorden uit hun respectieve cellen verwijderd, waarbij unieke woorden in de originele volgorde blijven staan. Zie resultaat hieronder:
Opmerking: In de formule kun je zowel de celverwijzing als het scheidingsteken aanpassen zoals geschikt voor je gegevens. Als meerdere tekens of verschillende soorten scheidingstekens (zoals spatie en komma gecombineerd) worden gebruikt, kan verdere code-aanpassing vereist zijn.
Tip: Net als bij alle VBA-macro's, vergeet dan niet een back-up van je werkboek te bewaren en macro's in te schakelen om deze functie te gebruiken.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen