複数シートの内容の一括変更

質問

エクセルで、同内容のシート1～シート10があります。

(1)シート内の表の入力数値を削除したいのですが、シートそれぞれ一枚ごと削除するのではなく、１０枚一括で削除する方法を教えて下さい。

(2)対象の表が大きいのですが、表の範囲選択（マウスドラッグではない）方法も教えて下さい。
よろしくお願いします。

回答No.3

mitarashi

A No.1です。
書き落としましたが、設定範囲内の、式は消さず、値のみ消すコードですので、念のため補足いたします。

回答No.2

n-jun

Shiftキーを押しながら左下のシートタブの、初めと終りのシートタブをクリック。
（選択された間のシートタブが変化する。）

右上の名前ボックスにセル範囲を入力。
（例えば、A1:Z1000）

選択されたセル上で右クリック⇒数式と値のクリアをクリック。

で、選択したシート全ての同じ範囲のデータが消去出来るはずです。

お礼

回答ありがとうございます。
参考にさせていただきます。

回答No.1

mitarashi

マクロでやるなら下記の通り。アクティブブックの全シートを対象に処理するコードです。
Sub test()
Dim sh As Worksheet

On Error Resume Next '対象セルが無いシートではエラーが出るため
For Each sh In ActiveWorkbook.Worksheets
sh.Range("A2:C6").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
Next sh
End Sub

Range("A2:C6")の括弧内は、目的の表に合わせて変更して下さい。
なお、あらかじめ値が空の雛形ブックを残しておいて、都度そこから始める方が話は簡単と思いますが...

お礼

早速の回答ありがとうございます。
参考にさせていただきます。