Macroe Remove _ spaces in Cell

[jakobt]

I have a column with:

239_
240__
250
_B227


Some times a space is included before the number sometimes a space or 2 spaces included after the number.

Can I develop a macro which run though my selected cells and remove all spaces and only leave the Number and Letter.

 

[wideboydixon]

With the cells selected, run this macro:

Public Sub RemoveSpaces()

Selection.Value = Evaluate("IF(ROW(1:" & CStr(Selection.Rows.Count) & "),TRIM(" & Selection.Address & "))")

End Sub

WBD

 

[FormR]

and remove all spaces

Hi, have you considered a manual Find|Replace

i.e. find a space and replace with nothing with match entire cell contents not checked.

If you specifically needed code you could get 99% of if by recording the above actions with the macro recorder.