excel工作簿批量替换重命名

excel工作簿批量修改名称 excel工作簿批量替换重命名(2)

更新：2023-07-01 07:08:08 来源：IT袋作者：马勇

导读：excel工作簿批量替换重命名，5、按下ALT+F11，打开VBA窗口。 6、单击“插入”再点击“模块”。 7、调出“代码”输入框，输入如下代码： Sub 按A列数据修改表名称()On Error Resume Next '忽略

excel工作簿批量替换重命名

excel工作簿批量替换重命名

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

excel工作簿批量替换重命名

6、单击“插入”再点击“模块”。

excel工作簿批量替换重命名

7、调出“代码”输入框，输入如下代码：Sub 按A列数据修改表名称()On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息Application.Calculation = xlCalculationManual '手动重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0 '恢复正常的错误提示Application.Calculation = xlCalculationAutomatic '自动重算End Sub。