方法
雙擊打開安裝在桌面的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,會發現成功批量重命名工作表。