記事ID: 069
タイトル: 【VBA】シート名の取得・一括変更・存在チェックする方法（コピペOK）
カテゴリ: シート操作
一次キーワード: VBA シート名 取得 変更 一覧
想定読者: 複数シートを扱う事務・管理職。シート名の手動変更やエラーに困っている人
検索意図: VBAでシート名を取得・変更・一覧表示・存在チェックする方法を知りたい
読者の悩み（1文）: 20枚以上のシートがあるファイルで、シート名を手動で1枚ずつ変更するのが面倒
読了後にできること（1文）: VBAでシート名の取得・一括変更・存在チェック・一覧作成をコピペで自動化できる
前提条件:
- Excel版: Excel 2016以降 / Microsoft 365
- OS: Windows 10/11
- 保存形式: .xlsm（マクロ有効ブック）
- 貼り付け場所: 標準モジュール
- 実行方法: マクロ実行（F5）またはボタン割り当て
更新日: 2026-03-11
Contents
この記事でわかること
VBAでシート名の取得・一括変更・存在チェックする方法を、コピペで動くコード付きで解説します。
- 対象：シート名を手動で1枚ずつ変更している人
- 所要時間：コピペ → 実行まで3分
完成イメージ
最小版（全シート名をMsgBoxで一覧表示）：
┌──────────────────────┐
│ シート名一覧 │
│ │
│ 1月データ │
│ 2月データ │
│ 3月データ │
│ 集計 │
│ マスタ │
│ │
│ [OK] │
└──────────────────────┘
マクロを実行すると、ブック内の全シート名がMsgBoxに一覧表示されます。
実務版（月次テンプレートのシート名を一括変更）：
実行前：
| シート番号 | シート名（変更前） |
|---|---|
| 1 | Sheet1 |
| 2 | Sheet2 |
| 3 | Sheet3 |
| … | … |
| 12 | Sheet12 |
実行後：
| シート番号 | シート名（変更後） |
|---|---|
| 1 | 2026年1月 |
| 2 | 2026年2月 |
| 3 | 2026年3月 |
| … | … |
| 12 | 2026年12月 |
F5キーを押すだけで、12枚のシート名が一瞬で変わります。既に同名のシートがある場合はスキップするので安全です。
自分もブックに20枚以上シートがあるファイルを扱っていて、シート名を手動で1枚ずつ変更していました。ダブルクリックして、入力して、Enterして、また次のシートをダブルクリックして…の繰り返し。しかも存在しないシート名をVBAで指定してしまい「インデックスが有効範囲にありません」のエラーに何度もハマりました。
VBAでシート名を一括操作するようにしてからは、月次レポートのシート名を「2026年1月」「2026年2月」と自動で付けられるようになりました。毎月の手作業が1分で終わります。
同じようにシート名の操作で困っている人が、この記事でサクッと自動化できるようになればうれしいです。
基本：シート名を取得する
まずはシート名を取得する基本コードです。
アクティブシートの名前を取得する
Sub アクティブシート名を取得()
MsgBox "アクティブシートの名前は「" & ActiveSheet.Name & "」です"
End Sub
ポイント：
ActiveSheet.Nameで、今選択しているシートの名前を取得できます- 取得した名前は文字列（String型）で返ります
インデックス番号でシート名を取得する
Sub インデックスでシート名を取得()
' 左から1番目のシート名を取得
MsgBox "1番目のシートは「" & Worksheets(1).Name & "」です"
End Sub
ポイント：
Worksheets(1)は左から1番目のシート- シートの並び順を変えるとインデックス番号も変わるので注意
Worksheets("Sheet1")のように名前で指定するほうが安全です
シート名を変更する
シート名を変更するには、Name プロパティに新しい名前を代入します。
Sub シート名を変更する()
Worksheets("Sheet1").Name = "売上データ"
End Sub
ポイント：
Worksheets("旧名前").Name = "新しい名前"が基本形- 変更前のシート名が存在しないとエラーになります（→ 後述の存在チェックで対策）
- シートが保護されている場合は変更できません（→ 記事027：シート保護・解除の方法を参照）
アクティブシートの名前を変更する
Sub アクティブシート名を変更する()
ActiveSheet.Name = "売上データ"
End Sub
ポイント：
- 今選択しているシートの名前を変更します
- どのシートがアクティブかを意識してから実行してください
シート名の一覧を取得する
ブック内の全シート名を一覧で取得するコードです。全シートをFor Eachでループして処理します。For Eachループの基本は記事015：複数シートを一括処理する方法で詳しく解説しています。
MsgBoxで一覧表示する（最小版）
Sub 全シート名を一覧表示()
Dim ws As Worksheet
Dim msg As String
For Each ws In ThisWorkbook.Worksheets
msg = msg & ws.Name & vbCrLf
Next ws
MsgBox msg, vbInformation, "シート名一覧"
End Sub
ポイント：
For Each ws In ThisWorkbook.Worksheetsで全シートを1枚ずつ処理vbCrLfは改行コード。シート名が1行ずつ表示されますThisWorkbookは「このマクロが書かれているブック」を指します
セルに一覧を書き出す
シート名の一覧をセルに書き出すこともできます。データの最終行を正確に取得する方法は記事032：最終行・最終列を取得する方法を参照してください。
Sub シート名をセルに書き出す()
Dim ws As Worksheet
Dim i As Long
' 書き出し先のシート（ここでは1番目のシート）
Dim outSheet As Worksheet
Set outSheet = ThisWorkbook.Worksheets(1)
' 見出し
outSheet.Cells(1, 1).Value = "No"
outSheet.Cells(1, 2).Value = "シート名"
i = 2 ' 2行目からデータ
For Each ws In ThisWorkbook.Worksheets
outSheet.Cells(i, 1).Value = i - 1
outSheet.Cells(i, 2).Value = ws.Name
i = i + 1
Next ws
MsgBox "シート名の一覧を書き出しました（" & ThisWorkbook.Worksheets.Count & "枚）"
End Sub
ポイント：
ThisWorkbook.Worksheets.Countでシートの総数を取得できます- 見出し行を1行目に入れて、2行目からデータを書き出すと見やすくなります
シートが存在するかチェックする
シート名を指定して操作する前に、そのシートが存在するかチェックしましょう。存在しないシート名を指定すると「実行時エラー 9: インデックスが有効範囲にありません」が発生します。
SheetExists関数（汎用版）
Function SheetExists(sheetName As String) As Boolean
Dim ws As Worksheet
On Error Resume Next
Set ws = ThisWorkbook.Worksheets(sheetName)
On Error GoTo 0
SheetExists = Not ws Is Nothing
End Function
ポイント：
On Error Resume Nextでエラーを一時的に無視して、シートを取得できるか試します- 取得できれば
wsにシートがセットされ、取得できなければNothingのまま On Error GoTo 0で通常のエラー処理に戻すのを忘れずに（→ 記事022：エラー処理の方法を参照）- この関数は何度でも使い回せるので、標準モジュールに入れておくと便利です
SheetExists関数の使い方
Sub 存在チェックの使用例()
If SheetExists("売上データ") Then
MsgBox "「売上データ」シートは存在します"
Else
MsgBox "「売上データ」シートは存在しません"
End If
End Sub
存在チェック付きでシートを操作する
Sub 安全にシートを操作する()
Dim targetName As String
targetName = "売上データ"
If SheetExists(targetName) Then
' シートが存在する場合のみ操作
Worksheets(targetName).Select
MsgBox targetName & " シートを選択しました"
Else
MsgBox targetName & " シートが見つかりません", vbExclamation
End If
End Sub
実務版：月次テンプレートのシート名を一括変更する
ここからが実務で使えるコードです。12枚のシートの名前を「2026年1月」〜「2026年12月」に一括変更します。既に同名シートがある場合はスキップするので安全です。
※ シート名の変更はCtrl+Zで元に戻せません。念のためブックのバックアップを取ってから実行してください。
※ シート名に禁止文字（: \ / [ ] * ?）を含む形式にカスタマイズする場合は、落とし穴1のCleanSheetName関数で除去してください。
'============================================
' 月次テンプレートのシート名を一括変更する
'============================================
' ● やること：
' 12枚のシート名を「2026年1月」〜「2026年12月」に変更
' ● 前提：
' - ブックに12枚以上のシートがあること
' - .xlsm で保存されていること
' - 標準モジュールに貼り付けること
' ● 注意：
' - 13枚目以降のシートは変更されません
' - カスタマイズ時は禁止文字に注意（落とし穴1参照）
'============================================
Sub 月次シート名を一括変更()
Dim i As Long
Dim newName As String
Dim yearNum As Long
Dim changeCount As Long
Dim skipCount As Long
yearNum = 2026 ' ← 年を変更する場合はここを書き換え
' --- シート数チェック ---
If ThisWorkbook.Worksheets.Count < 12 Then
MsgBox "シートが12枚未満です。" & vbCrLf & _
"現在のシート数: " & ThisWorkbook.Worksheets.Count, _
vbExclamation, "エラー"
Exit Sub
End If
' --- 一括変更 ---
For i = 1 To 12
newName = yearNum & "年" & i & "月"
' 既に同名シートがあればスキップ
If SheetExists(newName) Then
skipCount = skipCount + 1
Else
ThisWorkbook.Worksheets(i).Name = newName
changeCount = changeCount + 1
End If
Next i
' --- 結果表示 ---
MsgBox "完了しました。" & vbCrLf & _
"変更: " & changeCount & "枚" & vbCrLf & _
"スキップ: " & skipCount & "枚", _
vbInformation, "シート名一括変更"
End Sub
'============================================
' シート存在チェック関数（上のコードで使用）
'============================================
Function SheetExists(sheetName As String) As Boolean
Dim ws As Worksheet
On Error Resume Next
Set ws = ThisWorkbook.Worksheets(sheetName)
On Error GoTo 0
SheetExists = Not ws Is Nothing
End Function
コードの流れ
- 年の設定:
yearNum = 2026を変更すれば、任意の年に対応 - シート数チェック: 12枚未満なら処理を中断してエラー表示
- ループで一括変更: 1〜12月のシート名を順番に変更
- 存在チェック: 既に同名シートがあればスキップ（エラー防止）
- 結果表示: 変更枚数とスキップ枚数をMsgBoxで表示
カスタマイズ例
年を自動で取得する場合は、yearNum = 2026 を以下に変更してください：
yearNum = Year(Date) ' 実行時の年を自動取得
シート名のフォーマットを変えたい場合：
' 「2026_01」形式にしたい場合
newName = yearNum & "_" & Format(i, "00")
' 「1月度」形式にしたい場合
newName = i & "月度"
落とし穴
落とし穴1: シート名に禁止文字を使ってエラーになる
シート名には使えない文字があります。以下の7文字です：
: \ / [ ] * ?
これらを含む名前を付けようとすると「実行時エラー 1004」が発生します。
自分もシート名に「2026/01」と付けようとしてエラーになりました。/ はシート名に使えない文字です。
対策: 禁止文字をReplace関数で除去してから変更する。
Function CleanSheetName(name As String) As String
Dim result As String
result = name
Dim ch As Variant
For Each ch In Array(":", "\", "/", "[", "]", "*", "?")
result = Replace(result, ch, "")
Next ch
' 31文字を超えたら切り詰め
If Len(result) > 31 Then result = Left(result, 31)
CleanSheetName = result
End Function
落とし穴2: 同名シートが存在してエラーになる
同じブック内に同じ名前のシートは作れません。既に「2026年1月」というシートがあるのに、別のシートの名前も「2026年1月」にしようとするとエラーです。
対策: SheetExists 関数で事前に存在チェックする（実務版コードでは対応済み）。
落とし穴3: シート名が31文字を超えてエラーになる
シート名は31文字が上限です。全角・半角を問わず31文字です。
' これはエラー（32文字以上）
ws.Name = "あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみ"
対策: Len(newName) > 31 で事前にチェックするか、Left(newName, 31) で切り詰める。
落とし穴4: シートが保護されていて変更できない
シートが保護されている状態では、シート名を変更できません（「実行時エラー 1004」）。
対策: シート名を変更する前にシート保護を解除する。詳しくは記事027：シート保護・解除の方法を参照。
' パスワード付きで保護されている場合
ws.Unprotect Password:="パスワード" ' 保護解除
ws.Name = "新しい名前" ' シート名変更
ws.Protect Password:="パスワード" ' 再度保護
' パスワードなしで保護されている場合
ws.Unprotect ' これだけでOK
ws.Name = "新しい名前"
ws.Protect
落とし穴5: VBAコード内のシート参照が壊れる
Excelの数式はシート名変更に自動で追従しますが、VBAコード内で Worksheets("旧名前") とハードコーディングしている場合は自動で変わりません。
対策: VBAコード内でシート名をハードコーディングせず、コードネーム（Sheet1 等）で参照する。
' NG: シート名が変わると動かなくなる
Worksheets("売上データ").Range("A1").Value = 100
' OK: コードネームならシート名が変わっても動く
Sheet1.Range("A1").Value = 100
FAQ
Q1: Worksheets と Sheets の違いは？
Worksheets はワークシート（通常のシート）のみを指します。Sheets はワークシートに加えて、グラフシートやマクロシートなどすべてのシートを含みます。
通常のExcelファイルではグラフシートを使うことは少ないので、Worksheets を使えば問題ありません。
Q2: シート名の変更をCtrl+Zで元に戻せる？
VBAで変更したシート名はCtrl+Zで元に戻せません。元に戻したい場合は、変更前のシート名を配列に保存しておき、復元するコードを用意しましょう。
' --- 変更前のシート名を保存 ---
Dim oldNames() As String
ReDim oldNames(1 To ThisWorkbook.Worksheets.Count)
Dim j As Long
For j = 1 To ThisWorkbook.Worksheets.Count
oldNames(j) = ThisWorkbook.Worksheets(j).Name
Next j
' --- 復元する場合（上の保存処理の後に使う） ---
Sub シート名を復元する()
Dim k As Long
For k = 1 To UBound(oldNames)
ThisWorkbook.Worksheets(k).Name = oldNames(k)
Next k
MsgBox "シート名を元に戻しました"
End Sub
Q3: シート名に使える最大文字数は？
31文字です。全角・半角を問わず31文字が上限です。32文字以上のシート名を付けようとすると「実行時エラー 1004」が発生します。
Q4: 全シート名をイミディエイトウィンドウに出力する最短コードは？
Sub 最短版()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets: Debug.Print ws.Name: Next ws
End Sub
Ctrl + G でイミディエイトウィンドウを開いてから実行すると、全シート名が出力されます。
Q5: 特定の文字を含むシートだけ処理するには？
InStr 関数でシート名に特定の文字が含まれるかチェックできます。
Sub 特定シートだけ処理()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If InStr(ws.Name, "月") > 0 Then
' 「月」を含むシートだけ処理
Debug.Print ws.Name
End If
Next ws
End Sub
For Eachでのシート処理の応用は記事015：複数シートを一括処理する方法を参照してください。
まとめ
この記事では、VBAでシート名を取得・変更・一覧表示・存在チェックする方法を解説しました。
| やりたいこと | コード |
|---|---|
| アクティブシート名を取得 | ActiveSheet.Name |
| シート名を変更 | Worksheets("旧名前").Name = "新名前" |
| 全シート名を一覧取得 | For Each ws In ThisWorkbook.Worksheets |
| シートの存在チェック | SheetExists 関数（On Error方式） |
| 月次シート名を一括変更 | 実務版コード（本記事） |
シート名のルールも押さえておきましょう：
- 31文字以内
- 禁止文字:
: \ / [ ] * ? - 空文字不可・同名不可
シートを別ブックにコピーして活用する方法は記事043：シートを別ブックにコピーする方法で解説しています。シート名でフォルダを振り分ける方法は記事029：フォルダ作成・振り分けの方法も参考にしてください。
次にやりたくなること
- 複数シートをまとめて処理したい → 記事015：複数シートを一括処理する方法
- シートを別ブックにコピーしたい → 記事043：シートを別ブックにコピーする方法
コメント