Remover acentos y caracteres especiales en textos en Excel

Existen ocasiones que tenemos que simplificar o unificar una lista de nombres (valores)  únicos, para ello recibimos la información en un listado de Excel y en estos valores recibimos palabras con tildes, sin ellas., caracteres especiales y dobles espacios Ejemplo de esto puede ser: TECNICO y TÉCNICO. Aunque en teoría son muy iguales, necesitas dejar un valor único para poder unificar las listas.

Para sacar un mejor partido a la opción “Quitar duplicados” de la cinta de Excel, lo primero que debes hacer es guardar el archivo con la lista en formato .xlsm. “Libro de Excel habilitado para macros”.  Después habilitar la cinta de Desarrollador a través del menú archivo, opciones de Excel y personalizar cinta de opciones.

Posteriormente ir a la cinta de programador, ingresas a la opción Visual Basic. En esta opción y sobre el nombre de archivo usas el clic derecho para insertar un módulo. También puedes llegar a la opción de Visual Basic con las teclas de acceso rápido Alt+F11.

Una vez agregado el módulo, puedes copiar la función que se encuentra escrita abajo. La función quita los acentos, caracteres especiales y reemplaza los dobles espacios por un espacio.

Function QuitarAcentos(Valor As String) As String

    Dim ConSignos As String

    Dim SinSignos As String

    Dim Remover  As String

   

    Dim CaracterOLD As String

    Dim CaracterNEW As String

   

    ConSignos = "áàäéèëíìïóòöúùüçÁÀÄÉÈËÍÌÏÓÒÖÚÙÜÇ"

    SinSignos = "aaaeeeiiiooouuucAAAEEEIIIOOOUUUC"

    Remover = "./\*$-+!#%&/()=?¡'¿¨*@´+~{}[]`^,.:;_<>"

   

    Dim Texto As String

    Texto = Valor

   

  

   If (Len(Texto) > 0) Then

    For iLoop = 1 To Len(ConSignos)

        CaracterOLD = Mid(ConSignos, iLoop, 1)

        CaracterNEW = Mid(SinSignos, iLoop, 1)

        Texto = Replace(Texto, CaracterOLD, CaracterNEW)

    Next iLoop

   

    For iLoop = 1 To Len(ConSignos)

        CaracterOLD = Mid(Remover, iLoop, 1)

        Texto = Replace(Texto, CaracterOLD, "")

    Next iLoop

   End If

  

    While (InStr(Texto, "  ") > 0)

        Texto = Replace(Texto, "  ", " ")

    Wend

   QuitarAcentos = Texto

End Function

Terminada de agregar la función al módulo, basta con insertar la función a la hoja de Excel a través de la opción de “Insertar función”, en la categoría Definidas por el usuario.

A continuación podrás apreciar el resultado de la función.

Texto Original	Texto sin Acentos y Caracteres especiales
TECNICO EN COMPUTACIÓN % +	TECNICO EN COMPUTACION
TECNICO EN   #$ COMPUTACIÓN	TECNICO EN COMPUTACION

Con las listas simplificadas, podrás copiar el resultado sobre la lista original o en una nueva hoja y posteriormente quitar los duplicados, esto facilitará la depuración de textos.

Está función es muy útil cuando toca depurar información para cargar tablas paramétricas en una base de datos.  

Si te es de utilidad la información anterior, no olvides dar un “Like”.

Eliminando el gasto de energía fantasma o “vampiro”

En la actualidad, casi todos los equipos electrónicos en el hogar tienen leds para indicar si están conectados a la red de energía, otros tienen un modo de “Stand By” o espera para ser activados por control remoto como los televisores, home theater, decodificadores de televisión, consolas de juegos, etc. Esto consume  energía las 24 horas del día durante los 365 días del año, causando un desperdicio de ésta cuando no están siendo usados

.

A este desperdicio de energía se le llama “Gasto fantasma”.  Esto  me estaba ocasionando un gasto superior a los 10 dólares mensuales, por lo que comencé a probar varios métodos de ahorro para mitigar este gasto extra hasta que encontré algunos que me disminuyeron el consumo de energía, ayudando de esta manera al ½ ambiente y, por supuesto, a mi bolsillo.

Lo primero que hice fue cambiar las lámparas alógenas del estudio por lámparas de LED que aunque disminuyen el  consumo de energía, no lo hicieron con el  consumo fantasma.

Después, apagué las extensiones donde conectamos los electrodomésticos;  sin embargo, en muchos hogares éstas quedan ocultas por motivos de  decoración,  generando que el interruptor de la extensión se ubique en sitios de complejo acceso que dificultan el encendido o apagado de los electrodomésticos.

También utilice temporizadores “timers”, tanto independientes como integrados en las extensiones, pero cuando tu horario no es regular este método no funciona muy bien.

Como los anteriores  métodos no me funcionaron muy bien, seguí investigando hasta que encontré unas extensiones eléctricas “inteligentes” que cuentan con un control electrónico en una de sus tomas,  haciendo que el tomacorriente detecte la disminución del uso de energía en ésta  y apague de manera automática las otras tomas de la multitoma.  Estas tomas son buenas cuando quieres, por ejemplo, sincronizar todos los equipos del centro de entretenimiento con el encendido del televisor. Sin embargo, se sigue generando el gasto de un equipo (en este caso, el televisor). El único inconveniente es que estas extensiones o multitomas aún no llegan al país.

Continuando con mi búsqueda,  encontré una extensión que tiene un interruptor conectado mediante un cable para apagar la toma;  lo que me pareció excelente, pero el precio me disuadió de comprarla (60,000). No obstante,  me interesé en ella y, en la misma ferretería donde la vi, compré una toma, cable suficiente, un enchufe y un interruptor y armé una por un valor 5 veces menor a la original.  Una vez fabricada la extensión la ubiqué detrás del mueble que tengo instalado como centro de entretenimiento, disimulada, a una altura media, el interruptor de sobreponer. Ahora, mantengo todo apagado hasta el momento de requerir encender alguno de los electrodomésticos. Con esta extensión el costo del recibo de energía disminuyó 10 dólares. El ahorro del primer mes pagó el costo de los materiales;  por lo cual, en  el segundo mes empezaré a disfrutar de un  ahorro de dinero.

Para hacer la extensión compré un metro de cable de tres hilos número 12, un toma corriente, un enchufe de tres patas, un interruptor de sobreponer y cable de dos hilos número 12;  cuando conecté el tomacorriente con el enchufe cuidé en mantener el orden de los cables, tierra con tierra, neutro con neutro y el fase lo extendí hacia el interruptor con el cable dúplex.