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

方法

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

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

點(diǎn)擊“插入工作表”。

目標(biāo)是把Sheet1-Sheet6變成“1月銷售表-6月銷售表”。

按下ALT+F11，打開VBA窗口。

單擊“插入——模塊”。

調(diào)出“代碼”輸入框，輸入如下代碼：
Sub 按A列數(shù)據(jù)修改表名稱()On Error Resume Next '忽略錯(cuò)誤繼續(xù)執(zhí)行VBA代碼,避免出現(xiàn)錯(cuò)誤消息Application.Calculation = xlCalculationManual '手動(dòng)重算Dim i%For i = 1 To Sheets.CountSheets(i).Name = Cells(i, 1).TextNextOn Error GoTo 0 '恢復(fù)正常的錯(cuò)誤提示Application.Calculation = xlCalculationAutomatic '自動(dòng)重算End Sub

點(diǎn)擊“運(yùn)行-運(yùn)行子過程/用戶窗體”。

回到Excel，會(huì)發(fā)現(xiàn)成功批量重命名工作表。

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識(shí)，若有侵權(quán)等問題請及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com