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、你的所有工作簿都已经重命名为了你的标题