VBAでシートをコピーすると名前が重複してエラーになる原因と重複チェックの書き方

VBA/XLSX/マクロ//

目次

はじめに：VBAでのシートコピー・名前変更に伴うエラーの背景

Excel VBAを活用して、ひな形（テンプレート）となるシートをコピーし、その日の日付や取引先名などをシート名に設定して月次レポートや請求書を自動生成する処理は、業務効率化の王道とも言えるマクロです。

しかし、この処理を構築した際、多くのユーザーが直面するのがシート名に関する「実行時エラー」です。テスト環境では完璧に動いていたマクロが、実際の業務で二度目に実行された際や、特定のデータが入力された際に突然停止してしまうことがあります。このエラーの最も多い原因が「作成しようとしたシート名が、すでにブック内に存在している（名前の重複）」というExcelの基本仕様への抵触です。

手作業でシート名を変更する際、すでに存在する名前を入力すると「この名前は既に使われています。別の名前を入力してください。」という親切な警告ダイアログが表示されます。しかし、VBAでコードを実行した場合は、このような警告ダイアログではなく「実行時エラー」という形でプログラム全体が強制終了（クラッシュ）してしまいます。途中でマクロが止まると、データが中途半端な状態で残ってしまい、業務に大きな支障をきたします。

本記事では、VBAでシートをコピーし名前を変更する際に発生するエラーの根本的な原因を解説し、エラーでマクロを止めないための「シート名の重複チェックロジック（存在確認）」の正しい書き方と、重複していた場合の対応方針（上書き、連番付与、スキップ）に応じた具体的なコードの記述方法を網羅的に解説します。

シート名変更時に「実行時エラー ‘1004’」が発生する3つの原因

シートのコピーおよび名前の変更処理において「実行時エラー ‘1004’」が発生する場合、主に以下の3つのExcelの仕様（制約）のいずれかに違反しています。重複チェックを実装する前に、これらの仕様を正確に把握しておく必要があります。

原因1：同一ブック内にすでに同じ名前のシートが存在する（重複エラー）

本記事のメイントピックです。Excelでは、同一のブック（ファイル）内に全く同じ名前のシートを複数作成することは構造上不可能です。VBAから ActiveSheet.Name = "売上データ" のように名前を変更しようとした際、すでに「売上データ」シートが存在していると、即座にエラーとなります。大文字・小文字（Aとa）、半角・全角（ｱとア）はExcelのシート名において「同じ文字」として扱われるため、これらの違いだけで別シートとして登録することもできません。

原因2：シート名の文字数が31文字を超えている

Excelの仕様上、シート名に設定できる文字数は「最大31文字（全角・半角問わず）」までです。VBAでセルに入力された長い文字列や、システムから出力された長いファイル名をそのままシート名に代入しようとすると、31文字を超過した時点でエラー1004が発生します。

原因3：シート名に使用できない禁止文字が含まれている

Windowsのファイル名と同様に、Excelのシート名にもシステム上使用できない「禁止文字」が存在します。具体的には以下の文字です。

  • \ （円記号 / バックスラッシュ）
  • / （スラッシュ）
  • ? （クエスチョンマーク）
  • * （アスタリスク）
  • [ ] （角括弧）
  • : （コロン）

例えば、日付をシート名にしようとして ActiveSheet.Name = "2023/10/01" とスラッシュ入りの文字列を代入しようとすると、禁止文字エラーとなります。

エラー発生のメカニズム：コピー時ではなく「名前変更時」に落ちる理由

VBA初心者がよく陥る誤解として、「シートをコピーする命令（Copyメソッド）でエラーが起きている」と勘違いしてしまうことが挙げられます。しかし、実際のエラーのメカニズムは異なります。

' ひな形シートを末尾にコピーする
Worksheets("ひな形").Copy After:=Worksheets(Worksheets.Count)

' コピーしたシート（アクティブシート）の名前を変更する
ActiveSheet.Name = "2023年10月" ' ← ここでエラーが起きる！

上記のコードを実行した際、Copy メソッド自体は正常に動作します。Excelは気を利かせて「ひな形 (2)」という重複しない名前で新しいシートを作成してくれるからです。しかし、その直後に実行される ActiveSheet.Name = "2023年10月" の行において、もし「2023年10月」というシートがすでに存在していた場合、名付けの段階でエラーが発生します。
結果として、「ひな形 (2)」という中途半端な名前のシートがブック内に残されたまま、マクロが強制停止するという最悪の事態を引き起こします。

これを防ぐためには、「シートをコピーする前、あるいは名前を変更する前に、変更しようとしている名前がすでに存在していないかを事前にチェックする」というプロセスが絶対に必要となります。

【基本】シートの重複（存在）をチェックするユーザー定義関数（Function）の作り方

指定した名前のシートが存在するかどうかを確認するためには、ブック内のすべてのシートの名前を一つずつ調べ、目的の名前と一致するものがあるかを判定する処理が必要です。
この処理はマクロの中で何度も使用することになるため、独立した「関数（Functionプロシージャ）」として作成しておくのが実務におけるベストプラクティスです。

以下のコードを標準モジュールに貼り付けてください。

' -----------------------------------------------------------
' 関数名：IsSheetExists
' 目的　：指定した名前のシートがブック内に存在するかを判定する
' 引数　：sheetName (String) 確認したいシート名
' 戻り値：(Boolean) 存在する場合はTrue、存在しない場合はFalse
' -----------------------------------------------------------
Function IsSheetExists(ByVal sheetName As String) As Boolean
    Dim ws As Worksheet
    Dim flag As Boolean

    flag = False ' 初期値はFalse（存在しない）

    ' ブック内のすべてのシートをループ処理で確認する
    For Each ws In ThisWorkbook.Worksheets
        ' 大文字小文字、全角半角を区別せずに比較する
        If StrComp(ws.Name, sheetName, vbTextCompare) = 0 Then
            flag = True ' 一致するシートが見つかったらTrueにする
            Exit For    ' 見つかった時点でループを抜ける（処理の高速化）
        End If
    Next ws

    IsSheetExists = flag
End Function

【コードのポイント】
単純に If ws.Name = sheetName Then と記述しても動作しますが、VBAの標準の比較演算子は「大文字と小文字」を区別します（Aとaは別物と判定される）。しかしExcelのシート名はこれらを区別しません。このVBAとExcelの仕様のズレを吸収するために、StrComp 関数に vbTextCompare（テキストモード比較）を指定することで、Excelのシート名制限と同じ「大文字小文字・全角半角を無視した完全一致比較」を実現しています。

重複していた場合の対応別・具体的なコード実装パターン

シートが重複している（存在している）ことが分かった後、マクロとしてどう振る舞うべきかは業務の要件によって異なります。ここでは、実務で頻出する3つの対応パターンのコードを紹介します。いずれも先ほど作成した IsSheetExists 関数を使用します。

対応パターン1：古いシートを削除して新しいシートに上書き（置換）する

レポートの再出力など、「常に最新のデータでシートを作り直したい」場合に最もよく使われるパターンです。同名の古いシートを削除してから、新しいシートをコピーして名前を付けます。

Sub CopySheet_Overwrite()
    Dim targetName As String
    targetName = "売上レポート"

    ' 1. 事前チェック：同名のシートが存在するか？
    If IsSheetExists(targetName) = True Then
        ' 存在する場合は古いシートを削除する
        ' ※削除時の「完全に削除されますが～」という警告ダイアログを非表示にする
        Application.DisplayAlerts = False
        ThisWorkbook.Worksheets(targetName).Delete
        Application.DisplayAlerts = True ' 削除後に必ず警告表示をONに戻す
    End If

    ' 2. シートのコピーと名前変更（この時点で重複は絶対にないため安全）
    ThisWorkbook.Worksheets("ひな形").Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    ActiveSheet.Name = targetName

    MsgBox "シート「" & targetName & "」を作成（更新）しました。", vbInformation
End Sub

【重要】 Application.DisplayAlerts = False は、シート削除時にユーザーの確認を求めるダイアログを強制的に非表示にし、VBA側の判断で「はい（削除する）」を選択させるための非常に強力なプロパティです。これを記述しないと、マクロの途中で画面が止まってしまいます。処理が終わったら必ず True に戻すことを忘れないでください。

対応パターン2：重複している場合は末尾に連番（_1, _2…）を付けて作成する

過去のデータを残しておきたい場合や、ユーザーが作成したバリエーションを保存したい場合は、古いシートを削除せず、新しいシート名に「(2)」や「_1」といった連番を付与して重複を回避します。

Sub CopySheet_Sequential()
    Dim baseName As String
    Dim targetName As String
    Dim i As Long

    baseName = "見積書"
    targetName = baseName
    i = 1

    ' 1. 重複しなくなるまで連番を増やしながらループで名前をチェックする
    Do While IsSheetExists(targetName) = True
        ' 存在する場合は「見積書_1」「見積書_2」のように名前を作り直す
        targetName = baseName & "_" & i
        i = i + 1
    Loop

    ' 2. ループを抜けた時点で targetName は「重複しない安全な名前」になっている
    ThisWorkbook.Worksheets("ひな形").Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    ActiveSheet.Name = targetName

    MsgBox "新しいシート「" & targetName & "」を作成しました。", vbInformation
End Sub

このロジックには Do While ... Loop ステートメントを使用します。条件（シートが存在する）が True である限り、変数 i をカウントアップしながら新しい名前を生成し続けます。存在しない名前にたどり着いた瞬間にループを抜け、その名前でシートを作成します。

対応パターン3：シートが既に存在する場合は処理をスキップ（または終了）する

「すでに作成済みの場合は、誤ってデータを上書きしないように何もしない」というフェイルセーフのパターンです。月次処理などで、今月分が作成済みかどうかのチェックに利用します。

Sub CopySheet_Skip()
    Dim targetName As String
    targetName = "2023年10月分"

    ' 1. 事前チェック
    If IsSheetExists(targetName) = True Then
        ' 存在する場合はユーザーに通知して処理を強制終了する
        MsgBox "シート「" & targetName & "」はすでに存在するため、処理を中止します。", vbExclamation
        Exit Sub
    End If

    ' 2. 存在しない場合のみ以下のコピー処理が実行される
    ThisWorkbook.Worksheets("ひな形").Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    ActiveSheet.Name = targetName

    MsgBox "シートを作成しました。", vbInformation
End Sub

実務をより安全にする高度なシート名バリデーション（文字数・禁止文字の処理）

重複チェックだけでも大半のエラーは防げますが、セルに入力された文字列をそのままシート名にする場合（例：顧客名をシート名にするなど）、文字数オーバーや禁止文字によるエラー（原因2および原因3）が発生するリスクが残ります。これらを完全に防ぐための「無害化（サニタイズ）関数」を導入することで、マクロの堅牢性は飛躍的に向上します。

禁止文字を自動削除・置換する関数の実装

与えられた文字列の中からシート名に使えない禁止文字をアンダースコア（_）に置換し、さらに31文字以内に切り詰める処理を行う関数です。

' -----------------------------------------------------------
' 関数名：GetSafeSheetName
' 目的　：文字列からシート名に使用できない文字を置換し、31文字以内に調整する
' -----------------------------------------------------------
Function GetSafeSheetName(ByVal rawName As String) As String
    Dim safeName As String
    Dim invalidChars As Variant
    Dim i As Integer

    safeName = rawName

    ' 禁止文字の配列定義
    invalidChars = Array("\", "/", "?", "*", "[", "]", ":")

    ' 禁止文字をアンダースコア "_" に置換する
    For i = LBound(invalidChars) To UBound(invalidChars)
        safeName = Replace(safeName, invalidChars(i), "_")
    Next i

    ' 文字数が31文字を超えている場合は左から31文字に切り捨てる
    If Len(safeName) > 31 Then
        safeName = Left(safeName, 31)
    End If

    GetSafeSheetName = safeName
End Function

この関数をメインの処理に組み込むことで、あらゆるイレギュラーなデータに対してもエラーを出さずにシートを作成することが可能になります。

' 使用例
Dim rawInput As String
Dim targetName As String

' ユーザー入力やセルから取得した危険な文字列（/や31文字以上を含む）
rawInput = "2023/10/01_非常に長い取引先名株式会社_月次レポート"

' 安全なシート名に変換（/が_になり、31文字に丸められる）
targetName = GetSafeSheetName(rawInput)

' この後、IsSheetExists関数で重複チェックを行い、シートを作成する

まとめ：エラーハンドリングによる堅牢なマクロの構築

VBAでシートをコピーして名前を変更する処理は、シンプルに見えて実は「重複」「文字数」「禁止文字」というExcelの厳密な仕様の壁が立ちはだかる、エラーの温床となるポイントです。

「実行時エラー 1004」を防ぐための最大の鉄則は、「行き当たりばったりで名前を変更するのではなく、事前に変更先の名前に問題がないかを検証（バリデーション）する」ことです。

本記事で紹介した IsSheetExists 関数によるシートの存在チェックと、上書き・連番・スキップといった業務要件に応じた条件分岐、そして GetSafeSheetName 関数による文字列のサニタイズ処理を組み合わせることで、ユーザーがどのような操作をしても、どのようなデータが入力されても決してクラッシュすることのない、プロフェッショナルな品質のVBAマクロを構築することができます。ぜひご自身のコードに組み込んで活用してください。