Excel批量重命名工作表技巧

想告别Excel中逐个重命名工作表的繁琐与低效？本文详解三种高效实用的VBA批量重命名方案：一键按序号自动生成规范名称（如“数据表1”“数据表2”），灵活读取“命名清单”表中预设名称自动赋值，或精准替换所有工作表名中的指定关键词（如将“副本”统一改为“正式版”），操作简单、安全可靠，大幅提升数据整理效率，是财务、行政、数据分析等岗位必备的自动化技巧。

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

一、使用VBA代码按序号自动命名

该方法适用于将所有工作表按固定格式（如“Sheet1”“Sheet2”）或自定义前缀加序号的方式批量重命名。需确保工作表顺序与预期命名顺序一致。

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

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

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

Sub RenameSheetsByIndex()

Dim i As Integer

For i = 1 To ThisWorkbook.Sheets.Count

ThisWorkbook.Sheets(i).Name = "数据表" & i

Next i

End Sub

4、将光标置于代码内任意位置，按F5运行宏。

5、关闭VBA编辑器，返回Excel查看工作表标签是否已更新为“数据表1”“数据表2”等。

二、使用VBA读取指定单元格内容批量命名

该方法适用于已有命名清单存放在某一工作表的连续单元格中（如Sheet1的A1:A10），可将清单内容逐一赋给其他工作表名称。

1、新建一个工作表，命名为“命名清单”，在A1开始向下依次输入目标工作表名（如“销售汇总”“库存明细”“采购记录”）。

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

3、粘贴以下代码：

Sub RenameSheetsFromRange()

Dim wsList As Worksheet, i As Integer

Set wsList = ThisWorkbook.Sheets("命名清单")

For i = 1 To Application.Min(wsList.Range("A1").CurrentRegion.Rows.Count, ThisWorkbook.Sheets.Count)

If Not i = wsList.Index Then ThisWorkbook.Sheets(i).Name = Trim(wsList.Cells(i, 1).Value)

Next i

End Sub

4、运行宏后，工作簿中前N个工作表（N为清单行数）将被重命名为A列对应内容。

三、使用VBA按工作表原始名称关键词替换重命名

该方法适用于对现有工作表名中重复出现的字符进行批量替换，例如将所有含“副本”的工作表名改为“正式版”。不改变工作表顺序，仅修改名称字符串。

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

2、粘贴以下代码：

Sub ReplaceInSheetNames()

Dim ws As Worksheet

Dim oldText As String, newText As String

oldText = "副本"

newText = "正式版"

For Each ws In ThisWorkbook.Sheets

If InStr(ws.Name, oldText) > 0 Then

ws.Name = Replace(ws.Name, oldText, newText)

End If

Next ws

End Sub

3、修改代码中oldText和newText的值为您需要替换的原文与目标文本。

4、运行宏，所有匹配原名称关键词的工作表将完成替换。

理论要掌握，实操不能落！以上关于《Excel批量重命名工作表技巧》的详细介绍，大家都掌握了吧！如果想要继续提升自己的能力，那么就来关注golang学习网公众号吧！