スポンサーサイト

一定期間更新がないため広告を表示しています

Excel VBA 1月から12月までシートコピー

1月のシートを作成完了させておく。

Sub test()
Dim i As Integer
For i = 2 To 12
ActiveSheet.Copy After:=Sheets(Sheets.Count - 1)
With Sheets(Sheets.Count - 1)
.Name = i & "月"
End With

Next i

End Sub

スポンサーサイト

Comments

Leave a Reply