¿Qué macro es adecuada para quitar los espacios sobrantes de cada celda en un fichero Excel?

Necesito una macro que quite los espacios sobrantes detrás del texto en las celdas de un fichero Excel.

1 respuesta

Respuesta

Opción 1

Sub espaciosvb()
'Quita Detrás del texto
'Fuente dante Amor
ufila = ActiveCell.SpecialCells(xlLastCell).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
For i = 1 To ufila
For j = 1 To ucol
Cells(i, j).Select
ActiveCell = Trim(ActiveCell)
Next
Next
End Sub

Opción 2

Sub espacios()
'Quita todos los espacios
'Fuente dante Amor
ufila = ActiveCell.SpecialCells(xlLastCell).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Me comentas y valoras para finalizar saludos!!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas