陌上蝶梦寻 阅读：23次 时间：2018-02-19 15:50:23平时使用Excel时一个一个地重命名工作表，是不是觉得麻烦，没有效率，今天就给大伙儿分享excel如何快速批量重命名多个工作表，以下内容是由微蓝经验网用户发布EXCEL中如何批量重命名工作表名称，希望对于用户有一定帮助，为朋友进行解决疑惑，如若想了解更多相关内容，可以向底部移动了解更多与本教程文章相关解决经验方法！
鼠标双击打开安装在电脑桌面的Excel。
进入主页，在A1-A6依次输入1月销售表、2月销售表、3月销售表、4月销售表、5月销售表、6月销售表。
单击“插入工作表”。
目标是把Sheet1-Sheet6变成“1月销售表-6月销售表”。
按下ALT+F11，打开VBA窗口。
点击“插入模块”。
调出“代码”输入框，输入如下代码：
Sub按A列数据修改表名称()OnErrorResumeNext'忽略错误继续执行VBA代码,避免出现错误消息Application.Calculation=xlCalculationManual'手动重算Dimi%Fori=1ToSheets.CountSheets(i).Name=Cells(i,1).TextNextOnErrorGoTo0'恢复正常的错误提示Application.Calculation=xlCalculationAutomatic'自动重算EndSub
单击“运行-运行子过程/用户窗体”。
回到Excel，会发现成功批量重命名工作表。
声明 未经许可，请勿转载。
© 2025 VLPOS.com 版权所有 微蓝网 ICP备案号：黑ICP备20003952号-1