EXCEL シート名を自動変更するマクロ

質問

• 特定セルに入力した値を特定のシート名に反映させるマクロについて。
• 入力された値に応じてシート名を変更する方法を紹介します。
• Sheet1のセルに入力された値をもとに、特定のシート名を設定する方法について解説します。

回答No.1

K Kazz（@JazzCorp）

Sheet1
A列：変更前シート名
B列：変更後シート名（ぷりフィックス）

Option Explicit
Sub ReNameRobo()
Const xName = "Sheet1"
Dim xSheet As Worksheet
Dim zSheet As Worksheet
Dim xLast As Long
Dim nn As Long
Set zSheet = Worksheets(xName)
zSheet.Columns("C").ClearContents
xLast = zSheet.Cells(Rows.Count, "A").End(xlUp).Row
For nn = 1 To xLast
If Not IsEmpty(zSheet.Cells(nn, "A")) And Not IsEmpty(zSheet.Cells(nn, "B")) Then
For Each xSheet In Sheets
If (xSheet.Name = zSheet.Cells(nn, "A").Value) And (xSheet.Name <> xName) Then
xSheet.Name = zSheet.Cells(nn, "B").Value & " " & xSheet.Name
zSheet.Cells(nn, "C").Value = xSheet.Name
End If
Next
End If
If IsEmpty(zSheet.Cells(nn, "C")) Then
zSheet.Cells(nn, "C").Value = "×"
End If
Next
zSheet.Select
zSheet.Columns("C").AutoFit
End Sub

お礼

ありがとうございます。
参考にさせて頂きます。