方法
双击打开安装在桌面的Excel。
进入主页，在A1-A6依次输入1月销售表、2月销售表、3月销售表、4月销售表、5月销售表、6月销售表。
点击“插入工作表”。
目标是把Sheet1-Sheet6变成“1月销售表-6月销售表”。
按下ALT+F11，打开VBA窗口。
单击“插入——模块”。
调出“代码”输入框，输入如下代码：
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
点击“运行-运行子过程/用户窗体”。
回到Excel，会发现成功批量重命名工作表。
声明：本文由用户 杨永涛 上传分享，本网页内容旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。TEL:0731-84117792 E-MAIL:11247931@qq.com
