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

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)   '表的名称横向排列

    Next

End Sub

6、关闭VBE，从excel工作表的A1列开始，按顺序输入新分表的名称，

在“开发工具”选项卡中，先择“宏”，点击“执行”。

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

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

2、在“开发工具”选项卡中，先择“宏”，点击“执行”。

可以看到，分表名称已经自动变更了。