¿Cómo reemplazar caracteres acentuados por caracteres sin acento en Excel?

Reemplace Caracteres Acentuados por caracteres regulares con VBA

Reemplace Caracteres Acentuados por caracteres regulares con Kutools para Excel

Para usuarios con experiencia en Microsoft Excel, usar una macro de VBA es una forma sencilla de abordar esta tarea compleja.

1. Mantenga pulsadas las teclas Alt + F11 en Excel y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del módulo.

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. A continuación, vaya a una celda vacía y pegue la fórmula: =CheckStringCHAR(InString), por ejemplo, =CheckStringCHAR(«ù») o =CheckStringCHAR(A2).

Notas:
(1) Es posible que Microsoft Visual Basic no reconozca en absoluto los caracteres acentuados si no admite Unicode. Por ejemplo, al pegar la «š» en Visual Basic, podría aparecer como «?». En ese caso, esta macro no estará disponible.
(2) No reemplaza directamente los caracteres acentuados en las cadenas de la celda seleccionada.

Utilizar una macro de VBA exige demasiadas habilidades y conocimientos. El método siguiente le ayudará a trabajar de forma mucho más sencilla con solo unos pocos clics.La herramienta Reemplazar Caracteres Acentuados de Kutools para Excel le permite reemplazar fácilmente y de una sola vez todo tipo de caracteres acentuados por caracteres regulares.

1. Seleccione el rango en el que desea reemplazar todos los caracteres acentuados.

2.Haga clic en Kutools>Texto>Reemplazar Caracteres Acentuados…, consulte la captura de pantalla:

3. En el cuadro de diálogo Reemplazar Caracteres Acentuados, haga clic en el botón Seleccionar todo para seleccionar todas las reglas de reemplazo y, a continuación, haga clic en Aceptar para reemplazar todos los caracteres acentuados. Consulte la captura de pantalla:

Notas:
(1) Si falta algún carácter acentuado específico que desee, puede hacer clic en el botón Agregar Regla para añadir sus propias reglas a la lista del cuadro de diálogo Reemplazar Caracteres Acentuados anterior.
(2) Puede personalizar nuevas reglas de reemplazo en el cuadro de diálogo Reemplazar Caracteres Acentuados.

Ahora tendrá todos los Caracteres Acentuados en las cadenas de Seleccionar rango convertidos inmediatamente a caracteres regulares. Consulte la captura de pantalla:

La función Reemplazar Caracteres Acentuadosde Kutools para Excel puede reemplazar fácilmente todo tipo de Caracteres Acentuados por caracteres regulares en todo el libro.¡Prueba gratuita!