Hoe verwijder je niet-Engelse tekens in een Excel-kolom?
Het beheren van gegevens in Excel vereist vaak dat je tekst opruimt, vooral wanneer je werkt met lijsten die ongewenste of inconsistente tekens kunnen bevatten. Bijvoorbeeld, je kunt een kolom met namen of invoer hebben waarbij sommige cellen niet-Engelse tekens bevatten – zoals letters met accenten, speciale symbolen of vreemde talen – die je moet verwijderen om aan de vereisten voor gegevensconsistentie te voldoen of voor verdere verwerking.
Het handmatig verwijderen van dergelijke tekens kan zeer tijdrovend zijn en gevoelig voor fouten, vooral bij het verwerken van grote datasets. Om dit efficiënt op te lossen, biedt Excel verschillende benaderingen: je kunt VBA-scripts gebruiken om automatisch rijen te verwijderen die niet-Engelse tekens bevatten, of je kunt de gegevens ter plekke opschonen door niet-Engelse tekens uit de tekst te verwijderen terwijl de gegevensstructuur intact blijft. Hier introduceren we twee praktische oplossingen om je te helpen deze scenario's te hanteren.
Verwijder rijen met niet-Engelse tekens via VBA
Verwijder niet-Engelse tekens uit strings met behulp van Kutools voor Excel
Verwijder niet-Engelse tekens met behulp van een Excel-formule
Verwijder niet-Engelse tekens uit celtekst met behulp van VBA
Verwijder rijen met niet-Engelse tekens via VBA
Als je hele rijen die niet-Engelse tekens bevatten volledig wilt verwijderen uit een specifieke kolom in Excel, kan het gebruik van een VBA-script dit proces automatiseren. Deze aanpak is vooral geschikt wanneer je ervoor wilt zorgen dat alleen cellen met standaard Engelse alfabetische tekens overblijven, en elke cel met vreemde tekens of speciale symbolen zal resulteren in het verwijderen van de hele rij. Deze methode is bijzonder nuttig voor het voorbereiden van schone datasets voor import in systemen die alleen standaard Engelse tekens accepteren.
Merk echter op dat deze methode zich richt op één kolom tegelijk; je moet het script afzonderlijk uitvoeren voor elke kolom als je het elders wilt toepassen. Ook, eenmaal uitgevoerd, kunnen verwijderde rijen niet worden hersteld tenzij je een back-up hebt gemaakt of de functie Ongedaan maken kunt gebruiken.
Hier is een stap-voor-stap handleiding:
1. Open je Excel-werkboek, activeer het werkblad met de kolom die je wilt verwerken, en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen. Dit geeft je 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: Verwijder niet-Engelse tekens
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 Uitvoeren knop om de code uit te voeren. Er verschijnt een dialoogvenster waarin je wordt gevraagd om "Selecteer een enkele kolom". Gebruik je muis om de kolom te selecteren die je wilt verwerken in je werkblad, klik vervolgens op OK.
4. Bevestig je selectie door te klikken op OK in de daaropvolgende dialoogvensters. Het script controleert vervolgens elke cel in de geselecteerde kolom. Als het een teken detecteert dat geen hoofdletter of kleine letter van het Engelse alfabet (A-Z) is, wordt de hele rij met die cel verwijderd. Na voltooiing zie je een melding dat het proces is voltooid.
 |  |  |
Opmerking: Dit VBA-script werkt slechts voor een enkele kolomselectie tegelijk. Het wordt aanbevolen om je werkmap op te slaan voordat je de code uitvoert, omdat verwijderde rijen na de bewerking niet kunnen worden hersteld. Als je gegevens groot zijn of speciale opmaak bevatten, wordt sterk aanbevolen om eerst een back-up te maken.
Probleemoplossingstips: Als je een foutmelding ziet of niets lijkt te gebeuren, controleer dan of je een geldige kolom hebt geselecteerd en slechts één kolom (niet een bereik dat meerdere kolommen beslaat). VBA moet zijn ingeschakeld om dit script uit te voeren. Als de VBA-editor in je omgeving is vergrendeld of beperkt, overweeg dan om machtigingen in te schakelen of een alternatieve methode te gebruiken.
Toepasbaarheid: Deze aanpak is het beste als je er zeker van wilt zijn dat je gegevens alleen bestaan uit vermeldingen met puur Engelse letters, en je geen rijen hoeft te behouden die speciale of vreemde taaltekens bevatten. Als je doel echter is om de gegevens te behouden terwijl je eenvoudigweg niet-Engelse tekens verwijdert – maar niet hele rijen verwijdert – overweeg dan om de Kutools-oplossing of andere methoden hieronder te gebruiken.
Verwijder niet-Engelse tekens uit strings met behulp van Kutools voor Excel
Als je 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 praktische oplossing. Dit is geschikt voor scenario's waarbij je de algehele gegevensstructuur wilt behouden, maar speciale, geaccentueerde of vreemde taaltekens binnen strings wilt verwijderen, waardoor alleen reguliere Engelse letters zichtbaar blijven.
Bijvoorbeeld, deze aanpak is ideaal voor het standaardiseren van namen, productcodes of elke alfanumerieke invoer die mogelijk onjuist is ingevoerd of gekopieerd van externe bronnen, wat resulteert in de aanwezigheid van verschillende symbolen of niet-Engelse tekens. In vergelijking met handmatig opschonen, vermindert dit het risico van het missen van ongewenste tekens en versnelt het proces.
 | |  |
1. Selecteer het bereik met de tekststrings die je wilt opschonen, ga vervolgens naar de Kutools tab in de Excel-werkbalk, klik op Tekst, en kies Specifieke tekens verwijderen uit het vervolgmenu. Zie de onderstaande schermafbeelding ter referentie:
2. In het Specifieke tekens verwijderen dialoogvenster dat verschijnt, vink de optie aan voor Niet-alfabetisch (wat gericht is op niet-alfabetische tekens, inclusief cijfers, leestekens en speciale of niet-Engelse symbolen). Het Voorbeeld paneel wordt automatisch bijgewerkt om te laten zien hoe de tekst eruit zal zien nadat niet-Engelse en speciale tekens zijn verwijderd.
3. Nadat je hebt bevestigd dat het voorbeeld aan je verwachtingen voldoet, klik op OK. 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 je gegevens onaangeroerd blijft.
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Als je regelmatig tekst in Excel moet opschonen, biedt de Kutools-aanpak een gebruiksvriendelijke, visuele interface en verwerkt het grote databereiken efficiënt in slechts een paar klikken. Het biedt ook ondersteuning voor ongedaan maken, dus je kunt snel wijzigingen terugdraaien als de resultaten niet aan je behoeften voldoen.
Tips en voorzorgsmaatregelen: De optie 'Niet-alfabetisch' verwijdert ook alle cijfers of speciale leestekens in de tekst. Als je cijfers of andere specifieke tekens wilt behouden, experimenteer dan met verschillende selectievakjes in het dialoogvenster totdat je het gewenste resultaat bereikt. Controleer altijd het voorbeeldvenster om het effect te bevestigen voordat je op OK drukt.
Vergelijking: Deze methode is flexibeler dan het verwijderen van rijen via VBA, omdat het alleen ongewenste tekens verwijdert, niet de hele rij, en is dus minder destructief en veiliger als er een risico is om belangrijke informatie te verliezen die aan elke rij is gekoppeld.
Verwijder niet-Engelse tekens met behulp van een Excel-formule
Als je geen toegang hebt tot Kutools of liever geen VBA gebruikt, kun je ook een Excel-formule gebruiken om niet-Engelse tekens (dat wil zeggen, alles wat geen Engelse alfabetletter is) uit tekst in een cel te verwijderen. Deze aanpak is geschikt voor situaties waarin je een niet-destructieve, formulegebaseerde oplossing wilt die op elke rij kan worden toegepast en gemakkelijk naar andere cellen kan worden gekopieerd.
1. Voer de volgende array-formule in de eerste cel van je uitvoerkolom in (bijvoorbeeld B1 als je originele gegevens in kolom A staan):
=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 het alleen als het een hoofdletter (A-Z) of kleine letter (a-z) van het Engelse alfabet is, en voegt het resultaat samen in een opgeschoonde string.
2. Nadat je deze formule hebt getypt, druk op Ctrl+Shift+Enter (voor Excel-versies ouder dan Office 365; in Office 365 en later kun je gewoon op Enter drukken). Kopieer de formule naar alle relevante rijen door het vulgreepje te slepen of er dubbel op te klikken in de rechterbenedenhoek van de cel.
Parameter uitleg: Deze formule maakt gebruik van MID, CODE (die de ASCII-code retourneert), INDIRECT en RIJ-functies om elk teken in de doelcel te verwerken. Alleen letters a-z of A-Z worden bewaard.
Voorzorgsmaatregelen: Deze aanpak wijzigt de originele gegevens niet; uitkomsten zijn formuleresultaten in de doelkolom. Als je vaste, statische waarden nodig hebt, kopieer dan de resultaten en gebruik Plakken Waarden om de formules te overschrijven.
Beperkingen: Tekstlengte beïnvloedt de prestaties van de formule. Deze methode kan multi-teken Unicode-grafemen mogelijk niet goed verwerken, dus sommige visueel niet-Engelse tekens kunnen blijven als ze worden weergegeven door samengestelde Unicode-reeksen.
Verwijder niet-Engelse tekens uit celtekst met behulp van VBA
Als je niet-Engelse tekens in celtekst wilt verwijderen (zonder hele rijen te verwijderen), kun je ook VBA gebruiken voor meer aanpasbare automatisering. Dit is praktisch voor gegevensopschooningsopdrachten die frequent moeten worden uitgevoerd, en waar add-ins geen optie zijn.
1. Open Excel, druk vervolgens op Alt + F11 om de Microsoft Visual Basic for Applications-editor te starten. 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 je wilt opschonen, keer terug naar de VBA-editor en voer de code uit door op F5 te drukken of op de Uitvoeren-knop te klikken. Wanneer gevraagd, selecteer het bereik om te verwerken en bevestig.
Effecten: Deze code verwerkt elke geselecteerde cel, verwijdert elk teken dat geen standaard Engelse letter is, en werkt de cel bij met het opgeschoonde resultaat. Originele gegevens worden overschreven, dus het is verstandig om je blad te back-uppen of op een kopie te werken.
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Demo: Verwijder niet-Engelse tekens uit strings met behulp van Kutools voor Excel
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