Hoe accenttekens vervangen door gewone tekens in Excel?

Vervang accenttekens door gewone tekens met VBA

Vervang accenttekens door gewone tekens met Kutools voor Excel

Voor gebruikers die ervaring hebben met Microsoft Excel, is het gebruik van een VBA-macro een eenvoudige manier om dit ingewikkelde werk te verhelpen.

1. Houd de toetsen Alt + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende macro in het Modulevenster.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. Ga vervolgens naar een lege cel en plak de formule in een cel: =CheckStringCHAR(InString), bijvoorbeeld =CheckStringCHAR("ù"), of =CheckStringCHAR(A2).

Opmerkingen:
(1) Uw Microsoft Visual Basic herkent mogelijk geen accenttekens als het Unicode niet ondersteunt. Bijvoorbeeld, wanneer u "š" plakt in Visual Basic, krijgt u mogelijk "?". Als dit het geval is, is deze macro niet beschikbaar.
(2) Het vervangt accenttekens niet direct in de tekstreeksen van de geselecteerde cel.

Het vereist veel vaardigheden en kennis om een VBA-macro te gebruiken. De volgende methode zal u helpen gemakkelijker te werken met slechts enkele klikken. Met het hulpmiddel Accenttekens vervangen van Kutools voor Excel kunt u alle soorten accenttekens in één keer gemakkelijk vervangen door gewone tekens.

1. Selecteer het bereik waarin u alle accenttekens wilt vervangen.

2. Klik Kutools > Tekst > Accenttekens vervangen…, zie screenshot:

3. In Accenttekens vervangen dialoogvenster, klik op de Alles selecteren knop om alle vervangingsregels te selecteren, en klik op de Ok-knop om alle accenttekens te vervangen. Zie screenshot:

Opmerkingen:
(1) Als er bepaalde specifieke accenttekens ontbreken die u nodig hebt, kunt u op de Regel toevoegen knop klikken om uw eigen regels toe te voegen aan de lijst in bovenstaand dialoogvenster Accenttekens vervangen.
(2) U kunt nieuwe vervangingsregels aanpassen in het dialoogvenster Accenttekens vervangen.

Nu zullen alle accenttekens in de tekstreeksen van het geselecteerde bereik onmiddellijk worden omgezet naar gewone tekens. Zie screenshot:

De functie Accenttekens vervangen van Kutools voor Excel kan eenvoudig alle soorten accenttekens in het hele werkboek vervangen door gewone tekens. Probeer het gratis uit!