常用excel表格的朋友精彩會遇到工作表更名的問題，工作表不多單個點(diǎn)擊并不費(fèi)事，不過就怕遇到工作表很多的情況，那么如何快捷給工作表更名呢？下面小編為大家介紹下excel工作表批量重命名的方法。
excel工作表重命名的方法有下面幾種：
第一，單擊菜單“格式”——“工作表”——“重命名”。
第二，單擊工作表標(biāo)簽，右鍵選擇“重命名”。
第三，雙擊工作表標(biāo)簽，直接對工作表重命名。
上面三種方法，都可以對Excel工作表重命名，不過都是一個一個工作表分別重命名。
如何做到excel工作表批量重命名呢？有下面兩種方法，供參考：
第一種：利用Excel工作表現(xiàn)有單元格內(nèi)容進(jìn)行批量重命名。
例如：Excel工作表默認(rèn)標(biāo)簽為sheet1，sheet2，sheet3，sheet4。如何快速重命名為1月銷售表，2月銷售表，3月銷售表，4月銷售表。
sheet1工作表A1:A4單元格內(nèi)容是1月銷售表，2月銷售表，3月銷售表，4月銷售表。
方法：按下ALT+F11，打開VBE窗口，單擊插入——模塊，復(fù)制下面代碼，并運(yùn)行。
Sub 按A列數(shù)據(jù)修改表名稱（）
On Error Resume Next ‘忽略錯誤繼續(xù)執(zhí)行VBA代碼，避免出現(xiàn)錯誤消息
Application.Calculation = xlCalculationManual ’手動重算
Dim i%
For i = 1 To Sheets.Count
Sheets（i）.Name = Cells（i， 1）.Text
Next
On Error GoTo 0 ‘恢復(fù)正常的錯誤提示
Application.Calculation = xlCalculationAutomatic ’自動重算
End Sub
第二種：直接批量重命名Excel工作表。
Sub 新工作表名（）
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Worksheets（i）.Name = “報表” & i
Next i
Application.ScreenUpdating = True
End Sub
以上內(nèi)容便是excel批量重命名的教程了，相信可以幫助你解決問題，大家可以關(guān)注教程之家，里面有更多的精彩教程。
