こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

vbaで全シートのある列のスペースを消したい

vba修行中の初心者です。

シートをすべて選んだ状態である列(ここではI列)を選び、セルの中のスペースをすべて消すということをしたいのですが、


Worksheets.Columns("i:i").Select.Replace What:=" ", Replacement:="", Matchbyte:=False

にすると、コンパイルエラーが出ます。
どのように書き直せばよいのでしょうか?

どうぞお助けください。
よろしくお願いいたします。

投稿日時 - 2013-02-21 15:53:25

QNo.7956964

困ってます

質問者が選んだベストアンサー

WorksheetsにColumnsはありませんよね。
ForEachなどを使って、各ワークシートに対して処理を行う必要があるのでは?

投稿日時 - 2013-02-21 16:40:45

お礼

m-take0220 様
ご回答ありがとうございます。
for next で各シートに連続処理をしたらうまくいきました!

貴重なお時間をいただいてご回答いただきまして本当にありがとうございました。

投稿日時 - 2013-02-25 15:15:20

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Worksheets.Select
Columns("I:I").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart

で出来ないかな?

投稿日時 - 2013-02-21 17:08:34

お礼

mesihuro 様

私の前後の構文がよくなかったのか、ご回答いだだきましたものを書いてみたのですが、エラーが出てしまいました。
私にはまだまだ敷居が高いのですがfor next でやってみましたらなんとかうまくいきました。

貴重なお時間をいただいてご回答いただきまして本当にありがとうございました。

投稿日時 - 2013-02-25 15:17:24

あなたにオススメの質問