【エクセルマクロ】12ヶ月分のシート作成：作業効率アップ

エクセルマクロで、12ヶ月分のシート作成するVBAコードをご紹介します。

12枚のシートを自動生成します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

12ヶ月分のシート作成

以下のExcelVBAを実行すると、1か月ごとに連続したシートを作成します。

Sub シート追加()

Dim First_Sht As Worksheet
Dim Months As Long
Dim i As Long

    '最初のシートを変数格納
    Set First_Sht = ActiveSheet
    
    '12か月のループ
    For i = 1 To 12
    
        If i = 1 Then
            '最初のシートは、シート名を変更するのみ
            First_Sht.Name = i & "月"
        Else
        
            'シート作成し、シート名を日付にする
            Sheets.Add After:=ActiveSheet
            ActiveSheet.Name = i & "月"
            ActiveSheet.Range("A1") = i & "月"
        
        End If
    Next i
    
    MsgBox "完了"

End Sub

マクロ実行前

ファイル内にシートが１つある状態です。

マクロ実行後

ファイル内に1月から12月までのシートを自動挿入します。

 
 
この記事がお役に立ちますと幸いです。
 

・【エクセルマクロ】シートの追加・削除を自動化まとめ
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

...

kirinote.com

2023.09.03