1、打开Excel

2、点击“视图”

3、点击“录制宏”->点击“确定”

4、点击“停止录制宏”

5、点击“查看宏”->点击“编辑”

6、清空新打开的文本编辑器的本文，并填入以下文本

Sub 重命名工作表()
 Dim i As Integer
 For i = 1 To Sheets.Count
 Sheets(i).Name = Sheets(i).Cells(1, 1)
  Next
End Sub

ps:上述代码中Cells(1, 1)表示第一行第一列，如果如果标题不在第一行第一列，手动改为对应的行列即可

7、关闭编辑器窗口

8、点击“查看宏”->“运行”

9、你的所有工作簿都已经重命名为了你的标题