¿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 de Adriel Ortiz Mangia
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!!
