Reemplazar con VBA carateres UTF-8 por Latin 1

En este ejemplo nos encontramos un Excel donde el texto tiene caracteres como por ejemplo  , à … y queremos sustituirlo por caracteres sin símbolos, esto ocurre con Excel bajados de sistemas que codifican en UTF-8.

utf8 a latin

En el archivo tienes el ejemplo, selecciona el rango de celdas a corregir, en este caso desde A1 hasta E32 y ejecuta la macro, verás como la celda E1 queda corregida (como “Líneas de pedido”)  y el resto de caracteres también.

utf8 a latin 2

También hay una hoja llamada “CONVERSION”, donde puedes ver la correspondencia entre codificación UTF-8 a Latin 1.

Podemos utilizar código VBA con una macro donde remplace un caracter por otro, este ejemplo es interesante para otras necesidades, donde tengamos que reemplazar una gran cantidad de datos en un Excel.

El código es:

Sub Correccion_CARACTERES_UTF8toLATIN()

    With Selection
    ‘Conversión UTF8 a LATIN1
    
        .Replace What:=”A”, Replacement:=”Á”, MatchCase:=True
        .Replace What:=”É”, Replacement:=”É”, MatchCase:=True
        .Replace What:=”Í”, Replacement:=”Í”, MatchCase:=True
        .Replace What:=”Ó”, Replacement:=”Ó”, MatchCase:=True
        .Replace What:=”Ú”, Replacement:=”Ú”, MatchCase:=True
        .Replace What:=”á”, Replacement:=”á”, MatchCase:=True
        .Replace What:=”é”, Replacement:=”é”, MatchCase:=True
        .Replace What:=”í”, Replacement:=”í”, MatchCase:=True
        .Replace What:=”ó”, Replacement:=”ó”, MatchCase:=True
        .Replace What:=”ú”, Replacement:=”ú”, MatchCase:=True
        .Replace What:=”°”, Replacement:=”º”, MatchCase:=True
        .Replace What:=”ª”, Replacement:=”º”, MatchCase:=True
        .Replace What:=”º”, Replacement:=”º”, MatchCase:=True
        .Replace What:=”ñ”, Replacement:=”ñ”, MatchCase:=True
        .Replace What:=”ý”, Replacement:=”ý”, MatchCase:=True
        .Replace What:=”ü”, Replacement:=”ü”, MatchCase:=True
   End With

End Sub

Descargar el ejemplo

http://www.divshare.com/download/26692582-b28

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s