EXCEL中如何给sheet页批量重命名。

平时使用Excel时一个一个地重命名工作表，是不是觉得麻烦，没有效率。今天就给大家分享excel如何快速批量重命名多个工作表。

材料/工具

Excel

方法

双击打开离导影况二奏消安装在桌面的Excel。

进入主页，在A1-A6依次输入1月销售表、2月销售表、3月销售表、4月销售表、5月销售表、6月销售表。

点击“插入距按工作表”。

目标是把Sheet1-S临题机字语代端息庆假异heet6变成“1月销售表-6月销售表”。

按下ALT+F11，打开VBA窗口。

单击“插入——模块”。

调出“代码”输入框，输入如下代码：
Sub 按A列数据修改表名称()On Error Resume Next '忽滑设响味有前迫德端治存略错误继续执行VBA代码,避免出现错误消息Application.Calculation = xlCalculationManual '手动重算Dim i%Fo程日r i = 1 To Shee圆刑庆请进乎失顺目ts.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0 '恢复正常的错误提示Application.Calculation = xlCalculationAutomatic '自动重算End Sub

点击“运行-运行子过程/用户窗体”。

回到Excel，会发现成功批量重命名工作表。