Trim Entire Column

[Bob Zimski]

Data was imported into a worksheet but the first column has the data padded
with spaces on the right of it. Is there a way to trim the data in the column
in one shot? The only way I know how would be the long way which is create
another column, do a trim on the data of the adjacent column, copy and paste
special as value the new column and then delete the original column.

There must be a better way in VBA.

Thanks

 

[Mike]

This is setup for column A
Sub trimData()
Dim rng As Range
Dim Cell As Range
Set rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For Each Cell In rng
Cell.Value = Trim(Cell.Value)
Next Cell
End Sub

 

[Bob Zimski]

Just what the doctor ordered.
Thanks Mike

This is setup for column A
Sub trimData()
Dim rng As Range
Dim Cell As Range
Set rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For Each Cell In rng
Cell.Value = Trim(Cell.Value)
Next Cell
End Sub

 

[Mike]

Your welcome.

Just what the doctor ordered.
Thanks Mike