すぐに役立つエクセルVBAマクロ集 FAQ 文字列の先頭と末尾のスペース削除

　すぐマク　YNxv9534

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

Ｑuestion 62.99　値の操作

Excel VBA Borad （掲示板）より

はじめまして。誰かおしえて。
HTML方式でペーストした数値データを計算（合計など）すると、結果は "0" にしかなりません。
ペーストした数値データをよく見ると、数値の前後にスペースがくっ付いていました。このスペースを取り除くマクロを教えてください。

Ａnswer　　

2003.6.3　もてもて

こんにちは、もてもてです。ヘルプで Trim を見ると解決するかも。

数値はバラバラで何十行もあるので

もてもてさん、早々のレスありがとうございました。
Trimで1つ1つの数値を記入していけば、うまく削除できることがわかりました。でも数値はバラバラで何十行もあるため１つ１つ入力するのは手間です。数値を変数と認識して前後のスペースを削除できるマクロはできないものでしょうか？
よろしくお願いします。

Ａnswer　　

2003.6.5　もてもて

これで、どう？

Sub test()
    For Each a In ActiveSheet.UsedRange
        a.Value = Trim(a.Value)
    Next
End Sub

うまくできました

もてもてさまいろいろとありがとうございました。今後ともよろしくお願いします。

http://www.geocities.jp/happy_ngi/