Macros para limpieza de datos


Eliminar espacios

Eliminar espacios en blanco al principio de la cadena de texto

Sub EliminarEspaciosPrincipio()
Dim celda As Range

    For Each celda In Selection
        celda.Value = LTrim(celda.Value)
    Next
 
End Sub


Eliminar espacios en blanco al final de la cadena

Sub EliminarEspaciosFinal()
Dim celda As Range

    For Each celda In Selection
        celda.Value = RTrim(celda.Value)
    Next
 
End Sub


Eliminar espacios intermedios dentro de una cadena de texto

Sub EliminarEspaciosIntermedios()
Dim celda As Range

    For Each celda In Selection
        celda.Value = WorksheetFunction.Trim(celda.Value)
    Next
 
End Sub

Eliminar del texto los primeros 32 caracteres no imprimibles del código ASCII (0 al 31)


Sub EliminarCaracteres()
Dim celda As Range

    For Each celda In Selection
        celda.Value = Application.WorksheetFunction.Clean(celda.Value)
    Next
    
End Sub