excel批量重命名工作表

1、先创建大量的工作表，shift+F11可以快速创建工作表
2、在第一个工作表，点击查看代码

3、输入如下代码，点击运行

Public Sub 获取各工作表的名称()
For i = 1 To Worksheets.Count
Sheets("Sheet20").Cells(i, 1).Value = Worksheets(i).Name
Next
End Sub

此时工作表中已经有数据了，我们在加上修改后的工作表名称

之后在代码编辑器输入如下代码，点击运行，之后所有的工作表都重命名好了

Public Sub 更改名称()
For i = 2 To Worksheets.Count
Worksheets(i).Name = Worksheets("Sheet20").Cells(i, 2).Value
Next
End Sub