Ersätt accentuerade tecken med vanliga tecken med VBA

Byt ut accenterade tecken med vanliga tecken med Kutools för Excel

För användare som har erfarenhet av Microsoft Excel är användning av VBA-makro ett enkelt sätt att hantera detta komplicerade arbete.

1. Håll ner andra + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulfönster.

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å sedan till en tom cell och klistra in formeln i en cell: = CheckStringCHAR (InString), till exempel = CheckStringCHAR ("ù"), eller = CheckStringCHAR (A2).

Anmärkningar:
(1) Din Microsoft Visual Basic känner kanske inte igen accentuerade tecken alls om den inte stöder Unicode. När du till exempel klistrar in "š" i Visual Basic kan du få "?". I så fall är detta makro inte tillgängligt.
(2) Det ersätter inte accenttecken i strängarna i den valda cellen direkt.

Det kräver för mycket färdigheter och kunskap för att använda VBA-makro. Och följande metod hjälper dig att arbeta lättare med bara några klick. Kutools for Excels verktyget Ersätt accentuerade tecken gör det möjligt för dig att enkelt ersätta alla typer av accenttecken med vanliga tecken på en gång.

1. Välj det område där du kommer att ersätta alla tecken med accent.

2. Klicka Kutools > text > Byt ut tecken med accent…, Se skärmdump:

3. In Byt ut tecken med accent dialogrutan, klicka på Markera alla för att välja alla ersättningsregler och klicka på OK för att ersätta alla tecken med accent. se skärmdump:

Anmärkningar:
(1) Om det inte finns några specifika accenttecken du vill ha kan du klicka på Lägg till regel -knappen för att lägga till dina egna regler i listrutan ovan Byt ut dialogrutan med accenter.
(2) Du kan anpassa nya ersättningsregler i dialogrutan Ersätt accentuerade tecken.

Nu kommer alla accentuerade tecken i strängar av valt intervall omvandlas till vanliga tecken omedelbart. Se skärmdump:

Du har nu möjlighet Byt ut tecken med accent funktionen i Kutools för Excel kan enkelt ersätta alla typer av accenterade tecken med vanliga tecken i hela arbetsboken. Ha en gratis testversion!