エクセルシート名の一括変更や置換はVBAマクロじゃなきゃ無理なの？

シート名を一括で編集する方法とは？

シートの数が増えれば増えるほどその管理が大変になりますが、その際にはシートの名前を再検討することもあります。
でも正直たくさんのシート名を編集するのめんどくさい。。
しかも頻繁にこの作業が発生するということであればさらにめんどくさく、サクッと一括変更（置換）したいといった要望がでるのもうなずけます。

そこで今回は、一括で変更（置換）する方法があるのか、紹介したいと思います。

VBA(マクロ)がないと一括の変更はできない！

まず、シート名の変更を一括で行う方法はVBA(マクロ)意外にはありません！
これはちょっとへこみますよね。。
ということなので、VBA(マクロ)を使った一括変更というのを紹介していきます。

処理①全シート名をまずは取得する

シート名を変更もしくは置換するということであれば、全シート名の一覧が必要になります。
VBAマクロでまずは全シート名を取得してみましょう。

まずは何もないブックを開きます。

シート名一括変更置換1

次に「Alt + F11」を押しますと
「Microsoft Visual Basic for Applications」というウィンドウが開きます。これがいわゆる「VBA」と言われているものです。

シート名一括変更置換2

次に、メニューバーの挿入→標準モジュールを選択すると
コードが入力できる画面が作成されます。
ここに処理を書いていきます。

シート名一括変更置換3

シート名一括変更置換4

右の入力画面に下記コードをコピペしましょう。

Sub all_sheet_name()
Dim w_sheet
Dim row_cnt
'all_sheet_nameがすでにある場合、処理を中止する。
For Each w_sheet In Worksheets
If w_sheet.Name = "all_sheet_name" Then
MsgBox "all_sheet_nameを削除してください", vbInformation
Exit Sub
End If
Next w_sheet

'all_sheet_nameを作成
Sheets.Add
ActiveSheet.Name = "all_sheet_name"

'全シート名を取得し、セルに入力する
row_cnt = 2
Cells(1, 1) = シート名
For Each w_sheet In Worksheets
If w_sheet.Name <> "all_sheet_name" Then
Cells(row_cnt, 1) = w_sheet.Name
row_cnt = row_cnt + 1
End If
Next w_sheet

End Sub

シート名一括変更置換5

これで全シート名の取得ができるようになりました。
確認のために、一旦元のエクセルファイルに戻り、作ったマクロを実行してみましょう。
VBAのウィンドウはそのままでよいので、元のエクセルのウィンドウに戻り
メニューバーから
表示→マクロ→マクロの表示
を選択すると、作ったマクロが表示されます。
all_sheet_nameを選択して、実行を押してみましょう。

シート名一括変更置換6

シート名一括変更置換7

シート名一括変更置換8

これでシート名の取得が一瞬でできましたね。
ちょっと手順が長かったような…ここで疲れてきた私ですが、次行きます。。。

②シート名の一括変更・置換処理

さて、それではまず、それぞれのシート名に対して、変更後の内容をB列に入力していきましょう。置換の場合は、A列のシート名をB列にコピペし、Ctl+H で置換しちゃいましょう。

シート名一括変更置換9

このように変更一覧が完成しましたので、先ほどのVBAウィンドウに新しくコードを書いていきます。
先ほど入力（コピペ）したコードの下に新しい処理をいれます。
次は下記コードをコピペしてください。

Sub sheet_name_change()
Dim w_sheet
Dim row_cnt
Dim flag

'一覧のシート名が存在しているか確認
For row_cnt = 2 To Range("A2").End(xlDown).Row
flag = 0
For Each w_sheet In Worksheets
If Cells(row_cnt, 1).text = w_sheet.Name Then
flag = 1
Exit For
End If
Next w_sheet
If flag = 0 Then
MsgBox Cells(row_cnt, 1) & "がありません。", vbExclamation
Exit Sub
End If
Next row_cnt

'シート名書き換え処理
On Error GoTo error1 'エラーが起きたらerror1にジャンプ
For row_cnt = 2 To Range("A2").End(xlDown).Row
Sheets(Cells(row_cnt, 1).Text).Name = Cells(row_cnt, 2)
Next row_cnt
Exit Sub

'エラーが起きたらここから
error1:
MsgBox "シート名：" & Cells(row_cnt, 2) & "はシート名に使えない文字が含まれていた可能性があります。", vbExclamation
End Sub

シート名一括変更置換10