empresa

formación

elearning

asistencia

servicios

Sustituir vocales acentuadas en Excel - Blog de Grupo Nexcom

Sustituir vocales acentuadas en Excel

Dos formas para cambiar de forma rápida las tildes de un libro en Excel

csv_xlsEn ocasiones tenemos que exportar datos desde Excel a otros formatos de archivo donde ciertos caracteres producen errores.

Uno de los formatos más comunes son los archivos de texto delimitados por comas que Excel es capaz de exportar a extensiones CSV o TXT.

Uno de los problemas con los que nos podemos encontrar es con las vocales tildadas, que pueden provocar al utilizar el formato de archivo final, que se sustituyan de forma automática por caracteres extraños que harán ilegible lo que hemos escrito en nuestras hojas de cálculo.

Por ello, es recomendable antes de exportar a estos formatos de archivo, eliminar las vocales que llevan tilde. Tenemos dos formas de hacerlo:

  • Utilizando una función para obtener el resultado en otra celda adyacente:
=SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR(A1;"á";"a");"é";"e");"í";"i");"ó";"o");"ú";"u")
 
  • Creando un módulo en Visual Basic (el atajo para acceder es Alt+F11). Una vez creado el módulo, bastará con seleccionar previamente las celdas donde queremos sustituir las vocales acentuadas y ejecutar la macro.
Sub no_tildes()
 With Selection
  .Replace What:=Chr(193), Replacement:=Chr(65), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia Á por A
  .Replace What:=Chr(201), Replacement:=Chr(69), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia É por E
  .Replace What:=Chr(205), Replacement:=Chr(73), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia Í por I
  .Replace What:=Chr(211), Replacement:=Chr(79), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia Ó por O
  .Replace What:=Chr(218), Replacement:=Chr(85), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia Ú por U
  .Replace What:=Chr(225), Replacement:=Chr(97), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia á por a
  .Replace What:=Chr(233), Replacement:=Chr(101), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia é por e
  .Replace What:=Chr(237), Replacement:=Chr(105), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia í por i
  .Replace What:=Chr(243), Replacement:=Chr(111), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia ó por o
  .Replace What:=Chr(250), Replacement:=Chr(117), LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=True ' cambia ú por u
 End With
End Sub
 

Un comentario

neo

muy útil. Gracias!

neo, - 08-04-’14 02:40
(optional field)
(optional field)

La moderación de comentarios está activa en este sitio web. Esto significa que sus comentarios no serán visibles en la página hasta que hayan sido aprobados por un editor.

¿Recordar información personal?
Letra pequeña: Todas las etiquetas html excepto <b> e <i> serán eliminadas de su comentario. Puede introducir enlaces simplemente escribiendo la url o direcciones de e-mail.
Síguenos
Blog de Grupo Nexcom
YouTube
Vimeo
LinkedIn

Dirección Calle Jabonería, 63 - 28850 Torrejón de Ardoz

Contacto contacto | info@gruponexcom.com

© Nexcom Informática S.L. | blog | nota legal | mapa web tlf.: 912.475.980