可使用VBA脚本批量重命名工作表：先在“名称列表”工作表A列输入新名称，再运行脚本自动按顺序将其他工作表重命名，并校验数量匹配与命名规范。
如果您在Excel中需要将多个工作表的名称按照指定列表批量修改，手动逐一重命名效率低下且容易出错。以下是利用VBA脚本实现一次性按预设名称列表自动重命名工作表的操作步骤：
一、准备名称列表并放置于指定工作表
该方法依赖于一个包含新名称的源数据区域，需确保名称无重复、不为空、符合Excel工作表命名规范（长度≤31字符、不含\/:*?"|、不以空格开头或结尾）。建议将新名称集中放在当前工作簿的“Sheet1”（或其他固定名称的工作表）的A列，从A1开始连续排列。
1、新建一个工作表，重命名为“名称列表”。
2、在该工作表的A1单元格开始，逐行输入目标工作表名称，例如：销售汇总、成本分析、利润明细、库存台账。
3、确认A列中无空行，且所有名称均满足Excel命名规则。
二、插入并运行基础VBA脚本
此脚本读取“名称列表”工作表A列内容，并依次将工作簿中除“名称列表”外的其他工作表按顺序重命名。执行前将自动校验数量匹配性，避免名称不足或溢出。
1、按Alt + F11打开VBA编辑器。
2、在左侧“工程资源管理器”中，右键当前工作簿名称，选择插入 → 模块。
3、在右侧代码窗口中粘贴以下代码：
Sub BatchRenameSheets()
Dim wsList As Worksheet, newName As Range, i As Long
Dim targetSheets As Collection: Set targetSheets = New Collection
On Error Resume Next
Set wsList = ThisWorkbook.Worksheets("名称列表")
If wsList Is Nothing Then MsgBox "未找到名为【名称列表】的工作表！": Exit Sub
For Each sh In ThisWorkbook.Worksheets
If sh.Name "名称列表" Then targetSheets.Add sh
Next sh
If targetSheets.Count = 0 Then MsgBox "无可重命名的工作表！": Exit Sub
i = 1
For Each newName In wsList.Range("A1:A" & wsList.Cells(wsList.Rows.Count, "A").End(xlUp).Row)
If i
On Error Resume Next
targetSheets(i).Name = Trim(CStr(newName.Value))
If Err.Number 0 Then MsgBox "第" & i & "个工作表重命名失败：[" & newName.Value & "]，错误：" & Err.Description: Err.Clear
On Error GoTo 0
i = i + 1
End If
Next newName
MsgBox "已完成尝试重命名 " & Application.Min(targetSheets.Count, wsList.Cells(wsList.Rows.Count, "A").End(xlUp).Row) & " 个工作表。"
End Sub
4、按F5运行该宏。
三、使用字典映射方式按原名精准替换
当需根据现有工作表原始名称精确匹配新名称（如将“Sheet1”改为“订单数据”，“Sheet2”改为“客户档案”），可采用字典结构实现定向重命名，避免顺序错位风险。需提前在“名称列表”工作表中建立两列对照关系：A列为当前名称，B列为目标名称。
1、在“名称列表”工作表中，A1输入当前工作表名（如“Sheet1”），B1输入对应新名称（如“订单数据”）；A2、B2依此类推。
2、在VBA编辑器中新建模块，粘贴以下代码：
Sub RenameByMapping()
Dim wsList As Worksheet, dict As Object, r As Long
Set dict = CreateObject("Scripting.Dictionary")
On Error Resume Next
Set wsList = ThisWorkbook.Worksheets("名称列表")
If wsList Is Nothing Then MsgBox "未找到【名称列表】工作表！": Exit Sub
r = 1
Do While Not IsEmpty(wsList.Cells(r, 1)) And Not IsEmpty(wsList.Cells(r, 2))
dict(wsList.Cells(r, 1).Value) = Trim(CStr(wsList.Cells(r, 2).Value))
r = r + 1
Loop
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Name "名称列表" And dict.Exists(sh.Name) Then
On Error Resume Next
sh.Name = dict(sh.Name)
If Err.Number 0 Then MsgBox "重命名【" & sh.Name & "】失败：" & Err.Description: Err.Clear
On Error GoTo 0
End If
Next sh
MsgBox "映射重命名完成。"
End Sub
3、运行该宏。
四、启用正则替换逻辑动态生成名称
适用于需对现有工作表名进行统一格式化处理的场景，例如将全部工作表名前缀统一添加“2024_”，或将“Q1”、“Q2”等简写扩展为“2024_Q1_Report”、“2024_Q2_Report”。本方法不依赖外部列表，直接在VBA中定义替换规则。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub RenameWithPattern()
Dim sh As Worksheet, oldName As String, newName As String
For Each sh In ThisWorkbook.Worksheets
If sh.Name "名称列表" Then
oldName = sh.Name
Select Case True
Case oldName Like "Q[1-4]"
newName = "2024_" & oldName & "_Report"
Case InStr(oldName, "数据") > 0
newName = Replace(oldName, "数据", "统计")
Case Else
newName = "2024_" & oldName
End Select
On Error Resume Next
sh.Name = Left(newName, 31)
If Err.Number 0 Then MsgBox "【" & oldName & "】→【" & newName & "】重命名失败：" & Err.Description: Err.Clear
On Error GoTo 0
End If
Next sh
MsgBox "模式化重命名执行完毕。"
End Sub
2、根据实际需求修改Select Case中的条件与newName赋值逻辑。
3、运行该宏。
