Vervang tekens met accenten door gewone tekens door VBA

Vervang tekens met accenten door gewone tekens met Kutools voor Excel

Voor gebruikers die ervaring hebben met Microsoft Excel, is het gebruik van VBA-macro een gemakkelijke manier om met dit gecompliceerde werk om te gaan.

1. Houd de toets ingedrukt anders + F11 toetsen in Excel, en het opent het Microsoft Visual Basic for Applications-venster.

2. Klik Invoegen > Moduleen plak de volgende macro in het Module Venster.

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 dan 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 helemaal geen tekens met accenten als het geen Unicode ondersteunt. Als u bijvoorbeeld de "š" in Visual Basic plakt, krijgt u mogelijk "?". Dan is deze macro niet beschikbaar.
(2) Het vervangt de tekens met accenten in de tekenreeksen van de geselecteerde cel niet rechtstreeks.

Het vereist te veel vaardigheden en kennis om VBA-macro te gebruiken. En met de volgende methode kunt u gemakkelijker werken met slechts enkele klikken. Kutools for Excel's Vervang tekens met accenten tool maakt het voor u mogelijk om allerlei soorten geaccentueerde tekens eenvoudig tegelijk te vervangen door gewone tekens.

1. Selecteer het bereik waarin u alle tekens met accenten wilt vervangen.

2. Klik Kutools > Tekst > Vervang tekens met accenten…, Zie screenshot:

3. In Vervang tekens met accenten dialoogvenster, klik op de Selecteer alle om alle vervangingsregels te selecteren en klik op de knop Ok om alle tekens met accenten te vervangen. zie screenshot:

Opmerkingen:
(1) Als u bepaalde tekens met accenten niet wilt, kunt u op de Voeg de regel knop om uw eigen regels toe te voegen aan de keuzelijst in het bovenstaande dialoogvenster Tekens met accenten vervangen.
(2) U kunt nieuwe vervangingsregels aanpassen in het dialoogvenster Tekens met accenten vervangen.

Nu hebt u alle tekens met accenten in reeksen van het geselecteerde bereik onmiddellijk geconverteerd naar normale tekens. Zie screenshot:

De Vervang tekens met accenten functie van Kutools for Excel kan eenvoudig allerlei tekens met accenten vervangen door gewone tekens in de hele werkmap. Probeer gratis!