コピーしたシートを複数追加するマクロを教えてください。 エクセルシートが左からA.B.CとありBのシ

コピーしたシートを複数追加するマクロを教えてください。

エクセルシートが左からA.B.CとありBのシートをコピーしてシートCの右に5個追加したい。
また追加したシート名をグラフ1、グラフ2のように連番て名前を付けたいです。

マクロ勉強中の為複雑ならシート追加と名前変更のマクロは別々でも大丈夫です。
わかる方お願いします。

No.1 ベストアンサー 回答者： nekoronda 回答日時： 2020/08/23 12:31

以下でどうでしょうか？

Sub シートコピー()
Dim i As Long
　For i = 1 To 5
　　Worksheets("B").Copy After:=Worksheets(Worksheets.Count)
　　ActiveSheet.Name = "グラフ" & i
　Next
End Sub

この回答へのお礼

ありがとうございます。
できました。

お礼日時：2020/08/23 19:56