EXCEL中如何批量重新命名工作表名稱

平時使用excel時一個一個地重新命名工作表，是不是覺得麻煩，沒有效率。今天就給大家分享excel如何快速批量重新命名多個工作表。

方法

雙擊開啟安裝在桌面的Excel。

進入主頁，在A1-A6依次輸入1月銷售表、2月銷售表、3月銷售表、4月銷售表、5月銷售表、6月銷售表。

點選“插入工作表”。

目標是把Sheet1-Sheet6變成“1月銷售表-6月銷售表”。

按下ALT+F11，開啟VBA視窗。

單擊“插入——模組”。

調出“程式碼”輸入框，輸入如下程式碼：
Sub 按A列資料修改表名稱()On Error Resume Next '忽略錯誤繼續執行VBA程式碼,避免出現錯誤訊息Application.Calculation = xlCalculationManual '手動重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0 '恢復正常的錯誤提示Application.Calculation = xlCalculationAutomatic '自動重算End Sub

點選“執行-執行子過程/使用者窗體”。

回到Excel，會發現成功批量重新命名工作表。