【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日までのシートが作成されます。
ぜひ、お試しあれ!