【2026年7月最新】ExcelVBA シート追加Addメソッド完全ガイド｜基本から複数・ループ・エラー対処まで徹底解説

この記事の内容

1. 01SheetsコレクションのAddメソッドとは
2. 02基本構文（Worksheets.Add）
3. 03シートを最前面に追加する
4. 04シートを最後尾に追加する
5. 05シート名を指定して追加する（.Nameプロパティ）
6. 06複数シートを一括追加するループ処理
7. 07シートの存在確認してから追加（エラー防止）
8. 08コピーして追加（Copyメソッド）
9. 09よくあるエラーと対処法
10. 10業務での活用例（月次レポートシート自動生成）
11. 11Claude Codeでシート追加を自動化
12. FAQよくある質問

📚 用語解説

Addメソッド（VBA）：ExcelVBAでワークシートを新規追加するためのメソッド。Worksheets.AddまたはSheets.Addの形式で呼び出します。追加位置（Before/After）、追加枚数（Count）、シートの種類（Type）を引数で制御でき、追加したシートへの参照を戻り値として受け取れます。

📚 用語解説

WorksheetsコレクションとSheetsコレクションの違い：Worksheetsコレクションは「ワークシート」のみを含みます。Sheetsコレクションはワークシートだけでなくグラフシートやマクロシートなども含む上位概念です。通常のシート追加作業ではWorksheetsを使うほうが安全で意図が明確になります。

VBAコードはExcelのVBAエディター（Alt+F11）を開き、左側ツリーの「Module」（標準モジュール）にコードを貼り付けます。Subプロシージャ（Sub ～ End Sub）で囲んで書くのが基本スタイルです。F5キーまたは「実行」ボタンでマクロを動かせます。

' 最もシンプルなシート追加（引数なし）
Worksheets.Add

' Sheetsコレクションでも書ける
Sheets.Add

' 引数ありの基本パターン

' 指定シートの前（左）に追加
Worksheets.Add Before:=Worksheets("Sheet1")

' 指定シートの後（右）に追加
Worksheets.Add After:=Worksheets("Sheet1")

' 2枚同時に追加
Worksheets.Add Count:=2

' 戻り値（新しいシート）を変数で受け取る
Dim ws As Worksheet
Set ws = Worksheets.Add
ws.Name = "新規シート"

📚 用語解説

メソッド・引数・戻り値：メソッドとはオブジェクト（WorksheetsなどのExcel要素）に対して実行できる命令のことです。引数はメソッドに渡す設定値（例：Before:=, After:=）で、コロンとイコール「:=」で指定します。戻り値はメソッドが実行後に返してくれる値のことで、Addメソッドは追加したシートを返します。

VBAでワークシートなどのオブジェクトを変数に代入するときは、必ず「Set」キーワードが必要です。Set ws = Worksheets.Addのように書きます。文字列や数値の変数代入（Dim i As Integer: i = 1）ではSetは不要ですが、シート・セルなどのオブジェクトにはSetが必須です。これを忘れるとエラーになります。

' 実務でよく使うパターン：追加と初期設定を一括で
Dim ws As Worksheet
Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
ws.Name = "2026年1月レポート"
ws.Cells(1, 1).Value = "作成日"
ws.Cells(1, 2).Value = Date  ' 今日の日付を入力

' シートを最前面（左端）に追加する
Worksheets.Add Before:=Worksheets(1)

' 名前付きで最前面に追加
Dim ws As Worksheet
Set ws = Worksheets.Add(Before:=Worksheets(1))
ws.Name = "目次"

Worksheets(1)はシートの順番（左から1番目）で指定します。Worksheets("Sheet1")はシート名で指定します。シートの順番は並び替えで変わりますが、名前はリネームしない限り変わりません。より確実に特定のシートを指定したい場合はシート名指定（文字列）を使いましょう。

' 目次シートを最前面に追加し、各月シートへのリンクを設定する例
Sub AddIndexSheet()
    Dim wsIndex As Worksheet
    ' 目次シートが既にある場合は削除してから作り直す
    On Error Resume Next
    Application.DisplayAlerts = False
    Worksheets("目次").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    
    ' 新しい目次シートを先頭に追加
    Set wsIndex = Worksheets.Add(Before:=Worksheets(1))
    wsIndex.Name = "目次"
    wsIndex.Cells(1, 1).Value = "■ 月次レポート 目次"
    wsIndex.Cells(1, 1).Font.Bold = True
    wsIndex.Cells(1, 1).Font.Size = 14
End Sub

Before:=Worksheets(1)は「Worksheets(1)の前に追加」という意味です。After:=Worksheets(1)にすると「Worksheets(1)の後（右隣）に追加」になります。最前面に追加したいのにAfterを使うと2番目になってしまうので注意してください。

' シートを最後尾（右端）に追加する
Worksheets.Add After:=Worksheets(Worksheets.Count)

' 名前付きで最後尾に追加
Dim ws As Worksheet
Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
ws.Name = "新しいシート"

📚 用語解説

Worksheets.Count：WorksheetsコレクションのCountプロパティ。ブック内のワークシートの総枚数を返します。Worksheets(Worksheets.Count)と書くと「最後のシート」を指定できます。After:=Worksheets(Worksheets.Count)で「最後のシートの後に追加」＝最後尾追加になります。

' 実践例：今月のレポートシートを最後尾に追加
Sub AddMonthlyReport()
    Dim ws As Worksheet
    Dim sheetName As String
    
    ' 今月の年月をシート名に使う（例：2026年7月）
    sheetName = Year(Date) & "年" & Month(Date) & "月"
    
    ' 最後尾に追加
    Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    ws.Name = sheetName
    
    ' ヘッダーを設定
    ws.Cells(1, 1).Value = sheetName & " 月次レポート"
    ws.Cells(1, 1).Font.Bold = True
    ws.Cells(2, 1).Value = "作成日：" & Date
    
    MsgBox sheetName & "のシートを作成しました"
End Sub

VBAで文字列をつなげるには「&」（アンパサンド）を使います。Year(Date)で今年の西暦、Month(Date)で今月の数字が取れます。Year(Date) & "年" & Month(Date) & "月" で「2026年7月」のような文字列が作れます。

' 名前を付けてシートを追加する（最もよく使うパターン）
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "新しいシート"

' 変数を使う場合（より読みやすい）
Dim ws As Worksheet
Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
ws.Name = "2026年7月"

📚 用語解説

Nameプロパティ：ワークシートの名前を取得・設定するプロパティです。ws.Name = "月次レポート"で名前を設定し、Debug.Print ws.Nameで名前を取得できます。シート名には次の文字が使えません：/ \ ? * [ ] :(スラッシュ・バックスラッシュ・疑問符・アスタリスク・角括弧・コロン)。最大文字数は31文字です。

' シート名のバリデーション付きで追加する実践コード
Sub AddSheetSafely(sheetName As String)
    ' 31文字超えなら切り詰める
    If Len(sheetName) > 31 Then
        sheetName = Left(sheetName, 31)
    End If
    
    ' 使えない文字を除去
    Dim badChars As String
    Dim i As Integer
    badChars = "/\?*[]:"
    For i = 1 To Len(badChars)
        sheetName = Replace(sheetName, Mid(badChars, i, 1), "_")
    Next i
    
    ' 空白チェック
    If Trim(sheetName) = "" Then
        MsgBox "シート名が空です"
        Exit Sub
    End If
    
    ' シート追加
    Dim ws As Worksheet
    Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    ws.Name = sheetName
    MsgBox "シート「" & sheetName & "」を追加しました"
End Sub

シート名に日付や連番を含めると管理しやすくなります。例：Year(Date) & "年" & Month(Date) & "月" → 「2026年7月」。Format(Date, "YYYY-MM") → 「2026-07」。FormatやYear/Month/Day関数を組み合わせて日付文字列を作ります。

' ループで複数追加（基本）
Dim i As Integer
For i = 1 To 12
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = i & "月"
Next i

' 年月付きのシートを12ヶ月分追加する実践コード
Sub CreateYearlySheets()
    Dim i As Integer
    Dim ws As Worksheet
    Dim sheetName As String
    Dim targetYear As Integer
    
    targetYear = Year(Date)  ' 今年の年を使う
    
    For i = 1 To 12
        sheetName = targetYear & "年" & i & "月"
        Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        ws.Name = sheetName
        
        ' ヘッダー行を設定
        ws.Cells(1, 1).Value = sheetName & " 月次売上レポート"
        ws.Cells(2, 1).Value = "日付"
        ws.Cells(2, 2).Value = "売上"
        ws.Cells(2, 3).Value = "原価"
        ws.Cells(2, 4).Value = "粗利"
        ws.Rows(2).Font.Bold = True
    Next i
    
    MsgBox targetYear & "年の月次シートを12枚作成しました"
End Sub

' 配列で部門名リストからシートを生成
Sub CreateDeptSheets()
    Dim depts As Variant
    Dim i As Integer
    Dim ws As Worksheet
    
    ' 部門名の配列を定義
    depts = Array("営業部", "製造部", "総務部", "経理部", "IT部")
    
    For i = 0 To UBound(depts)
        Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        ws.Name = depts(i)
        ws.Cells(1, 1).Value = depts(i) & " 集計表"
    Next i
    
    MsgBox "部門シートを" & (UBound(depts) + 1) & "枚作成しました"
End Sub

📚 用語解説

Array関数とUBound関数：Array("A", "B", "C")は要素をまとめた配列を作る関数です。UBound(配列)は配列の最大インデックス（最後の要素番号）を返します。配列のインデックスは0始まりなので、5要素の配列のUBoundは4になります。For i = 0 To UBound(depts)と書けば配列の全要素を順番に処理できます。

' シートの存在確認関数
Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets(sheetName)
    On Error GoTo 0
    SheetExists = Not (ws Is Nothing)
End Function

' 使い方
Sub AddSheetIfNotExists()
    Dim sheetName As String
    sheetName = "2026年7月"
    
    If SheetExists(sheetName) Then
        MsgBox "シート「" & sheetName & "」は既に存在します"
    Else
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName
        MsgBox "シート「" & sheetName & "」を追加しました"
    End If
End Sub

📚 用語解説

On Error Resume Next / On Error GoTo 0：On Error Resume Nextはエラーが発生しても処理を止めずに次の行へ進む命令です。シートが存在しない場合にWorksheets(sheetName)でエラーが出ても、処理を続行させます。On Error GoTo 0でエラー無視モードを解除します。この2つはセットで使います。エラートラップの仕組みとして頻出するので覚えておきましょう。

' 12ヶ月シートを存在確認しながら追加
Sub CreateMonthlySheetsWithCheck()
    Dim i As Integer
    Dim sheetName As String
    Dim addedCount As Integer
    addedCount = 0
    
    For i = 1 To 12
        sheetName = Year(Date) & "年" & i & "月"
        If Not SheetExists(sheetName) Then
            Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName
            addedCount = addedCount + 1
        End If
    Next i
    
    If addedCount > 0 Then
        MsgBox addedCount & "枚のシートを追加しました"
    Else
        MsgBox "追加すべきシートはすでに全て存在します"
    End If
End Sub

同名シートを追加しようとすると「実行時エラー1004: Worksheetクラスのメソッドの追加が失敗しました」が発生してマクロが止まります。本番環境での使用前に必ず存在確認を組み込みましょう。特に定期実行するマクロでは、2回目以降の実行を想定したエラー対策が必須です。

月次レポートを毎月上書き更新する用途なら、存在チェックで「あれば削除してから追加」という方針もあります。削除時はApplication.DisplayAlerts = Falseで確認ダイアログを非表示にし、処理後にApplication.DisplayAlerts = Trueで戻します。

' 指定シートをコピーして最後尾に追加
Worksheets("テンプレート").Copy After:=Worksheets(Worksheets.Count)

' コピー後に名前を変更
Worksheets("テンプレート").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "2026年7月"  ' コピー直後はActiveSheetがコピー先になる

📚 用語解説

Copyメソッド：ワークシートを別の位置にコピーするメソッドです。Before/After引数で挿入位置を指定します。Before/Afterを省略すると新しいブックにコピーされます。コピーされたシートはActiveSheetになるため、直後にActiveSheet.Nameで名前を変更できます。

' テンプレートシートから月次シートを一括生成
Sub CreateMonthlyFromTemplate()
    Dim i As Integer
    Dim ws As Worksheet
    Dim sheetName As String
    Dim templateName As String
    
    templateName = "テンプレート"  ' コピー元のシート名
    
    ' テンプレートシートが存在するか確認
    If Not SheetExists(templateName) Then
        MsgBox "テンプレートシートが見つかりません"
        Exit Sub
    End If
    
    For i = 1 To 12
        sheetName = Year(Date) & "年" & i & "月"
        
        ' 既に存在する場合はスキップ
        If Not SheetExists(sheetName) Then
            ' テンプレートをコピー
            Worksheets(templateName).Copy After:=Worksheets(Worksheets.Count)
            ' コピー直後はActiveSheetがコピー先
            ActiveSheet.Name = sheetName
            ' タイトルセルを更新
            ActiveSheet.Cells(1, 1).Value = sheetName & " 月次レポート"
        End If
    Next i
    
    MsgBox "月次シートの作成が完了しました"
End Sub

テンプレートシートはユーザーに直接触らせたくない場合が多いです。Worksheets("テンプレート").Visible = xlSheetVeryHiddenと設定すると、「書式→シートの表示」からも表示できない完全非表示になります。(xlSheetHiddenは「書式→シートの表示」から見える半非表示です)

' エラー対処込みのシート追加（実務レベル）
Sub RobustAddSheet(sheetName As String)
    ' ── 1. 名前のバリデーション ──
    ' 31文字超えは切り詰め
    If Len(sheetName) > 31 Then sheetName = Left(sheetName, 31)
    ' 使えない文字を「_」に置換
    Dim c As String
    For Each c In Array("/", "\", "?", "*", "[", "]", ":")
        sheetName = Replace(sheetName, c, "_")
    Next c
    ' 空白チェック
    If Trim(sheetName) = "" Then MsgBox "シート名が空です": Exit Sub
    
    ' ── 2. 存在確認 ──
    If SheetExists(sheetName) Then
        MsgBox "シート「" & sheetName & "」は既に存在します。" & vbCrLf & _
               "上書きしますか？", vbQuestion + vbYesNo
        ' 上書き確認は必要に応じて実装
        Exit Sub
    End If
    
    ' ── 3. シート追加 ──
    On Error GoTo ErrHandler
    Dim ws As Worksheet
    Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    ws.Name = sheetName
    MsgBox "シート「" & sheetName & "」を追加しました"
    Exit Sub
    
ErrHandler:
    MsgBox "エラーが発生しました: " & Err.Description
End Sub

📚 用語解説

On Error GoTo ラベル名：エラーが発生した場合に指定したラベル（ErrHandler:など）にジャンプする命令です。ErrHandlerラベル内でErr.Number（エラー番号）やErr.Description（エラー内容）を参照できます。本格的なエラーハンドリングに使います。On Error Resume Nextより細かい制御ができます。

大量のシートを追加するマクロでは、画面の再描画がボトルネックになることがあります。マクロの先頭にApplication.ScreenUpdating = Falseを書き、末尾にApplication.ScreenUpdating = Trueで戻すと、処理速度が大幅に向上します。100枚以上のシートを追加する場合は特に効果があります。

エラーが出たらまずF5で実行を試み、エラーが出た行をメモしてください。Debug.Print 変数名 でイミディエイトウィンドウ（Ctrl+G）に変数の値を出力できます。ブレークポイント（行をクリックしてF9）を設定してステップ実行（F8）すると、一行ずつ処理を追えるので問題の特定が簡単になります。

' ============================================================
' 月次レポートシート一括生成マクロ（完全版）
' ============================================================
Sub CreateAllMonthlySheets()
    Dim i As Integer
    Dim ws As Worksheet
    Dim wsIndex As Worksheet
    Dim sheetName As String
    Dim targetYear As Integer
    Dim addedCount As Integer
    
    targetYear = Year(Date)
    addedCount = 0
    
    ' 画面更新を停止（高速化）
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    On Error GoTo ErrHandler
    
    ' ── STEP1: 目次シートを先頭に作成 ──
    If SheetExists("目次") Then
        Worksheets("目次").Delete
    End If
    Set wsIndex = Worksheets.Add(Before:=Worksheets(1))
    wsIndex.Name = "目次"
    wsIndex.Cells(1, 1).Value = targetYear & "年 月次レポート 目次"
    wsIndex.Cells(1, 1).Font.Bold = True
    wsIndex.Cells(1, 1).Font.Size = 16
    wsIndex.Cells(3, 1).Value = "月"
    wsIndex.Cells(3, 2).Value = "シート名"
    wsIndex.Cells(3, 3).Value = "リンク"
    wsIndex.Rows(3).Font.Bold = True
    
    ' ── STEP2: 月次シートを順番に作成 ──
    For i = 1 To 12
        sheetName = targetYear & "年" & i & "月"
        
        If Not SheetExists(sheetName) Then
            ' テンプレートからコピー（テンプレートがない場合は空で追加）
            If SheetExists("テンプレート") Then
                Worksheets("テンプレート").Copy After:=Worksheets(Worksheets.Count)
                ActiveSheet.Name = sheetName
            Else
                Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
                ws.Name = sheetName
            End If
            addedCount = addedCount + 1
        End If
        
        ' 目次にリンクを追加
        wsIndex.Cells(3 + i, 1).Value = i & "月"
        wsIndex.Cells(3 + i, 2).Value = sheetName
        wsIndex.Hyperlinks.Add _
            Anchor:=wsIndex.Cells(3 + i, 3), _
            Address:="", _
            SubAddress:="'" & sheetName & "'!A1", _
            TextToDisplay:="> 開く"
    Next i
    
    ' 目次シートのオートフィット
    wsIndex.Columns("A:C").AutoFit
    
    ' ── 完了 ──
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    If addedCount > 0 Then
        MsgBox addedCount & "枚の月次シートを追加しました。"
    Else
        MsgBox "すべての月次シートは既に存在します。目次を更新しました。"
    End If
    Exit Sub
    
ErrHandler:
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "エラーが発生しました: " & Err.Description
End Sub

' ─── SheetExists関数（上で定義済みの場合は不要）───
Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets(sheetName)
    On Error GoTo 0
    SheetExists = Not (ws Is Nothing)
End Function

📚 用語解説

Claude Code：Anthropicが提供するAIコーディングアシスタント。ExcelVBAコードの生成・デバッグ・改善を日本語の指示で依頼できます。「月次レポートのシートを12枚自動追加するVBAを作って」のような指示を出すだけで、実際に動くコードを生成してくれます。非エンジニアの経営者でも使いこなせます。

プロンプト例（Claude Codeへの指示）：
「Excelで月次レポートを管理しています。
次の機能を持つVBAマクロを作ってください。

1. 今年の1月〜12月分のシートを一括作成する
2. シート名は「2026年1月」のような形式にする
3. 既にシートがある場合はスキップする
4. 各シートにヘッダー行（日付・売上・原価・粗利）を設定する
5. 処理完了後にメッセージを表示する

非エンジニアでも理解できるようにコメントを付けてください。"

Claude Codeが生成するコードは高品質ですが、必ずテスト用のExcelファイルで動作確認してから本番データに使用してください。特にシート削除・上書きを伴うマクロは、元に戻せないケースもあるため、実行前にバックアップを必ず取ってください。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？