VBA工作表批量命名

1、打开需要改名的工作薄，例如，需要5个工作表，则创建5个工作表

2、按下alt+F11组合键，进入VBA代码窗口

3、写入代码（如图），完成后保存退出

4、在工作表1中操作：工具－宏－宏

5、选择执行的宏名称，执行。

则工作表名称全部修改成相应表格中A2单元格内容

6、如果要改成其它名称的话，把Sheets(x).Name = Sheets(x).Range("A2")中的Sheets(x).Range("A2")修改就可以