VBA-批量修改工作表名稱

適用於一張表中有大量的sheet，這些sheet需要按照一定的規律命名

1、代碼

　　在表格中按下Alt+F11打開宏命令編輯區。插入如下的代碼，然后運行。

Sub EditSheetName()
    For i = 2 To Worksheets.Count
        Worksheets(i).Name = "信息系統情況（系統" & （i-1） & "）"
    Next
End Sub

　　如果出現：1004，改名稱已被占用，則使用 on error resume next

　　原因是：需要改的和舊的前面名稱一致，會提示此錯誤。建議先整體改其他的名稱，避免一致。再改成自己想要的名稱。

2、忽略錯誤

Sub EditSheetName()

　　 For i = 2 To Worksheets.Count 
　　 On Error Resume Next 
　　　　 Worksheets(i).Name = "信息系統情況（系統" & (i-1)& "）" 
Next End Sub

3、筆記：

sub　....　end sub　　定義的一個方法
方法名是EditSheetNeme

EXCEL中索引從1開始，worksheets（1）代表第一個工作表。

worksheets（"sheetname"）代表工作表名為sheetname的工作表。
On Error Resume Next 忽略錯誤繼續下一步