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

以上就是本文的全部内容了，是否有顺利帮助你解决问题？若是能给你带来学习上的帮助，请大家多多支持golang学习网！更多关于文章的相关知识，也可关注golang学习网公众号。