【Excel】エクセルでシート名を一括変更する方法｜作業効率を劇的に向上させる方法

ポイントは

・INDIRECT関数で動的なシート参照を実現

・手作業でも効率化できる実践テクニック

・VBAマクロで完全自動化による一括リネーム

INDIRECT関数の基本構文：

=INDIRECT(参照文字列)

例：A1セルに「営業部」と入力されている場合

=INDIRECT(A1&”!B2″)

→「営業部」シートのB2セルの値を取得

前提：

・各月のシート名が「1月」「2月」「3月」…

・各シートのB2セルに売上金額が入力されている

・集計シートでINDIRECT関数を使用

集計シートの数式：

A列にシート名（「1月」「2月」など）を入力

B列に =INDIRECT(A2&”!B2″) と入力

複数セルの合計を取得：

=SUM(INDIRECT(A2&”!B2:B10″))

→A2セルのシート名のB2からB10の合計を計算

条件付き集計：

=SUMIF(INDIRECT(A2&”!B:B”), “>10000″, INDIRECT(A2&”!C:C”))

→A2セルのシート名のB列が10000以上の行のC列を合計

テーブルを使ったシート名管理手順：

1. 管理シートにシート名リストを作成（A1:B10など）

2. リスト範囲を選択し、Ctrl + T でテーブル化

3. テーブル名を「シート名リスト」に変更

4. 数式でテーブルを参照

=INDIRECT(シート名リスト[@シート名]&”!B2″)

※[@シート名]は同じ行のシート名列を参照

※テーブル名と列名で明確に参照できる

エラー処理を含む数式：

=IFERROR(INDIRECT(A2&”!B2″), “データなし”)

→シートが存在しない場合は「データなし」と表示

=IFERROR(INDIRECT(A2&”!B2″), 0)

→エラー時は0を返す（集計に影響しない）

効率的なシート名変更の手順：

1. Alt + H → O → R でシート名変更モードに入る

2. 新しい名前を入力してEnter

3. Ctrl + PageDown で次のシートに移動

4. 繰り返し

補足：シートタブをダブルクリックでも変更モードに入れる

効率的な入力手順：

1. メモ帳やExcelのセルに「2025年度_営業部_」と入力

2. この文字列をコピー（Ctrl + C）

3. シート名変更時にペースト（Ctrl + V）

4. 末尾に「1月」など可変部分を追加

5. 次のシートで同じ操作を繰り返す

複数シート選択の基本操作：

・連続したシートを選択：最初のシートをクリック → Shiftキーを押しながら最後のシートをクリック

・離れたシートを選択：Ctrlキーを押しながら各シートタブをクリック

・全シートを選択：最初のシートタブを右クリック →「すべてのシートを選択」

一括実行可能な操作：

・書式設定の適用（フォント、色、罫線など）

・データの入力（同じセル位置に同じ値）

・ページ設定（余白、ヘッダー、フッター）

・印刷設定

・削除や移動（選択したシート全体）

シートタブへの色付け手順：

1. シートタブを右クリック

2. 「シート見出しの色」を選択

3. 適切な色を選択

色分けの実践例：

・営業部門：赤系

・経理部門：青系

・総務部門：緑系

・月次データ：黄系

目次シートの手作業での作成手順：

1. 新しいシートを作成し「目次」と命名

2. A列に各シート名を手入力

3. シート名を選択

4. Ctrl + K でハイパーリンクダイアログを開く

5. 「このドキュメント内」を選択

6. 該当するシート名を選択してOK

Sub シート名一括変更_連番()
Dim ws As Worksheet
Dim i As Integer

i = 1
For Each ws In ThisWorkbook.Worksheets
ws.Name = “Sheet” & i
i = i + 1
Next ws

MsgBox “シート名の変更が完了しました”
End Sub

VBAマクロの実行手順：

1. Alt + F11 でVBAエディタを開く

2. 「挿入」→「標準モジュール」を選択

3. 上記のコードを貼り付け

4. F5キーを押すか「実行」ボタンをクリック

Sub シート名一括変更_プレフィックス付き()
Dim ws As Worksheet
Dim i As Integer
Dim prefix As String

prefix = “2025年度_”
i = 1

For Each ws In ThisWorkbook.Worksheets
ws.Name = prefix & i & “月”
i = i + 1
Next ws

MsgBox “シート名の変更が完了しました”
End Sub

Sub シート名に文字列を追加()
Dim ws As Worksheet
Dim addText As String

addText = “ABC商事_”

For Each ws In ThisWorkbook.Worksheets
ws.Name = addText & ws.Name
Next ws

MsgBox “全シート名に「” & addText & “」を追加しました”
End Sub

Sub シート名から文字列を削除()
Dim ws As Worksheet
Dim removeText As String

removeText = “2024年度_”

For Each ws In ThisWorkbook.Worksheets
ws.Name = Replace(ws.Name, removeText, “”)
Next ws

MsgBox “全シート名から「” & removeText & “」を削除しました”
End Sub

Sub シート名の文字列を置換()
Dim ws As Worksheet
Dim oldText As String
Dim newText As String

oldText = “2024”
newText = “2025”

For Each ws In ThisWorkbook.Worksheets
ws.Name = Replace(ws.Name, oldText, newText)
Next ws

MsgBox “全シート名の「” & oldText & “」を「” & newText & “」に変更しました”
End Sub

前提条件：

・「管理シート」という名前のシートを用意

・A列に新しいシート名のリストを記載

・A2セルから順に「営業部」「経理部」「総務部」と入力

Sub セルの値でシート名を一括変更()
Dim ws As Worksheet
Dim nameList As Worksheet
Dim i As Integer

Set nameList = ThisWorkbook.Worksheets(“管理シート”)
i = 2 ‘A2セルから開始

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> “管理シート” Then
If nameList.Cells(i, 1).Value <> “” Then
ws.Name = nameList.Cells(i, 1).Value
i = i + 1
End If
End If
Next ws

MsgBox “セルの値に基づいてシート名を変更しました”
End Sub

シート名の制限事項：

・使用禁止文字：: / \ ? * [ ]（コロン、スラッシュ、バックスラッシュ、疑問符、アスタリスク、角括弧）

・最大文字数：31文字まで

・空白のみの名前：不可

・大文字小文字の区別：なし（「Sheet1」と「sheet1」は同じと見なされる）

Function シート名チェック(sheetName As String) As Boolean
Dim invalidChars As String
Dim i As Integer

invalidChars = “:/\?*[]”
シート名チェック = True

‘文字数チェック
If Len(sheetName) > 31 Or Len(sheetName) = 0 Then
シート名チェック = False
Exit Function
End If

‘禁止文字チェック
For i = 1 To Len(invalidChars)
If InStr(sheetName, Mid(invalidChars, i, 1)) > 0 Then
シート名チェック = False
Exit Function
End If
Next i
End Function

自動更新される要素：

・通常の数式によるシート参照（例：=Sheet1!A1）

・名前の定義で使用されているシート参照

・グラフのデータ範囲

更新されない可能性がある要素：

・テキスト形式で記述されたシート名

・INDIRECT関数で参照しているシート名

・VBAコード内のシート名（文字列として記述されている場合）

・外部ファイルからのリンク

対処方法：

1. シート名変更前に「検索と置換」機能で参照箇所を確認

2. Ctrl + F で「検索」ダイアログを開く

3. オプションで「ブック全体」を選択

4. 旧シート名を検索して、どこで使われているか確認

5. 必要に応じて置換を実行

エラー回避の方法：

方法1：一時的な名前を付けてから本来の名前に変更

方法2：既存のシート名に連番を追加

方法3：エラー処理を組み込んで続行

Sub 2段階でシート名変更()
Dim ws As Worksheet
Dim i As Integer

‘第1段階：全シートを一時的な名前に変更
i = 1
For Each ws In ThisWorkbook.Worksheets
ws.Name = “Temp” & i
i = i + 1
Next ws

‘第2段階：本来の名前に変更
i = 1
For Each ws In ThisWorkbook.Worksheets
ws.Name = “営業データ” & i
i = i + 1
Next ws

MsgBox “シート名の変更が完了しました”
End Sub