Înlocuiți caracterele accentuate cu caractere obișnuite cu VBA

Înlocuiți caracterele accentuate cu caractere obișnuite cu Kutools for Excel

Pentru utilizatorii cu experiență în Microsoft Excel, utilizarea macrocomenzii VBA este o modalitate ușoară de a face față acestei lucrări complicate.

1. Țineți apăsată tasta Alt + F11 tastele în Excel și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Fereastra modulului.

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. Apoi mergeți la o celulă goală și lipiți formula într-o celulă: = CheckStringCHAR (InString), De exemplu, = CheckStringCHAR ("ù"), Sau = CheckStringCHAR (A2).

note:
(1) Este posibil ca Microsoft Visual Basic să nu recunoască deloc caractere accentuate, dacă nu acceptă Unicode. De exemplu, când lipiți „š” în Visual Basic, puteți obține „?”. Dacă da, această macrocomandă nu este disponibilă.
(2) Nu înlocuiește direct caracterele accentuate din șirurile celulei selectate.

Este nevoie de prea multe abilități și cunoștințe pentru a utiliza macro VBA. Iar următoarea metodă vă va ajuta să lucrați mai ușor cu doar câteva clicuri. Kutools for ExcelInstrumentul Înlocuiți caracterele accentuate vă permite să înlocuiți cu ușurință simultan toate tipurile de caractere accentuate cu caractere obișnuite.

1. Selectați intervalul în care veți înlocui toate caracterele accentuate.

2. Clic Kutools > Text > Înlocuiți caracterele accentuate…, Vezi captura de ecran:

3. In Înlocuiți caracterele accentuate , faceți clic pe selectați toate pentru a selecta toate regulile de înlocuire și faceți clic pe butonul Ok pentru a înlocui toate caracterele accentuate. vezi captura de ecran:

notițe:
(1) Dacă nu doriți anumite caractere specifice accentate, puteți face clic pe Adăugați o regulă pentru a adăuga propriile reguli în caseta de listă din dialogul Înlocuire caractere accentuate.
(2) Puteți personaliza noile reguli de înlocuire în caseta de dialog Înlocuire caractere accentuate.

Acum veți avea toate caracterele accentuate în șiruri din intervalul selectat convertite imediat în caractere obișnuite. Vedeți captura de ecran:

Înlocuiți caracterele accentuate caracteristică a Kutools for Excel poate înlocui cu ușurință tot felul de caractere accentuate cu caractere obișnuite în întregul registru de lucru. Aveți o încercare gratuită!