Remove Spaces

[Faiek]

Hey,

I have a set of data but the problem is in the cells at the time, there was a space put in after the value. This is becoming a big problem, so I was wondering if there was an automated way or script to erase the space, as it will be extremely time consuming to do it manually.

Thanks,
Faiek

 

[chuckchuckit]

If your data is in cell A1, in a different cell try
=TRIM(A1)

 

[Faiek]

If your data is in cell A1, in a different cell try
=TRIM(A1)

Thanks! Is their a way I can do this In VBA for Like 500 cells?

 

[chuckchuckit]

Yes. Are the cells in a range or a col or row?

 

[Faiek]

There In A Column.

 

[Michael M]

try

Sub trimmer()
Dim lr As Long, r As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = lr To 1 Step -1
        Range("A" & r).Value = Trim(Range("A" & r))
    Next r
End Sub

 

[Faiek]

try

Sub trimmer()
Dim lr As Long, r As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = lr To 1 Step -1
        Range("A" & r).Value = Trim(Range("A" & r))
    Next r
End Sub

Worked Perfect! Thanks So Much