Udskift tegn med accent med almindelige tegn med VBA

Udskift tegn med accent med almindelige tegn med Kutools til Excel

For brugere, der har erfaring med Microsoft Excel, er brug af VBA-makro en nem måde at håndtere dette komplicerede arbejde på.

1. Hold nede i andre + F11 nøgler i Excel, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende makro i Modul vindue.

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. Gå derefter til en tom celle og indsæt formlen i en celle: = CheckStringCHAR (InString), For eksempel = CheckStringCHAR ("ù") eller = CheckStringCHAR (A2).

Bemærkninger:
(1) Din Microsoft Visual Basic genkender muligvis muligvis ikke tegn med accent, hvis den ikke understøtter Unicode. For eksempel, når du indsætter "š" i Visual Basic, kan du få "?". I så fald er denne makro ikke tilgængelig.
(2) Det erstatter ikke tegn med accent i strengene i den valgte celle direkte.

Det kræver for meget færdigheder og viden at bruge VBA-makro. Og den følgende metode hjælper dig med at arbejde lettere med kun nogle klik. Kutools for Excel's Erstat accenttegn værktøj gør det muligt for dig at erstatte alle slags accenttegn med almindelige tegn let på én gang.

1. Vælg det område, hvor du vil erstatte alle tegn med accent.

2. Klik Kutools > tekst > Udskift tegn med accent…, Se skærmbillede:

3. In Udskift tegn med accent dialogboksen, skal du klikke på knappen Vælg alle for at vælge alle udskiftningsregler, og klik på knappen Ok for at erstatte alle tegn med accent. se skærmbillede:

Noter:
(1) Hvis der ikke er nogle specifikke accenttegn, du ønsker, kan du klikke på Tilføj regel knap for at tilføje dine egne regler i listeboksen ovenfor Udskift dialogboksen med tegn med accent.
(2) Du kan tilpasse nye erstatningsregler i dialogboksen Erstat tegn med accent.

Nu får du alle tegn med accent i strenge i det valgte område konverteret til almindelige tegn med det samme. Se skærmbillede:

Udskift tegn med accent funktion af Kutools til Excel kan nemt erstatte alle slags tegn med accent med regelmæssige tegn i hele projektmappen. Få en gratis prøveperiode!