05 Jun Reemplazar caracteres frecuentes (macro)
Reemplazar caracteres frecuentes (macro)
Tal como se ejemplifica en el video, podemos utilizar una macro para definir reemplazar los caracteres dentro del rango B3:B11 en la Hoja1 según el siguiente cuadro:
ANTES | DESPUÉS |
---|---|
á | a |
é | e |
í | i |
ó | o |
ú | u |
ü | u |
(texto) | texto |
texto1-texto2 | texto1 texto2 |
3° | 3ero |
La instrucción de la macro es la siguiente:
Sub SelectReplace() Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="á", replacement:="a", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="é", replacement:="e", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="í", replacement:="i", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="ó", replacement:="o", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="ú", replacement:="u", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="ü", replacement:="u", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="(", replacement:="", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:=")", replacement:="", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="-", replacement:=" ", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Worksheets("Hoja1").Range("B3:B11").Select Selection.REPLACE what:="°", replacement:="ero", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False MsgBox "OK" End Sub
|
En función de los caracteres que necesitemos reemplazar, vamos a agregar o eliminar los “bloques” dentro de la instrucción que precisemos, donde Worksheets apunta a la hoja objetivo, Range define el rango de aplicación de la macro, what indica el carácter o grupo de caracteres a buscar y replacement indica el carácter o grupo de caracteres a reemplazar por.
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:
TUTORIALSalvo 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.