如何一键完成excel工作表重命名

对工作簿中的分表，根据表格中的内容，一键完成分表的重命名。

工具/原料

office

一、新建宏

1、新建一张空白的excel表，点击另存为“测试 .xlsm”格式（.xlsm格式可以保存VBA代码）。

2、再次打开“选项”；选择“自定义功能区”；勾选“开发工具”；点击“确定”。

3、在主页面，选择“开发工具”选项卡，点击左边功能条的 Visual Basic，

4、选中“测试.xlsm”，右键选择“插入”，点击“模块”；

5、双击“模块1”，将如下代码复制到模块1中：Sub 批量命名工作表() Dim i As 诔罨租磊Integer i = 0 For Each She 朐袁噙岿In Sheets i = i + 1 She.Name = Cells(i, 1) '表的名称横向排列 NextEnd Sub

6、关闭VBE，从excel工作表的A1列开奘疚豫枭始，按顺序输入新分表的名称，在“开发工具”选项卡中，先择“宏”，点击“执行”。

7、可以看到，分表名称已经变更了。

在其他工作簿中引入宏

1、打开“测试.xlsm”的情况下，在任一分表的A1列开始，按顺序输入新分表的名称；

2、在“开发工具”选项卡中，先择“宏”，点击“执行”。可以看到，分表名称已经自动变更了。