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

四、启用正则替换逻辑动态生成名称

适用于需对现有工作表名进行统一格式化处理的场景，例如将全部工作表名前缀统一添加“2025_”，或将“Q1”、“Q2”等简写扩展为“2025_Q1_Report”、“2025_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 = "2025_" & oldName & "_Report"

Case InStr(oldName, "数据") > 0

newName = Replace(oldName, "数据", "统计")

Case Else

newName = "2025_" & 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  # go  # 资源管理器  # 排列  # if  # count  # for  # select  # Error  # goto  # Collection  # number  # 重命名  # 未找到  # 器中  # 放在  # 多个  # 依此类推  # 适用于  # 右键  # 或其他  # 您在 

相关栏目： 【 网站优化151355 】 【 网络推广146373 】 【 网络技术251813 】 【 AI营销90571 】

相关推荐： 无锡营销型网站制作公司,无锡网选车牌流程？  Python自动化办公教程_ExcelWordPDF批量处理案例  在线制作视频的网站有哪些,电脑如何制作视频短片？  VIVO手机上del键无效OnKeyListener不响应的原因及解决方法  Laravel的路由模型绑定怎么用_Laravel Route Model Binding简化控制器逻辑  Laravel Seeder填充数据教程_Laravel模型工厂Factory使用  Java Adapter 适配器模式（类适配器，对象适配器）优缺点对比  Laravel集合Collection怎么用_Laravel集合常用函数详解  进行网站优化必须要坚持的四大原则  Android Socket接口实现即时通讯实例代码  iOS UIView常见属性方法小结  Python企业级消息系统教程_KafkaRabbitMQ高并发应用  济南网站建设制作公司,室内设计网站一般都有哪些功能？  Bootstrap整体框架之CSS12栅格系统  nodejs redis 发布订阅机制封装实现方法及实例代码  微博html5版本怎么弄发超话_超话进入入口及发帖格式要求【教程】  如何在IIS服务器上快速部署高效网站？  小米17系列还有一款新机？主打6.9英寸大直屏和旗舰级影像  长沙企业网站制作哪家好,长沙水业集团官方网站？  Laravel如何正确地在控制器和模型之间分配逻辑_Laravel代码职责分离与架构建议  Laravel如何与Inertia.js和Vue/React构建现代单页应用  谷歌Google入口永久地址_Google搜索引擎官网首页永久入口  简单实现jsp分页  武汉网站设计制作公司,武汉有哪些比较大的同城网站或论坛，就是里面都是武汉人的？  javascript中的数组方法有哪些_如何利用数组方法简化数据处理  Laravel Vite是做什么的_Laravel前端资源打包工具Vite配置与使用  大连网站制作公司哪家好一点,大连买房网站哪个好？  如何用AWS免费套餐快速搭建高效网站？  JavaScript数据类型有哪些_如何准确判断一个变量的类型  Laravel如何构建RESTful API_Laravel标准化API接口开发指南  如何挑选最适合建站的高性能VPS主机？  Swift中swift中的switch 语句  php 三元运算符实例详细介绍  如何在阿里云虚拟服务器快速搭建网站？  关于BootStrap modal 在IOS9中不能弹出的解决方法(IOS 9 bootstrap modal ios 9 noticework)  Laravel如何处理异常和错误？（Handler示例）  javascript事件捕获机制【深入分析IE和DOM中的事件模型】  Laravel怎么实现验证码功能_Laravel集成验证码库防止机器人注册  佐糖AI抠图怎样调整抠图精度_佐糖AI精度调整与放大细化操作【攻略】  linux top下的 minerd 木马清除方法  实例解析Array和String方法  如何在自有机房高效搭建专业网站？  详解免费开源的.NET多类型文件解压缩组件SharpZipLib（.NET组件介绍之七）  EditPlus中的正则表达式 实战(4)  Python文件操作最佳实践_稳定性说明【指导】  详解阿里云nginx服务器多站点的配置  laravel怎么为API路由添加签名中间件保护_laravel API路由签名中间件保护方法  高防服务器如何保障网站安全无虞？  Laravel队列由Redis驱动怎么配置_Laravel Redis队列使用教程  php485函数参数是什么意思_php485各参数详细说明【介绍】