Sostituisci i caratteri accentati con caratteri normali con VBA

Sostituisci i caratteri accentati con caratteri regolari con Kutools per Excel

Per gli utenti esperti con Microsoft Excel, l'utilizzo della macro VBA è un modo semplice per affrontare questo lavoro complicato.

1. Tenere premuto il tasto altro + F11 chiavi in ​​Excel e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

2. Clicchi inserire > Modulie incolla la seguente macro nel file Finestra del modulo.

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. Quindi vai a una cella vuota e incolla la formula in una cella: = CheckStringCHAR (InString), Per esempio = CheckStringCHAR ("ù"), o = CheckStringCHAR (A2).

Note:
(1) Il tuo Microsoft Visual Basic potrebbe non riconoscere affatto i caratteri accentati, se non supporta Unicode. Ad esempio, quando incolli "š" in Visual Basic, potresti ottenere "?". In tal caso, questa macro non è disponibile.
(2) Non sostituisce direttamente i caratteri accentati nelle stringhe della cella selezionata.

Richiede troppe abilità e conoscenze per utilizzare la macro VBA. E il seguente metodo ti aiuterà a lavorare più facilmente con solo alcuni clic. Kutools for Excel's Sostituisci caratteri accentati lo strumento consente di sostituire facilmente tutti i tipi di caratteri accentati con caratteri normali contemporaneamente.

1. Seleziona l'intervallo in cui sostituirai tutti i caratteri accentati.

2. Clicchi Kutools > Testo > Sostituisci i caratteri accentati..., vedi screenshot:

3. In Sostituisci i caratteri accentati finestra di dialogo, fare clic su Seleziona tutto per selezionare tutte le regole di sostituzione e fare clic sul pulsante OK per sostituire tutti i caratteri accentati. vedi screenshot:

Note:
(1) Se non ci sono alcuni caratteri accentati specifici che desideri, puoi fare clic su Aggiungi regola pulsante per aggiungere le tue regole nella casella di riepilogo nella finestra di dialogo Sostituisci caratteri accentati sopra.
(2) È possibile personalizzare nuove regole di sostituzione nella finestra di dialogo Sostituisci caratteri accentati.

Ora avrai tutti i caratteri accentati nelle stringhe dell'intervallo selezionato convertiti immediatamente in caratteri normali. Vedi screenshot:

I Sostituisci i caratteri accentati la funzionalità di Kutools per Excel può facilmente sostituire tutti i tipi di caratteri accentati con caratteri regolari nell'intera cartella di lavoro. Avere una prova gratuita!