[[20090911110711]]　『複数シートの同一セル消去』（ヒロ）　ページの最後に飛ぶ

『複数シートの同一セル消去』（ヒロ）

 シートが20シートあり、各シートの同一セルの値を消去する
 マクロを組んだのですが、このコードを簡素出来るのでしょうか。
 マクロやり始めで悩んでいます。教示をお願いします。

  例:シート１からシート２０のセルA1の値を消去
     現在、次のようなコードで対応しています。

    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.ClearContents
    Sheets("Sheet2").Select
    Range("A1").Select
    Selection.ClearContents
             .
             .
    Sheets("Sheet20").Select
    Range("A1").Select
    Selection.ClearContents

  End Sub
                              宜しくお願いします。

 こんな感じで。(ROUGE)
　
 Dim i As Long
 For i = 1 To 20
  Sheets("Sheet" & i).Range("A1").ClearContents
 Next

 FillAcrossSheets メソッドを使う例。
　
例：
 Sub TEST20090911()
     Dim x
     x = Array("Sheet1", "Sheet2", "Sheet3")
     Worksheets("Sheet1").Range("A1").ClearContents
     Sheets(x).FillAcrossSheets _
         Worksheets("Sheet1").Range("A1")
 End Sub
　
(みやほりん)(-_∂)b　全文検索用ワード[編集]
____
  ROUGEさんとみやほりんさんへ

    ご教示有難うございました。
    共に、思う通りに出来ました。
    この質問投稿の前に全文検索を行いましたが、
    私の質問と同様なものを見つけられず、質問
    させて頂きました。
    また、宜しくお願い致します。        (ヒロ)

コメント返信：

[ 一覧(最新更新順) ]

[[20090911110711]] 『複数シートの同一セル消去』（ヒロ） ページの最後に飛ぶ

[[20090911110711]]　『複数シートの同一セル消去』（ヒロ）　ページの最後に飛ぶ