¿Cómo reemplazar caracteres acentuados por caracteres regulares en Excel?

Reemplazar caracteres acentuados por caracteres regulares con VBA

Reemplazar caracteres acentuados por caracteres regulares con Kutools para Excel

Para los usuarios con experiencia en Microsoft Excel, usar una macro VBA es una forma fácil de manejar este trabajo complicado.

1. Mantenga presionadas las teclas Alt + F11 en Excel, y se abrirá la ventana 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. Luego vaya a una celda en blanco y pegue la fórmula en una celda: =CheckStringCHAR(CadenaEntrada), por ejemplo, =CheckStringCHAR("ù"), o =CheckStringCHAR(A2).

Notas:
(1) Su Microsoft Visual Basic puede no reconocer los caracteres acentuados en absoluto, si no admite Unicode. Por ejemplo, cuando pega "š" en Visual Basic, puede obtener "?". Si es así, esta macro no está disponible.
(2) No reemplaza directamente los caracteres acentuados en las cadenas de la celda seleccionada.

Se requieren demasiadas habilidades y conocimientos para usar una macro VBA. Y el siguiente método le ayudará a trabajar más fácilmente con solo unos pocos clics. La herramienta Reemplazar Caracteres Acentuados de Kutools para Excel hace posible que reemplace todo tipo de caracteres acentuados por caracteres regulares fácilmente de una vez.

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

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

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

Notas:
(1) Si no hay algunos caracteres acentuados específicos que desee, puede hacer clic en el Agregar Regla botón para agregar sus propias reglas en el cuadro de lista en el 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 del rango seleccionado convertidos a caracteres regulares inmediatamente. Ve la captura de pantalla:

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