Excel - quitar espacios al final de textos

'Macro para Eliminar los espacios al inicio de la cadena de texto

'Hay que SELECCIONAR LA CELDA a la cual vas a borrar los espacios

Sub EliminarEspacio_VacioInicio()

Dim celda As Range

For Each celda In Selection 'celda seleccionada

celda.Value = LTrim(celda.Value) 'inicio

Next

End Sub

'Macro para Eliminar los espacios al final de la cadena de texto

'Hay que SELECCIONAR LA CELDA a la cual vas a borrar los espacios

Sub EliminarEspacio_VacioFinal()

Dim celda As Range

For Each celda In Selection 'celda seleccionada

celda.Value = RTrim(celda.Value) 'final

Next

End Sub

'Macro para Eliminar los espacios intermedios de la cadena de texto

'Hay que SELECCIONAR LA CELDA a la cual vas a borrar los espacios

Sub EliminarEspacio_VacioIntermedios()

Dim celda As Range

For Each celda In Selection 'celda seleccionada

celda.Value = WorksheetFunction.Trim(celda.Value) 'intermedio

Next

End Sub

'Macro para Eliminar los espacios en inicio, intermedios y finales de la cadena de texto

'Hay que SELECCIONAR LA CELDA a la cual vas a borrar los espacios

Sub EliminarEspaciosVacios()

Dim celda As Range

For Each celda In Selection 'celda seleccionada

celda.Value = LTrim(celda.Value) 'espacios en el inicio

celda.Value = RTrim(celda.Value) 'espacios en el final

celda.Value = WorksheetFunction.Trim(celda.Value) 'espacios en el intermedio

Next

End Sub

'Macro para Eliminar los espacios en inicio, intermedios y finales de la cadena de texto

'en toda la hoja sin tener que seleccionar nada

Sub EliminarEspacios_VaciosTodaHoja()

'Por.Dante Amor

    Dim celda As Range

    'ActiveSheet.Unprotect Password:="123"

    For Each celda In Sheets("Hoja1").Cells.SpecialCells(xlCellTypeConstants, 23)

        celda.Value = WorksheetFunction.Trim(celda.Value)

    Next

    'ActiveSheet.Protect Password:="123"

    MsgBox "Listo. limpios los espacios en inicio, intermedios y finales de las cadenas de texto", vbInformation, "Espacios"

End Sub

'Macro para Eliminar los espacios en inicio, intermedios y finales de la cadena

'de texto de todas hojas del libro

Sub EspaciosVacios_TodasHojas()

'Por.Dante Amor

    For Each h In Sheets

        h.Activate

        ActiveSheet.Unprotect Password:="123"

        For Each celda In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23)

            celda.Value = WorksheetFunction.Trim(celda.Value)

        Next

        ActiveSheet.Protect Password:="123"

    Next

    MsgBox "Listo. limpios los espacios en inicio, intermedios y finales de las cadenas de texto", vbInformation, "Espacios"

End Sub

'Macro para Eliminar los espacios en inicio, intermedios y finales de la cadena de texto

'dentro de un rango de la hoja sin tener que seleccionar nada

Sub EspaciosVacios_Rango()

'Por.Dante Amor

    Dim celda As Range

    For Each celda In Sheets("Hoja1").Range("A1:C10") 'se ejecuta dentro del rango. Puede editar el rango a cubrir

        celda.Value = WorksheetFunction.Trim(celda.Value)

    Next

End Sub

'Esta macro quita todos los espacios generados por el carácter 160 (invisibles de Excel)

'que existan dentro del rango seleccionado.

Sub limpiar_Seleccion()

    Selection.Replace what:=Chr(160), Replacement:="", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

End Sub

'Macro quita los espacios generados por el carácter 160 (invisibles de Excel)

'que existan en todo el libro

Sub limpiar_todo()

'Por Dante Amor

    Cells.Replace what:=Chr(160), Replacement:="", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

    MsgBox "Se han limpio los espacios generados por caracter 160 en todas las hojas del libro", vbInformation, "Información"

End Sub

Sub limpiar_hojas_libro()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

       Sheets(ws.Name).Select

       Cells.Select

        Selection.Replace what:=Chr(160), Replacement:="", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Next

MsgBox "Se han limpio los espacios generados por caracter 160 en todas las hojas del libro", vbInformation, "Limpiador AG"

End Sub