エクセル マクロ 置き換え？

質問

マクロ初心者です。

A1に「10 00」とあります。この10と00の間にあるスペースを消して「1000」としたいです。

他にも「1 000 000」というのもあったりします。これもスペースを消して「1000000」としたいです。

A1のセルの中にあるスペースを消すにはどのように記述したら良いでしょうか。

内容も覚えたいので、多少長い記述になっても初心者に優しい記述の仕方を教えてくださいませ。

よろしくお願いします。

回答No.1

mt2008 · ベストアンサー

難しい事はありません。
Replace関数を使用して半角スペースを取り除きます。

Sub Sample()
　　Range("A1") = Replace(Range("A1"), " ", "")
End Sub

お礼

回答ありがとうございます。こんな関数あったんですね！無事解決いたしました！

回答No.2

noname#187541

こんばんは。

スペースを「置換」すれば出来ます。
あくまでもマクロでというのであれば、置換するときに「マクロの記録」をすればいいでしょう。

置換するときに「置換後の文字列」を空白(何も入力しない)にすれば、削除されます。
全角半角を区別するチェックボックスもあるので、チェックを入れておけば全角スペースのみ、半角スペースのみの削除もできます。

お礼

回答ありがとうございます。マクロの記録は前によく使ってたのですが中身が複雑すぎてエラーが出たときに訂正ができないということがよくありました。それ以来マクロの記録はあまり使わないようになってしまいました。