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，會發現成功批量重命名工作表。