Excel批量重命名工作表方法

本文详解了如何利用VBA在Excel中高效、准确地批量重命名工作表，彻底告别手动操作的繁琐与易错——只需按Alt+F11打开VBA编辑器，插入模块并粘贴几行简洁代码，即可将所有工作表按预设名称数组（如“销售数据”“采购记录”等）一键更新，特别适合处理多张工作表需统一规范命名的场景，大幅提升办公效率与数据管理专业性。

如果您需要为Excel工作簿中的多个工作表统一修改名称，手动逐一重命名效率低下且易出错。以下是通过VBA实现批量重命名工作表的具体操作方法：

一、使用VBA循环重命名所有工作表

该方法适用于将所有工作表按固定规则（如“Sheet1”、“Sheet2”…）或按指定数组顺序重命名。需确保工作表数量不超过目标名称数组长度，否则将跳过多余工作表。

1、按Alt + F11打开VBA编辑器。

2、在左侧工程资源管理器中，右键点击当前工作簿名称，选择“插入”→“模块”。

3、在新建模块窗口中粘贴以下代码：

Sub RenameAllSheets()

Dim i As Integer

Dim newName As Variant

newName = Array("销售数据", "采购记录", "库存汇总", "财务报表")

For i = 1 To Worksheets.Count

If i

Worksheets(i).Name = newName(i - 1)

End If

Next i

End Sub

4、将Array(...)中的字符串替换为您所需的工作表名称，注意中文引号必须为英文半角引号。

5、按F5运行宏，所有工作表将按数组顺序依次重命名。

二、根据单元格内容批量命名工作表

该方法适用于工作表名称已预先列在某一工作表（如“目录”）的指定列中，VBA读取该列内容并逐个赋值给对应工作表。要求名称不重复且符合Excel命名规范（不能含\ / ? * [ ]等字符，长度≤31）。

1、在工作簿中新建一个名为“目录”的工作表，并在A1开始向下连续填写新表名（如A1=“Q1汇总”，A2=“Q2汇总”…）。

2、按Alt + F11打开VBA编辑器，插入新模块。

3、粘贴以下代码：

Sub RenameByCell()

Dim ws As Worksheet, i As Integer

i = 1

For Each ws In ThisWorkbook.Worksheets

If ws.Name "目录" Then

ws.Name = Sheets("目录").Cells(i, 1).Value

i = i + 1

End If

Next ws

End Sub

4、确保“目录”工作表位于最前或非被重命名之列，且A列无空单元格。

5、运行宏后，除“目录”外的所有工作表将按A列顺序完成重命名。

三、按序号加前缀批量重命名

该方法适用于对现有工作表统一添加编号前缀（如“01-销售”、“02-采购”），保留原名主体结构。原始工作表顺序即为编号依据，不可随意拖动调整位置。

1、按Alt + F11打开VBA编辑器，插入新模块。

2、粘贴以下代码：

Sub RenameWithNumberPrefix()

Dim i As Integer, ws As Worksheet

Dim prefix As String

prefix = "数据"

i = 1

For Each ws In ThisWorkbook.Worksheets

ws.Name = Format(i, "00") & "-" & prefix & i

i = i + 1

Next ws

End Sub

3、修改prefix = "数据"为所需前缀文字。

4、运行后，第一张表命名为“01-数据1”，第二张为“02-数据2”，依此类推。

到这里，我们也就讲完了《Excel批量重命名工作表方法》的内容了。个人认为，基础知识的学习和巩固，是为了更好的将其运用到项目中，欢迎关注golang学习网公众号，带你了解更多关于的知识点！