Quitar acentos en Excel (macro)

23 Sep Quitar acentos en Excel (macro)

Quitar acentos en Excel

¿Cómo podemos quitar acentos a una celda o grupo de celdas de forma rápida y sencilla mediante el uso de macros?

La siguiente macro nos permite remover cualquier acento de un carácter que se encuentre dentro de una celda o grupo de celdas seleccionadas. Esta macro permite eliminar acentos en cadenas de texto con mayúsculas, minúsculas o mixtas, y la única acción que debemos realizar previo a su ejecución es seleccionar la celda o grupo de celdas objetivo para ser procesadas.

La instrucción de la macro que debemos crear cómo módulo dentro de la opción “Visual Basic” del menú programador es la siguiente:

Sub QUITARACENTOS()
With Selection
.Replace What:=Chr(225), Replacement:=Chr(97), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' á por a
.Replace What:=Chr(233), Replacement:=Chr(101), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' é por e
.Replace What:=Chr(237), Replacement:=Chr(105), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' í por i
.Replace What:=Chr(243), Replacement:=Chr(111), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' ó por o
.Replace What:=Chr(250), Replacement:=Chr(117), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' ú por u
.Replace What:=Chr(193), Replacement:=Chr(65), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' Á por A
.Replace What:=Chr(201), Replacement:=Chr(69), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' É por E
.Replace What:=Chr(205), Replacement:=Chr(73), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' Í por I
.Replace What:=Chr(211), Replacement:=Chr(79), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' Ó por O
.Replace What:=Chr(218), Replacement:=Chr(85), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True ' Ú por U
End With
End Sub

Para utilizarla, una vez seleccionada la celda o grupo de celdas objetivo, debemos simplemente seleccionar la opción Macros del menú “Programador”, seleccionar luego la macro “QUITARACENTOS” del listado en pantalla y ejecutarla.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.