ExcelVBA批量重命名工作表技巧

还在为Excel中几十个工作表逐一重命名而头疼？本文手把手教你用VBA一键批量重命名工作表——无论是通过预设数组精准赋值、从单元格动态读取名称、按数字序列自动编号，还是统一添加前缀/后缀分类管理，四种实用方法覆盖各类办公场景，彻底告别低效手动操作，大幅提升多表处理效率，哪怕你是VBA新手也能快速上手实现自动化提效。

如果您需要在Excel中对多个工作表进行重命名，手动操作将非常耗时。通过使用VBA（Visual Basic for Applications），您可以一键批量修改工作表名称，大幅提升效率。

本文运行环境：联想ThinkPad X1 Carbon，Windows 11。

一、使用数组指定新名称批量重命名

该方法适用于您已明确每个工作表对应的新名称的情况。通过定义一个包含新名称的数组，按顺序为每个工作表赋值。

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

2、在左侧工程资源管理器中双击要操作的工作簿对象，粘贴以下代码：

Dim wsArray As Variant
Dim i As Integer
wsArray = Array("销售表", "库存表", "人员表", "汇总表")
For i = 0 To UBound(wsArray)
    ThisWorkbook.Sheets(i + 1).Name = wsArray(i)
Next i

3、确保数组元素数量不超过实际工作表数量，避免出错。

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

此方法从指定工作表的某列单元格中读取名称，用于重命名其他工作表，便于动态控制名称来源。

1、在某个工作表（如“控制表”）的A列输入目标名称，例如A1到A4分别为“第一季度”、“第二季度”等。

2、在VBA编辑器中插入新模块，并输入以下代码：

Dim i As Integer
For i = 1 To 4
    ThisWorkbook.Sheets(i).Name = ThisWorkbook.Sheets("控制表").Cells(i, 1).Value
Next i

3、如果目标工作表不存在或名称重复，程序会报错，需提前检查数据准确性。

三、按数字序列自动重命名

当需要将工作表统一命名为“表1”、“表2”等格式时，可使用循环结合字符串拼接实现自动化命名。

1、打开VBA编辑器并创建新模块。

2、输入以下代码：

Dim j As Integer
For j = 1 To ThisWorkbook.Sheets.Count
    ThisWorkbook.Sheets(j).Name = "表" & j
Next j

3、运行前请确认当前工作簿中没有同名工作表，否则会触发运行时错误。

四、添加前缀或后缀批量修改名称

该方法用于在现有工作表名称基础上统一增加标识，适用于分类管理场景。

1、在VBA编辑器中编写如下代码：

Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    ws.Name = "项目_" & ws.Name
Next ws

2、上述代码会在每个工作表名前添加“项目_”前缀。

3、若新名称导致重复或超出字符限制（超过31个字符），系统将提示错误。

以上就是《ExcelVBA批量重命名工作表技巧》的详细内容，更多关于的资料请关注golang学习网公众号！