excel表格怎么將工作表批量設置重命名（Excel表格批量重命名）

常用excel表格的朋友精彩會遇到工作表更名的問題，工作表不多單個點擊并不費事，不過就怕遇到工作表很多的情況，那么如何快捷給工作表更名呢？下面小編為大家介紹下excel工作表批量重命名的方法。

excel工作表重命名的方法有下面幾種：

第一，單擊菜單“格式”——“工作表”——“重命名”。

第二，單擊工作表標簽，右鍵選擇“重命名”。

第三，雙擊工作表標簽，直接對工作表重命名。

上面三種方法，都可以對Excel工作表重命名，不過都是一個一個工作表分別重命名。

如何做到excel工作表批量重命名呢？有下面兩種方法，供參考：

第一種：利用Excel工作表現有單元格內容進行批量重命名。

例如：Excel工作表默認標簽為sheet1，sheet2，sheet3，sheet4。如何快速重命名為1月銷售表，2月銷售表，3月銷售表，4月銷售表。

sheet1工作表A1:A4單元格內容是1月銷售表，2月銷售表，3月銷售表，4月銷售表。

方法：按下ALT+F11，打開VBE窗口，單擊插入——模塊，復制下面代碼，并運行。

Sub 按A列數據修改表名稱（）

On Error Resume Next ‘忽略錯誤繼續執行VBA代碼，避免出現錯誤消息

Application.Calculation = xlCalculationManual ’手動重算

Dim i%

For i = 1 To Sheets.Count

Sheets（i）.Name = Cells（i， 1）.Text

Next

On Error GoTo 0 ‘恢復正常的錯誤提示

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

以上內容便是excel批量重命名的教程了，相信可以幫助你解決問題，大家可以關注教程之家，里面有更多的精彩教程。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。