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