ExcelのVBAのマクロで他のシートの複数項目をクリアする方法

質問

ＶＢＡマクロで、他のシートの複数の項目を一括でクリアする方法ってありますか?
Sheet1でマクロを実施中に、Sheet2の「Range("C1:D11":"F1")」を画面を切り替えずに、クリアするにはどのようにコーディングするのでしょか?

よろしくおねがいします。

回答No.2

onlyrom · ベストアンサー

＞Range("C1:D11":"F1")

こういう範囲設定の方法はありませんぬ。。(^^;;;
今回の場合は、

　　Range("C1:D11,F1")　　　←　こうです。

と、軽～く突っ込んでおいて、、、(^^;;;

●セルに入力されている【値】のみクリアーするなら、

Sheets("Sheet2").Range("C1:D11,F1").ClearContents

●値だけでなく、書式（罫線、文字色など）の書式もクリアーするなら

Sheets("Sheet2").Range("C1:D11,F1").Clear

序に、次も覚えておくといいでしょう。
●書式のみのクリアーなら、　ClearFormats
●コメントのクリアーなら、　ClearComments

以上。

お礼

有難うございます。
試してみます。

回答No.3

kiki_s

>”インデックスが有効範囲にない”とエラーがでるのですが・・・
シート名とVBAでのシート指定は一致していなければ駄目です。

今回の場合、
Sheets("シート２").Range("C1:D11,F1").ClearContents
になります。

シート名の一部にスペースが入っていても同じで、必ず完全一致でなければなりません。

お礼

何がいけなかったんだろ?

上記方法で出来ました。
有難うございます。

回答No.1

hana-hana3

Sheets("Sheet2").Range("C1:D11, F1").Clear

補足

シート名を　"Sheet2"　から　"シート２"　と変更していた場合はどうなのでしょう?
それが原因か”インデックスが有効範囲にない”とエラーがでるのですが・・・