Excel 2007 マクロ 複数シートの更新

質問

Excel 2007 マクロ 複数シートの更新

Sheet1に元データがあり、Sheet2以降に複数シートがあります。
複数シートにはSheet1を元データとしてピボットテーブルを作成しています。
下記はSheet2で行う作業のマクロです。
同様の内容がSheet3以降あります。
どのようにすれば複数シートを一括で更新できるようでしょうか。

Sub Sagyo()
'ピボットテーブル更新
Worksheets("Sheet2").Range("A1").RefreshAll
　　'A1を含むピボットテーブル表をA15にコピーして値貼り付け
Worksheets("Sheet2").Range("A1").CurrentRegion.Copy
Range("A15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

回答No.1

conanthe · ベストアンサー

こんにちは。ハンドルネームconantheです。

シートが左から順に並んでいるのなら、シート名のところを変数にすればいいと思います。たとえば処理をするシートがSheet2からSheet5まで順に並んでいるとすると、下のようなコードになります。

Sub Sagyo()
'ピボットテーブル更新
For sht = 2 To 5
Worksheets(sht).Range("A1").RefreshAll
'A1を含むピボットテーブル表をA15にコピーして値貼り付け
Worksheets(sht).Range("A1").CurrentRegion.Copy
Range("A15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next sht
End Sub

お礼

ご回答ありがとうございました。なるほどですね。勉強になりました。