見出し画像

【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日までのシートが作成されます。

ぜひ、お試しあれ!



この記事が気に入ったらサポートをしてみませんか?