【2026年7月最新】VBA実行時エラー1004の原因と解決方法完全ガイド｜発生パターン別の対処法を実践コード付きで解説

この記事の内容

1. 01エラー1004とは何か・なぜ最頻出なのか
2. 02原因1：存在しないファイルを開こうとした
3. 03原因2：存在しないシート・セル範囲を指定した
4. 04原因3：非アクティブシートのセルをSelectしようとした
5. 05原因4：コピー元とコピー先の範囲が異なる
6. 06原因5：保護されたシートに書き込もうとした
7. 07原因6：名前付き範囲・テーブルの指定ミス
8. 08原因7：行・列のインデックスが0以下または上限超
9. 09デバッグ手法（Debug.Print・ブレークポイント・イミディエイトウィンドウ）
10. 10エラー処理でError 1004をキャッチする
11. 11まとめ
12. FAQよくある質問

📚 用語解説

実行時エラー1004（Application-defined or object-defined error）：VBAのExcelオブジェクトモデルに対して「実行できない操作」を行ったときに発生する汎用エラー。番号が1004と固定されているため「どんな操作が原因か」はメッセージだけでは特定できません。ファイル操作・シート操作・セル操作・コピー操作・保護解除など、Excelが受け付けられない状態の操作全般がこのエラーを引き起こします。

VBAエディタで「実行」→「ステップイン（F8）」で1行ずつ実行すると、エラーが発生した正確な行で止まります。または通常実行（F5）でエラーダイアログが出たとき「デバッグ」ボタンをクリックすると、エラー発生行が黄色くハイライトされます。

ファイルパスのエラーの多くは「バックスラッシュの入れ忘れ」「フォルダ名の大文字小文字」「全角文字の混入」「末尾のスペース」といった単純なミスです。まずDebug.Printでパスを確認することを習慣にしてください。

📚 用語解説

Dir関数：VBAの組み込み関数。指定したパスのファイルまたはフォルダが存在するかを確認できます。Dir(パス)を呼び出して空文字（""）が返ってくればファイルなし、ファイル名が返ってくれば存在します。ワイルドカード（*）も使用可能。Workbooks.Openの前にDir関数で存在確認することでエラー1004を未然に防げます。

' Dir関数でファイル存在確認してからOpenする（推奨パターン）
Sub SafeOpenWorkbook()
    Dim filePath As String
    filePath = "C:\Users\kohei\Desktop\report.xlsx"

    ' ① まずDir関数でファイルが存在するか確認
    If Dir(filePath) = "" Then
        MsgBox "ファイルが見つかりません。" & vbCrLf & _
               "パス: " & filePath & vbCrLf & _
               "ファイルが正しいフォルダにあるか確認してください。", _
               vbExclamation, "ファイル未存在"
        Exit Sub
    End If

    ' ② 存在が確認できたら開く（エラー1004が出ない）
    Dim wb As Workbook
    Set wb = Workbooks.Open(filePath)

    ' 処理
    MsgBox "ファイルを開きました: " & wb.Name
    wb.Close False
End Sub

' Debug.Printでパスの内容を確認する
Sub DebugFilePath()
    Dim folderPath As String
    Dim fileName As String
    Dim filePath As String

    folderPath = "C:\Users\kohei\Desktop\"
    fileName = "report.xlsx"
    filePath = folderPath & fileName

    ' イミディエイトウィンドウ（Ctrl+G）に出力して確認
    Debug.Print "folderPath: [" & folderPath & "]"  ' 末尾の\確認
    Debug.Print "fileName: [" & fileName & "]"       ' 全角文字・スペース確認
    Debug.Print "filePath: [" & filePath & "]"       ' 結合後の確認

    ' Dir関数で存在確認
    Debug.Print "Dir result: [" & Dir(filePath) & "]"  ' "" なら存在しない

    If Dir(filePath) = "" Then
        MsgBox "ファイルが存在しません: " & filePath
        Exit Sub
    End If

    Workbooks.Open filePath
End Sub

📚 用語解説

イミディエイトウィンドウ：VBAエディタ下部に表示されるデバッグ用ウィンドウ。Debug.Print文で出力した値がリアルタイムで表示されます。表示されていない場合はCtrl+G（またはメニュー「表示」→「イミディエイトウィンドウ」）で開けます。変数の値確認・パスの内容確認・計算結果の確認など、デバッグ作業全般に使います。実行中はもちろん、停止中（ブレークポイント時）も?変数名と入力して変数の現在値を確認できます。

' パスを組み立てるときの安全な方法
Sub BuildSafePath()
    ' Environ関数でユーザーフォルダを動的に取得（環境依存を避ける）
    Dim userProfile As String
    userProfile = Environ("USERPROFILE")  ' C:\Users\kohei などを取得
    Debug.Print "USERPROFILE: " & userProfile

    ' パスの結合（末尾の\を確認して付ける）
    Dim folderPath As String
    If Right(userProfile, 1) <> "\\" Then
        folderPath = userProfile & "\\Desktop\\"
    Else
        folderPath = userProfile & "Desktop\\"
    End If

    Dim filePath As String
    filePath = folderPath & "monthly_report.xlsx"
    Debug.Print "Target: " & filePath

    ' 存在確認してから開く
    If Dir(filePath) <> "" Then
        Workbooks.Open filePath
    Else
        MsgBox "ファイルが見つかりません: " & vbCrLf & filePath, vbCritical
    End If
End Sub

' シートの存在確認関数（再利用可能）
Function SheetExists(sheetName As String, Optional wb As Workbook) As Boolean
    If wb Is Nothing Then Set wb = ThisWorkbook

    Dim ws As Worksheet
    On Error Resume Next
    Set ws = wb.Sheets(sheetName)
    On Error GoTo 0

    SheetExists = Not (ws Is Nothing)
End Function

' 使い方
Sub UseSheetExists()
    Dim targetSheet As String
    targetSheet = "データ集計"

    ' シートの存在確認
    If Not SheetExists(targetSheet) Then
        MsgBox "「" & targetSheet & "」シートが見つかりません。" & vbCrLf & _
               "シート名の確認（スペース・全角文字に注意）をお願いします。", _
               vbExclamation, "シート未存在"
        Exit Sub
    End If

    ' 安全に操作
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(targetSheet)
    ws.Cells(1, 1).Value = "処理完了"
    MsgBox "処理が完了しました"
End Sub

Sheets(1)のようなインデックスは、シートの順番が変わると意図しないシートを参照します。Sheets("シート名")で名前指定するか、コードネーム（シートオブジェクト名）で直接Sheet1.Cells(1,1)のように参照する方が安全です。

' Range・Cells指定でよくあるエラー1004のパターン
Sub RangeErrorExamples()
    ' パターン1: 存在しないアドレス
    ' Range("A0").Value = "x"       ← エラー1004（行0は存在しない）
    ' Range("A1048577").Value = "x" ← エラー1004（Excelの最大行数超過）

    ' パターン2: 変数が0または負の値になっている
    Dim rowNum As Long
    rowNum = 0  ' ← 何かの計算で0になってしまっている

    ' Cells(rowNum, 1).Value = "x"  ← エラー1004（rowNumが0）

    ' 対処: 事前に有効な範囲かチェック
    If rowNum < 1 Or rowNum > Rows.Count Then
        MsgBox "行番号が不正です: " & rowNum, vbCritical
        Exit Sub
    End If

    Cells(rowNum, 1).Value = "x"  ' 安全

    ' パターン3: End(xlUp)で空シートを操作したとき
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    ' ← データがない場合lastRowは1（ヘッダーもない場合）
    Debug.Print "lastRow: " & lastRow

    ' 最終行が1の場合（データなし）は処理しない
    If Cells(1, 1).Value = "" Then
        MsgBox "データがありません", vbInformation
        Exit Sub
    End If
End Sub

📚 用語解説

Selectメソッドとアクティブシートの関係：VBAのSelectメソッドはExcelの「現在画面に表示されている（アクティブな）シート」のオブジェクトにしか使用できません。非アクティブシートのセル（ws.Cells(1,1)など）に対してSelectを呼ぶとエラー1004が発生します。解決策は「そのシートをActivateしてからSelectする」か「Selectを使わずに直接値を代入・参照する」です。

' エラーが出るパターン（非アクティブシートへのSelect）
Sub BadSelectPattern()
    ' Sheet1が画面に表示されていない状態で実行するとエラー1004
    Sheets("Sheet1").Select           ' ← これはOK（シートをアクティブにする）

    ' ↓ これが問題：Sheet1が非アクティブのときにCells.Selectを呼ぶ
    Sheets("Sheet2").Cells(1, 1).Select  ' ← エラー1004
    ' （Sheet1をSelectした後、さらにSheet2のCellsをSelectしようとしている）
End Sub

' もっと典型的なエラーパターン
Sub TypicalBadPattern()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")

    ws1.Activate  ' Sheet1をアクティブに

    ' Sheet2のセルをSelectしようとする → エラー1004
    ws2.Cells(1, 1).Select  ' ← Sheet2は非アクティブなのでNG
End Sub

' 解決策1: シートをActivateしてからSelectする
Sub FixWithActivate()
    Dim ws2 As Worksheet
    Set ws2 = ThisWorkbook.Sheets("Sheet2")

    ws2.Activate              ' ← 先にシートをアクティブにする
    ws2.Cells(1, 1).Select    ' ← Activate後ならSelectできる
    ActiveCell.Value = "テスト"
End Sub

' 解決策2（推奨）: Selectを使わず直接操作する
Sub BestPracticeNoSelect()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")

    ' Selectなしで直接値を代入・参照できる（どのシートでもOK）
    ws1.Cells(1, 1).Value = "Sheet1の値"        ' ← アクティブでなくてもOK
    ws2.Cells(1, 1).Value = ws1.Cells(1, 1).Value  ' ← 両方非アクティブでもOK
    ws2.Range("B2:D5").ClearContents             ' ← 範囲クリアも直接可能

    MsgBox "処理完了"
End Sub

' マクロ記録で生成されたコードを書き換える例
' ===== 書き換え前（マクロ記録のコード）=====
' Sheets("Sheet2").Select
' Range("A1").Select
' ActiveCell.FormulaR1C1 = "テスト"
' Range("B1").Select
' ActiveCell.FormulaR1C1 = "データ"

' ===== 書き換え後（推奨パターン）=====
Sub RefactoredMacro()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet2")
    ws.Range("A1").Value = "テスト"   ' ← Selectなし、直接代入
    ws.Range("B1").Value = "データ"   ' ← Selectなし、直接代入
End Sub

Excelのマクロ記録機能が生成するコードは「人間が手で操作した通りの手順」を記録するため、大量のSelect/Activateが含まれます。このコードを別のシートから呼ぶとエラー1004が出ることが多いです。マクロ記録はコードの参考にして、SelectをValue代入に書き換える習慣をつけてください。

' コピー・ペーストのエラー1004パターンと解決策
Sub CopyPastePatterns()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' === パターン1: コピー後に別の操作をしてクリップボードが失われる ===
    ws.Range("A1:A10").Copy
    ' ↓ ここで別のセルを操作するとクリップボードが解放されることがある
    ws.Cells(1, 3).Value = "なにか"  ' ← この操作でクリップボードが解放
    ' ws.Range("C1:C10").PasteSpecial  ← エラー1004（クリップボードが空）

    ' === 解決策: CopyとPasteは連続して実行する ===
    ws.Range("A1:A10").Copy ws.Range("C1")  ' ← 1行でコピー先を指定（クリップボード不要）
    MsgBox "パターン1 解決済み"

    ' === パターン2: コピー元が複数列でペースト先が1列だけ ===
    ws.Range("A1:C10").Copy  ' 3列×10行をコピー
    ' ws.Range("E1:E10").PasteSpecial  ← エラー（E1:E10は1列なので形が合わない）

    ' 解決策: ペースト先は左上セルのみ指定（Excelが自動で広げる）
    ws.Range("A1:C10").Copy ws.Range("E1")  ' ← E1を起点に自動展開（E1:G10）
    MsgBox "パターン2 解決済み"

    Application.CutCopyMode = False  ' コピーモード（点線枠）を解除
End Sub

' PasteSpecialのエラー1004対策
Sub SafePasteSpecial()
    Dim srcWs As Worksheet
    Dim dstWs As Worksheet
    Set srcWs = ThisWorkbook.Sheets("データ")
    Set dstWs = ThisWorkbook.Sheets("集計")

    ' === 値のみ貼り付け（書式を除いたコピー）===
    srcWs.Range("A1:D100").Copy

    ' PasteSpecial前にクリップボードが有効かを確認（確実な方法）
    On Error GoTo PasteError
    dstWs.Range("A1").PasteSpecial Paste:=xlPasteValues
    On Error GoTo 0

    Application.CutCopyMode = False
    Exit Sub

PasteError:
    Application.CutCopyMode = False
    MsgBox "貼り付けに失敗しました（クリップボードが空の可能性）。" & vbCrLf & _
           "エラー: " & Err.Description, vbCritical
End Sub

' === コピーせずに直接値を転送する方法（推奨）===
Sub DirectValueTransfer()
    Dim srcWs As Worksheet
    Dim dstWs As Worksheet
    Set srcWs = ThisWorkbook.Sheets("データ")
    Set dstWs = ThisWorkbook.Sheets("集計")

    ' PasteSpecialを使わず直接値を代入（最も安全・高速）
    dstWs.Range("A1:D100").Value = srcWs.Range("A1:D100").Value
    ' ← コピー不要、クリップボード不要、エラー1004のリスクなし

    MsgBox "転送完了"
End Sub

VBAでデータを別シート・別ブックに転送するとき、CopyとPasteSpecialよりも「Range.Value = Range.Value」の直接代入のほうが安全で高速です。値のみの転送ならコピーを経由する必要はまったくありません。書式もコピーしたい場合のみCopyを使います。

📚 用語解説

DisplayAlertsプロパティ：Application.DisplayAlertsをFalseに設定すると、Excelが通常表示する確認ダイアログ（「シートを削除しますか？」「ファイルを上書きしますか？」など）を自動的にデフォルト回答で処理します。コピー操作後にDisplayAlerts = Falseを設定するとコピーモードも解除されることがあります。必ず処理の最後にApplication.DisplayAlerts = Trueで元に戻してください。

' DisplayAlertsを使う場面と注意点
Sub DisplayAlertsExample()
    ' シートの削除（確認ダイアログを出さない）
    Application.DisplayAlerts = False
    On Error Resume Next  ' すでに存在しない場合のエラーを無視
    ThisWorkbook.Sheets("一時シート").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True  ' ← 必ず元に戻す！

    ' ファイルの上書き保存（確認ダイアログを出さない）
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs "C:\Data\output.xlsx", xlOpenXMLWorkbook
    Application.DisplayAlerts = True  ' ← 必ず元に戻す！

    MsgBox "完了"
End Sub

📚 用語解説

保護シート（ProtectとUnprotect）：Excelシートの「シートの保護」機能（ホームタブやレビュータブから設定）がオンの状態。保護されたシートにVBAでCells.Value = xなどの書き込み操作を行うとエラー1004が発生します。VBAからws.Unprotect（パスワード）で保護を解除して操作し、終了後にws.Protect（パスワード）で再保護するのが基本パターンです。

' 保護シートへの書き込みエラーと解決策
Sub ProtectedSheetError()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("設定シート")

    ' ===== 保護されているか確認する =====
    If ws.ProtectContents Then
        Debug.Print "シートは保護されています"
    Else
        Debug.Print "シートは保護されていません"
    End If

    ' ===== 解決策: Unprotectして書き込み→再Protect =====
    Const SHEET_PASSWORD As String = "password123"  ' パスワードがない場合は空文字

    ' 保護を解除
    ws.Unprotect Password:=SHEET_PASSWORD

    ' 書き込み操作
    ws.Cells(1, 1).Value = "更新済み"
    ws.Cells(2, 1).Value = Now()

    ' 保護を再設定（処理後は必ず戻す）
    ws.Protect Password:=SHEET_PASSWORD, _
               DrawingObjects:=True, _
               Contents:=True, _
               Scenarios:=True

    MsgBox "保護シートへの書き込みが完了しました"
End Sub

' エラーが発生しても保護を確実に再設定するパターン
Sub SafeProtectedSheetEdit()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("設定シート")
    Const PW As String = "mypassword"

    Dim wasProtected As Boolean
    wasProtected = ws.ProtectContents  ' 保護状態を記録

    On Error GoTo ErrorHandler

    ' 保護を解除（保護されていた場合のみ）
    If wasProtected Then ws.Unprotect Password:=PW

    ' データ書き込み（ここでエラーが出る可能性）
    ws.Cells(1, 1).Value = "更新値"
    ws.Cells(2, 1).Value = Now()

    ' 正常完了後に再保護
    If wasProtected Then ws.Protect Password:=PW, Contents:=True
    MsgBox "更新完了"
    Exit Sub

ErrorHandler:
    ' エラーが出ても保護を必ず再設定
    If wasProtected Then
        On Error Resume Next  ' 再保護に失敗しても止めない
        ws.Protect Password:=PW, Contents:=True
        On Error GoTo 0
    End If
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

シート保護のパスワードをVBAコードに直接書くと、VBAエディタを開ける人はパスワードを見られます。重要なパスワードの場合は「VBAプロジェクトにもパスワード（ロック）をかける」か、パスワードを別セル・別ファイルに保存してVBAから読み込む設計にしてください。

' 名前付き範囲のエラー1004対策
Sub NamedRangeError()
    ' === エラーが出るパターン ===
    ' Range("SalesData").Value  ← 名前"SalesData"が定義されていないとエラー1004

    ' === 解決策1: 名前が存在するか確認する関数 ===
    Debug.Print NameExists("SalesData", ThisWorkbook)  ' True/False

    ' === 解決策2: 事前確認してから使う ===
    If NameExists("SalesData", ThisWorkbook) Then
        Dim rng As Range
        Set rng = ThisWorkbook.Names("SalesData").RefersToRange
        Debug.Print "SalesData: " & rng.Address
        rng.Interior.Color = RGB(255, 255, 0)  ' 黄色にする
    Else
        MsgBox "名前付き範囲「SalesData」が定義されていません", vbExclamation
    End If
End Sub

' 名前付き範囲の存在確認関数
Function NameExists(namedRange As String, wb As Workbook) As Boolean
    Dim nm As Name
    On Error Resume Next
    Set nm = wb.Names(namedRange)
    On Error GoTo 0
    NameExists = Not (nm Is Nothing)
End Function

' テーブル（ListObject）の安全な参照
Sub ListObjectSafeAccess()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Const TABLE_NAME As String = "SalesTable"

    ' テーブルが存在するか確認
    Dim lo As ListObject
    On Error Resume Next
    Set lo = ws.ListObjects(TABLE_NAME)
    On Error GoTo 0

    If lo Is Nothing Then
        MsgBox "テーブル「" & TABLE_NAME & "」が見つかりません。" & vbCrLf & _
               "Sheet1にそのテーブルが存在するか確認してください。", vbExclamation
        Exit Sub
    End If

    ' テーブルの操作
    Debug.Print "テーブル行数: " & lo.ListRows.Count
    Debug.Print "テーブル列数: " & lo.ListColumns.Count

    ' 特定列のデータを取得（列名で指定）
    Dim col As ListColumn
    On Error Resume Next
    Set col = lo.ListColumns("売上金額")
    On Error GoTo 0

    If col Is Nothing Then
        MsgBox "列「売上金額」が見つかりません", vbExclamation
        Exit Sub
    End If

    Debug.Print "売上金額列のデータ範囲: " & col.DataBodyRange.Address
End Sub

Excelの名前付き範囲は「ブック全体で有効（ブックスコープ）」と「特定シートでのみ有効（シートスコープ）」の2種類があります。シートスコープの名前はRange("Sheet1!SalesData")のようにシート名をプレフィックスに付けて参照します。別のシートからブックスコープの名前を参照しても動きますが、シートスコープは同じシート内からしか直接参照できません。

' インデックス範囲超過のエラー1004対策
Sub IndexRangeCheck()
    ' === よくある原因: 計算結果が0や負になる ===
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row  ' データの最終行

    ' データがない場合lastRowは1（1行目が空でも1が返る場合がある）
    Debug.Print "lastRow: " & lastRow

    ' ヘッダー行があって2行目からデータの場合、データが1件もないとstartRow > lastRowになる
    Dim startRow As Long
    startRow = 2  ' 2行目からデータ
    If startRow > lastRow Then
        MsgBox "処理対象のデータがありません", vbInformation
        Exit Sub
    End If

    ' ループでのインデックス検証
    Dim r As Long
    For r = startRow To lastRow
        ' 行インデックスが有効範囲か確認（念のため）
        If r < 1 Or r > Rows.Count Then
            Debug.Print "不正な行インデックス: " & r
            Exit For
        End If

        ' 列インデックスの計算がある場合も同様に確認
        Dim colOffset As Long
        colOffset = 3  ' 何らかの計算

        Dim targetCol As Long
        targetCol = colOffset  ' この値が0以下になる可能性がある場合

        If targetCol < 1 Or targetCol > Columns.Count Then
            Debug.Print "不正な列インデックス: " & targetCol & " (行=" & r & ")"
            GoTo NextRow
        End If

        Cells(r, targetCol).Value = "処理済"
NextRow:
    Next r

    MsgBox "処理完了"
End Sub

' インデックス検証ユーティリティ関数
' 安全にCellsを参照するためのラッパー関数
Function SafeCell(ws As Worksheet, row As Long, col As Long) As Range
    If row < 1 Or row > ws.Rows.Count Or col < 1 Or col > ws.Columns.Count Then
        Debug.Print "SafeCell: 無効なインデックス (row=" & row & ", col=" & col & ")"
        Set SafeCell = Nothing
        Exit Function
    End If
    Set SafeCell = ws.Cells(row, col)
End Function

' 使い方
Sub UseSafeCell()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim r As Long
    Dim c As Long
    ' 何らかの計算でr・cが求まる
    r = 5
    c = 0  ' ← 誤って0になっているケース

    Dim cell As Range
    Set cell = SafeCell(ws, r, c)

    If cell Is Nothing Then
        MsgBox "無効なセル位置 (r=" & r & ", c=" & c & ")", vbCritical
        Exit Sub
    End If

    cell.Value = "テスト"
End Sub

📚 用語解説

Debug.Print（デバッグ・プリント）：VBAの組み込みステートメント。Debug.Print 式 と書くと、その式の値がイミディエイトウィンドウ（VBAエディタ下部のパネル）に出力されます。MsgBoxと違いプログラムが止まらないため、ループ内の変数値の追跡に適しています。本番前に削除するか、コメントアウトして無効化します。

' Debug.Printの活用例（エラー1004のデバッグ）
Sub DebugWithPrint()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim filePath As String
    Dim sheetName As String

    filePath = "C:\Data\report.xlsx"
    sheetName = "集計"

    ' ===== ファイルパスとDir結果を確認 =====
    Debug.Print "=== ファイル確認 ==="
    Debug.Print "filePath: [" & filePath & "]"
    Debug.Print "Dir result: [" & Dir(filePath) & "]"  ' ""ならファイルなし

    If Dir(filePath) = "" Then
        Debug.Print "ファイルが存在しません"
        Exit Sub
    End If

    Set wb = Workbooks.Open(filePath)

    ' ===== ブック内のシート一覧を確認 =====
    Debug.Print "=== シート一覧 ==="
    Dim i As Integer
    For i = 1 To wb.Sheets.Count
        Debug.Print "  シート" & i & ": [" & wb.Sheets(i).Name & "]"
    Next i

    ' ===== 目的のシートが存在するか確認 =====
    Debug.Print "=== シート存在確認 ==="
    Debug.Print "sheetName: [" & sheetName & "]"
    Debug.Print "SheetExists: " & SheetExists(sheetName, wb)

    If Not SheetExists(sheetName, wb) Then
        Debug.Print "シートが存在しません"
        wb.Close False
        Exit Sub
    End If

    Set ws = wb.Sheets(sheetName)

    ' ===== 最終行・列を確認 =====
    Dim lastRow As Long
    Dim lastCol As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    Debug.Print "=== データ範囲 ==="
    Debug.Print "lastRow: " & lastRow & ", lastCol: " & lastCol

    wb.Close False
    Debug.Print "=== デバッグ完了 ==="
End Sub

' イミディエイトウィンドウでの確認方法（?コマンド）

' ブレークポイントで止まっているとき、イミディエイトウィンドウ（Ctrl+G）で
' 以下のように入力して変数の値や式の結果を確認できる

' ? ws.Name               ← wsが何のシートか確認
' ? ws.ProtectContents    ← シートが保護されているか
' ? Dir("C:\Data\report.xlsx")  ← ファイルが存在するか
' ? Err.Number            ← 直近のエラー番号
' ? Err.Description       ← 直近のエラーの説明

' コードの実行中でも（ブレークポイント停止中に）直接代入して動作確認もできる
' ws.Cells(1,1).Value = "テスト"  ← 直接セルに値を設定して挙動確認

' ===== Debug.Assert（条件がFalseのとき自動停止）=====
Sub DebugAssertExample()
    Dim row As Long
    row = 0  ' ← 本来は1以上の値になるはずが0になった場合

    ' Debug.Assertで異常値を即時検知（Falseのとき自動ブレーク）
    Debug.Assert row >= 1  ' rowが0のときここで止まる（開発時の検証に有効）

    Cells(row, 1).Value = "処理"  ' ← rowが0だとエラー1004
End Sub

' エラー1004をキャッチして原因別に対処するパターン
Sub CatchError1004()
    Dim filePath As String
    Dim ws As Worksheet
    Dim wb As Workbook

    filePath = "C:\Data\monthly.xlsx"

    On Error GoTo ErrorHandler

    ' === ステップ1: ファイルを開く ===
    Set wb = Workbooks.Open(filePath)

    ' === ステップ2: シートを取得 ===
    Set ws = wb.Sheets("集計")

    ' === ステップ3: データを書き込む ===
    ws.Cells(1, 1).Value = "処理済み"
    ws.Cells(1, 2).Value = Now()

    ' === ステップ4: 保存して閉じる ===
    wb.Save
    wb.Close

    MsgBox "処理が正常に完了しました", vbInformation
    Exit Sub

ErrorHandler:
    Dim errNum As Long
    Dim errDesc As String
    errNum = Err.Number
    errDesc = Err.Description

    ' クリーンアップ（エラーがあっても開いたブックは閉じる）
    On Error Resume Next
    If Not wb Is Nothing Then wb.Close False
    On Error GoTo 0

    ' エラー番号別の対処
    Select Case errNum
        Case 1004
            ' 1004は多様なので追加情報をDebug.Printで確認
            Debug.Print "Error 1004: " & errDesc
            If InStr(errDesc, "protected") > 0 Or InStr(errDesc, "保護") > 0 Then
                MsgBox "シートが保護されています。シートの保護を解除してから実行してください。", _
                       vbExclamation, "シート保護エラー"
            ElseIf InStr(errDesc, "not find") > 0 Or InStr(errDesc, "見つかりません") > 0 Then
                MsgBox "シートまたはファイルが見つかりません: " & vbCrLf & errDesc, _
                       vbCritical, "存在エラー"
            Else
                MsgBox "Excel操作エラー（1004）: " & vbCrLf & errDesc & vbCrLf & _
                       "操作の内容をご確認ください。", vbCritical, "エラー1004"
            End If
        Case 53
            MsgBox "ファイルが見つかりません: " & filePath, vbCritical, "ファイル未存在"
        Case 9
            MsgBox "シートが存在しません（添字が範囲外）", vbExclamation, "シート未存在"
        Case 70
            MsgBox "ファイルが他のアプリで開かれています。閉じてから再実行してください。", _
                   vbExclamation, "アクセス拒否"
        Case Else
            MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
                   "エラー番号: " & errNum & vbCrLf & _
                   "内容: " & errDesc, vbCritical, "エラー"
    End Select
End Sub

Err.Descriptionには英語のエラーメッセージが入ります。完全一致でなくInStr(Err.Description, "キーワード") > 0で部分一致検索すると、様々なバージョン・言語設定のExcelに対応しやすくなります。ただし、Descriptionのテキストはバージョンや言語によって変わる場合があるため、Err.Numberによる分岐を主体にしてDescriptionはサブ情報として使います。

' Claude Codeへのエラー1004デバッグ依頼プロンプト例
' （以下をClaude Codeのチャットに貼り付けて依頼できます）

'''
このVBAコードを実行するとエラー1004が発生します。

エラーが発生する行:
[エラーが発生しているコードをここに貼る]

エラーメッセージ:
実行時エラー '1004' Application-defined or object-defined error
Err.Description: [Descriptionの内容をここに]

このとき各変数の値:
・filePath = "C:\Data\report.xlsx"
・sheetName = "データ"
・lastRow = 0

原因の特定と修正方法を教えてください。
'''

NEXT STEP

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