案例:将工作簿中15个部门的工作表重命名为,代码 部门名。 步骤: 第一步,导入VBA模板文件,打开需重命名工作表的EXCEL文档,按ALT F11 调出VBA 编辑器 →在工程窗口右键选择【导入文件】→选择VBA 模块文件(批量重命名工作表.bas)→关闭VBA 编辑器。 第二步,批量获取工作表名,点【开发工具】→【宏】→选择宏“目录”→【执行】,新建了一个新的工作表“汇总目录”,所有工作表的名称都放在了汇总目录的A列,并建立了链接。 第三步,确定工作表对应的新名称。在B2列输入工作表代码, A01至A15,在C列输入公式:=B2&”-”&A2,用公式批量生成新的工作表名。 第四步,点【开发工具】→【宏】→选择宏“重命名工作表”→【执行】 由于案例的工作表只有15个,用时不到2分钟,所有工作表已按要求完成重命名,这个方法超级实用,超级快速,有兴趣的小伙伴赶紧试试吧! 动图演示: |
|