【Excel VBA】シートの連続コピー

Excelを使っていて、こんなことはありませんか？

日々の受付件数を集計するブックを作成するのに、1日のシートと同じシートを2日〜31日まで、まとめて作成したい！

手動でやろうとすると、一つ目のシートを右クリックして、複写して、シート名を変えて…

はい、手間だと思います。

このVBAコードは、シートを一括で複写してくれます！

ソースコード

Sub Copy()

Dim i As Integer
Dim j As Integer

i = 1

For j = 0 To 30

    i = i + 1

    Sheets("1日").Select

    Sheets("1日").copy After:=Sheets(Worksheets.Count)

    Sheets("1日(2)").Select

    Sheets("1日").Name = i & "日"

Next

End Sub

あとは、このVBAを実行すれば、一瞬で31日までのシートが作成されます。

ぜひ、お試しあれ！