EXCEL中如何批量重命名工作表名称
轩轩小姐姐2019-01-29 21:32
方法
- 双击打开安装在桌面的Excel。
- 进入主页,在A1-A6依次输入1月销售表、2月销售表、3月销售表、4月销售表、5月销售表、6月销售表。
- 点击“插入工作表”。
- 目标是把Sheet1-Sheet6变成“1月销售表-6月销售表”。
按下ALT+F11,打开VBA窗口360新知。- 单击“插入——模块”。
- 调出“代码”输入框,输入如下消培半验战外代码:
Sub 按A列数据修改表名称()On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息Application.Calculation = xlCalculationManual '手动重算Dim i%For i = 1 T令孔验社轴龙质免号便o Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Err地or GoTo 0 '恢复正常的错误提示Application.Calculation = xlCalculationAuto殖起matic '自动重算End 米护Sub - 点击“运行-运行子过程/用户窗体”。
- 回到Excel,会发现成功批量重命名工作表。
声明本文系本人根据真实经历原创,未经许可,请勿转载。