連番で12月のワークシートを一括追加

 

Sub test()

    ❜ 連番で12月のワークシートを一括追加

 

    Dim i As Long
    
    For i = 1 To 12
        Worksheets.Add(after:=Sheets(Sheets.Count)).Name = Format(i, "00") & ""
    Next i
 

End Sub

 

実行結果

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事