Excel如何批量修改工作簿名稱爲標題

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、你的所有工作簿都已經重命名爲了你的標題