|
みなさん、質問です。
Worksheetが1〜8まであります。
外部WorkBookからデータを読み込むときに
Worksheet"1"以外のシートはデータを全てクリアする
マクロを入れたいと考えています。
このとき、Dimで「Worksheet"1"以外の全シート」
といったような定義はどう記述したらいいのか教えてください。
今は下記のような無駄な繰り返しの記述になっています。
初心者ゆえ、ご教授よろしくお願いします。
Sub シートのクリア()
Set WS1 = Worksheets("2")
Set WS2 = Worksheets("3")
Set WS3 = Worksheets("4")
WS1.Select
Cells.Select
Selection.ClearContents
Range("A1").Select
WS2.Select
Cells.Select
Selection.ClearContents
Range("A1").Select
WS3.Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Worksheets("1").Activate
End Sub
|
|