材料/工具
Excel表格方法
步骤1
打开Excel表格，进入主页，在A1-A6依次输入1月销售表、2月销售表、3月销售表、4月销售表、5月销售表、6月销售表。
步骤2
点击选择“插入工作表”。
步骤3
目标是把Sheet1-Sheet6变成“1月销售表-6月销售表”。
步骤4
按下ALT+F11，打开VBA窗口。
步骤5
点击“插入“，在下拉菜单中点击”模块”。
步骤6
如图，在代码框中输入如下代码。
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
步骤7
点击“运行“，在下拉菜单中点击”运行子过程/用户窗体”。
步骤8
回到Excel，批量重命名工作表就完成了。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 puzdycom@126.com 举报，一经查实，本站将立刻删除。
