Excel批量改名技巧：VBA一键按列表重命名

本篇文章主要是结合我之前面试的各种经历和实战开发中遇到的问题解决经验整理的，希望这篇《Excel批量改名技巧：VBA一键按列表命名》对你有很大帮助！欢迎收藏，分享给更多的需要的朋友学习~

可使用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、运行该宏。

以上就是《Excel批量改名技巧：VBA一键按列表重命名》的详细内容，更多关于的资料请关注golang学习网公众号！