シート内の全ての文字列の先頭と末尾のスペースを削除するには?

Question 62.99 Excel VBA Borad (掲示板)より Previous Next
はじめまして。誰かおしえて。
HTML方式でペーストした数値データを計算(合計など)すると、結果は "0" にしかなりません。
ペーストした数値データをよく見る と、数値の前後にスペースがくっ付いていました。このスペースを取り除くマクロを教えてください。
Answer   2003.6.3 もてもて
こんにちは、もてもてです。ヘルプで Trim を見ると解決するかも。
数値はバラバラで何十行もあるので
もてもてさん、早々のレスありがとうございました。
Trimで1つ1つの数値を記入していけば、うまく削除できることがわかりました。 でも数値はバラバラで何十行もあるため1つ1つ入力するのは手間です。 数値を変数と認識して前後のスペースを削除できるマクロはできないものでしょうか?
よろしくお願いします。
Answer   2003.6.5 もてもて
これで、どう?
Sub test()
    For Each a In ActiveSheet.UsedRange
        a.Value = Trim(a.Value)
    Next
End Sub
うまくできました
もてもてさま いろいろとありがとうございました。 今後ともよろしくお願いします。

 

Excel VBA Macro