Cleaning up text values

[clifftech]

I need to develop a macro that will look at the text string value for each row (about 50 rows) in column A and trim 1 or more spaces from the end of the text string. Spaces in the middle of the text string are OK. The spaces at the end of the string need to be eliminated so that the strings can be matched in other functions I am using.

Thanks for the help.

 

[Griffyn]

this is a pretty basic thing to try - so I recommend giving it a bash yourself. The logic will be

While RightStr(cell, 1) = ' ' do
cell = LeftStr(1, Length(cell) - 1)

 

[xlbo]

No need - just use the rTrim function in VBA

for each c in selection
c.value = rtrim(c.value)
next

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question