Hoe verwijdert u niet-Engelse tekens uit een kolom in Excel?
Bij het beheren van gegevens in Excel moet u tekst vaak opschonen, vooral in lijsten met ongewenste of inconsistente tekens. Denk bijvoorbeeld aan een kolom met namen of vermeldingen waarin sommige cellen niet-Engelse tekens bevatten—zoals letters met accenten, speciale symbolen of vreemde schriften—die u wilt verwijderen om te voldoen aan eisen voor gegevensconsistentie of verdere verwerking.
Het handmatig verwijderen van dergelijke tekens is niet alleen tijdrovend, maar ook foutgevoelig—zeker bij grote datasets. Gelukkig biedt Excel efficiënte oplossingen: u kunt VBA-scripts inzetten om automatisch rijen te verwijderen die niet-Engelse tekens bevatten, of u kunt de gegevens direct opschonen door niet-Engelse tekens uit de tekst te verwijderen zonder de onderliggende structuur aan te tasten. Hier presenteren we twee praktische methodes om u in deze scenario’s snel en betrouwbaar verder te helpen.
Rijen met niet-Engelse tekens verwijderen met VBA
Niet-Engelse tekens uit tekenreeksen verwijderen met Kutools voor Excel
Niet-Engelse tekens verwijderen met een Excel-formule
Niet-Engelse tekens uit celtekst verwijderen met VBA
Rijen met niet-Engelse tekens verwijderen met VBA
Als u rijen volledig wilt verwijderen die niet-Engelse tekens bevatten in een bepaalde kolom in Excel, kunt u dit proces automatiseren met een VBA-script. Deze aanpak is vooral geschikt als u ervoor wilt zorgen dat alleen cellen met standaard Engelse alfabetische tekens overblijven — en elke cel met vreemde tekens of speciale symbolen direct leidt tot verwijdering van de hele rij. Deze methode is bijzonder nuttig bij het voorbereiden van schone datasets voor import in systemen die uitsluitend standaard Engelse tekens accepteren.
Let echter op de beperking dat deze methode per keer slechts één kolom verwerkt; u moet het script afzonderlijk uitvoeren voor elke kolom waarop u het wilt toepassen. Verwijderde rijen kunnen na uitvoering niet worden hersteld, tenzij u een back-up heeft gemaakt of de functie Ongedaan maken kunt gebruiken.
Hier volgt een stapsgewijze handleiding:
1. Open uw Excel-werkboek, activeer het werkblad met de kolom die u wilt verwerken en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Zo krijgt u toegang tot de in Excel ingebouwde VBA-programmeeromgeving.
2. Klik in de VBA-editor op Invoegen > Module om een nieuwe module te maken. Kopieer en plak vervolgens de volgende VBA-code in het codevenster dat verschijnt:
VBA: Niet-Engelse tekens verwijderen
Sub RemoveNonEnglish()
'UpdatebyExtendoffice20171204
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim xRows As Long
Dim xAsc As Long
On Error Resume Next
Set xRg = Application.InputBox("Select single column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xRows = xRg.Rows.Count
Set xRg = xRg(1)
For I = 1 To xRows
Set xCell = xRg.Offset(I - 1)
If xCell.Value <> "" Then
For J = 1 To Len(xCell.Value)
xAsc = Asc(UCase(Mid(xCell.Value, J, 1)))
If xAsc < 65 Or xAsc > 90 Then
xCell.EntireRow.Delete
I = I - 1
Exit For
End If
Next
End If
Next
Application.ScreenUpdating = True
MsgBox "Completed...", vbInformation
End Sub
3. Druk op F5 of klik op de knop Uitvoeren om de code uit te voeren. Er verschijnt een dialoogvenster met de vraag: „Selecteer één kolom“. Selecteer met uw muis de kolom die u wilt verwerken in uw werkblad en klik op OK.
4. Bevestig uw selectie door op OK te klikken in de daaropvolgende dialoogvensters. Het script controleert dan elke cel in de geselecteerde kolom. Als er een teken wordt gevonden dat geen hoofd- of kleine letter uit het Engelse alfabet (A–Z) is, wordt de gehele rij met die cel verwijderd. Na afloop ontvangt u een melding dat het proces is voltooid.
 |  |  |
Opmerking: Dit VBA-script werkt per keer slechts met één kolom. Sla uw werkmap altijd op voordat u de code uitvoert, want verwijderde rijen kunnen na de bewerking niet meer worden hersteld. Als uw gegevens omvangrijk zijn of speciale opmaak bevatten, raden we u ten zeerste aan eerst een back-up te maken.
Probleemoplossingstips: Als u een foutmelding ziet of er lijkt niets te gebeuren, controleer dan of u een geldige kolom hebt geselecteerd en slechts één kolom (geen bereik dat meerdere kolommen omvat). VBA moet zijn ingeschakeld om dit script uit te voeren. Als de VBA-editor in uw omgeving is vergrendeld of beperkt, overweeg dan machtigingen in te schakelen of een alternatieve methode te gebruiken.
Toepasbaarheid: Deze aanpak werkt het beste als u ervoor wilt zorgen dat uw gegevens uitsluitend vermeldingen bevatten met zuiver Engelse letters en u rijen met speciale of vreemde tekens niet hoeft te behouden. Als u daarentegen de gegevens wel wilt behouden, maar alleen de niet-Engelse tekens wilt verwijderen—zonder hele rijen te verwijderen—overweeg dan de Kutools-oplossing of een van de andere onderstaande methoden.
Niet-Engelse tekens uit tekenreeksen verwijderen met Kutools voor Excel
Als u tekst wilt opschonen door niet-Engelse tekens uit de cellen te verwijderen—zonder rijen te verwijderen—biedt de functie Specifieke tekens verwijderen in Kutools voor Excel een snelle en handige oplossing. Ideaal voor situaties waarin u de algemene gegevensstructuur intact wilt houden, maar speciale, geaccentueerde of ongewenste tekens uit uw tekst wilt verwijderen, zodat alleen standaard Engelse letters overblijven.
Deze aanpak is bijvoorbeeld ideaal om namen, productcodes of alfanumerieke vermeldingen te standaardiseren die mogelijk onjuist zijn ingevoerd of uit externe bronnen zijn gekopieerd, waardoor diverse symbolen of niet-Engelse tekens zijn ontstaan. In vergelijking met handmatig opschonen verlaagt dit het risico dat ongewenste tekens over het hoofd worden gezien en versnelt het het proces aanzienlijk.
 | |  |
1. Selecteer het bereik met de tekenreeksen die u wilt opschonen, ga naar het tabblad Kutools in het Excel-lint, klik op Tekst en kies Specifieke tekens verwijderen in het vervolgkeuzemenu. Zie de onderstaande schermafbeelding als referentie:
2. Schakel in het dialoogvenster Specifieke tekens verwijderen dat verschijnt de optie Niet-alfanumeriek in (gericht op niet-alfanumerieke tekens, inclusief leestekens en speciale of niet-Engelse symbolen). Het voorbeeldvenster Voorbeeld wordt automatisch bijgewerkt om te tonen hoe de tekst eruitziet nadat niet-Engelse en speciale tekens zijn verwijderd.
3. Klik op OK nadat u hebt bevestigd dat het voorbeeld aan uw verwachtingen voldoet. Alle niet-Engelse tekens (dat wil zeggen alles wat geen standaard Engelse letter is) worden direct verwijderd uit het geselecteerde bereik, terwijl de rest van uw gegevens onaangetast blijft.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Als u regelmatig tekst in Excel moet opschonen, biedt de Kutools-aanpak een gebruiksvriendelijke, visuele interface en verwerkt grote bereiken efficiënt in slechts enkele klikken. Bovendien ondersteunt het de Ongedaan-maken-functie, zodat u wijzigingen snel kunt herstellen als het resultaat niet aan uw verwachtingen voldoet.
Tips en voorzorgsmaatregelen: De optie 'Niet-alfanumeriek' verwijdert ook eventuele cijfers of speciale leestekens uit de tekst. Als u cijfers of andere specifieke tekens wilt behouden, experimenteer dan met de verschillende selectievakjes in het dialoogvenster totdat u het gewenste resultaat bereikt. Controleer altijd het voorbeeldvenster om het effect te bevestigen voordat u op OK klikt.
Vergelijking: Deze methode is flexibeler dan het verwijderen van rijen met VBA, omdat alleen ongewenste tekens worden verwijderd — niet de gehele rij. Daardoor is deze aanpak minder destructief en veiliger, zeker wanneer er risico bestaat op verlies van belangrijke informatie die aan elke rij is gekoppeld.
Niet-Engelse tekens verwijderen met een Excel-formule
Als u geen toegang hebt tot Kutools of liever geen VBA gebruikt, kunt u ook een Excel-formule inzetten om niet-Engelse tekens — oftewel alles wat géén Engelse letter is — uit celtekst te verwijderen. Deze aanpak is ideaal wanneer u een niet-destructieve, formulegebaseerde oplossing zoekt die eenvoudig op elke rij toepasbaar en naar andere cellen kopieerbaar is.
1. Voer de volgende matrixformule in de eerste cel van uw uitvoerkolom in (bijvoorbeeld B1 als uw oorspronkelijke gegevens zich in kolom A bevinden):
=TEXTJOIN("",TRUE,IF((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=65)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=90)+(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=97)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=122),MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),""))Deze formule controleert elk teken in cel A1, behoudt alleen letters uit het Engelse alfabet (hoofdletters A-Z en kleine letters a-z) en voegt het resultaat samen tot een schone, leesbare tekenreeks.
2. Druk na het typen van deze formule op Ctrl+Shift+Enter (voor Excel-versies ouder dan Office 365; in Office 365 en nieuwer kunt u gewoon op Enter drukken). Kopieer de formule naar alle relevante rijen door de vulgreep te slepen of door er dubbel op te klikken in de rechterbenedenhoek van de cel.
Uitleg van parameters: Deze formule gebruikt de functies MID, CODE (die de ASCII-waarde retourneert), INDIRECT en RIJ om elk teken in de doelcel te verwerken. Alleen letters a–z of A–Z worden behouden.
Voorzorgsmaatregelen: Deze aanpak wijzigt de oorspronkelijke gegevens niet; de uitvoer bestaat uit formuleresultaten in de doelkolom. Als u vaste, statische waarden nodig heeft, kopieert u de resultaten en gebruikt u Plakken als waarden om de formules te overschrijven.
Beperkingen: De lengte van de tekst beïnvloedt de prestaties van formules. Deze methode verwerkt mogelijk Unicode-grafemen die uit meerdere tekens bestaan niet correct, waardoor sommige visueel niet-Engelse tekens kunnen blijven staan als ze worden weergegeven door samengestelde Unicode-reeksen.
Niet-Engelse tekens uit celtekst verwijderen met VBA
Als u niet-Engelse tekens wilt verwijderen binnen celtekst (zonder complete rijen te verwijderen), kunt u ook VBA gebruiken voor een nog aanpasbaardere automatisering. Dit is ideaal voor dataverwerkingsopdrachten die regelmatig moeten worden uitgevoerd en waarbij invoegtoepassingen geen optie zijn.
1. Open Excel en druk vervolgens op Alt + F11 om de editor voor Microsoft Visual Basic for Applications te openen. Ga naar Invoegen > Module en plak de volgende code in het modulevenster:
Sub RemoveNonEnglishCharactersFromCells()
' Remove non-English characters, keep only a-z, A-Z
Dim rng As Range
Dim cell As Range
Dim i As Long
Dim ch As String
Dim output As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set rng = Application.InputBox("Select range to clean (cells will be altered):", xTitleId, rng.Address, Type:=8)
If rng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each cell In rng
output = ""
For i = 1 To Len(cell.Value)
ch = Mid(cell.Value, i, 1)
If (Asc(ch) >= 65 And Asc(ch) <= 90) Or (Asc(ch) >= 97 And Asc(ch) <= 122) Then
output = output & ch
End If
Next i
cell.Value = output
Next cell
Application.ScreenUpdating = True
MsgBox "Cleanup complete.", vbInformation
End Sub2. Ga terug naar Excel, selecteer het bereik dat u wilt opschonen, keer terug naar de VBA-editor en voer de code uit door op F5 te drukken of op de knop Uitvoeren te klikken. Selecteer bij de prompt het te verwerken bereik en bevestig.
Effecten: Deze code verwerkt elke geselecteerde cel, verwijdert alle tekens die geen standaard Engelse letters zijn en werkt de cel bij met het opgeschoonde resultaat. De oorspronkelijke gegevens worden overschreven, dus maak eerst een back-up van uw werkblad of werk met een kopie.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Verwijder niet-Engelse tekens uit tekenreeksen met behulp van Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
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 krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor 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 add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins