一、在原工作表名稱后添加文字

??? 例如工作簿中僅包含12個用數字“1-12”命名的工作表，現在要將每個工作表名稱修改為“1月”、“2月”、……、“12月”，即在每個工作表名稱后添加一個“月”字。

???

??? 1.按快捷鍵Alt+F11，打開VBA編輯器，在右側的代碼窗口中輸入下列代碼：

??? Sub RenameWorksheets()
??? For i = 1 To Worksheets.Count
????? Worksheets(i).Name = Worksheets(i).Name & "月"
??? Next
??? End Sub

????2.將光標定位在代碼中間，按F5單擊工具欄中的“運行”按鈕執行代碼即可。

???

???二、修改原工作表名稱

??? 例如要將每個用數字命名的工作表名稱改為“一月”、“二月”、……、“十二月”。?

??? 1.在工作表中輸入修改后的工作表名稱，例如在左側第一個工作表的A列的A1:A12區域中輸入“一月”至“十二月”。

??? 2.在VBA編輯器的代碼窗口中輸入下列代碼：

??? Sub RenameWorksheets1()
??? For i = 1 To Worksheets.Count
????? Worksheets(i).Name = Worksheets(1).Cells(i, 1).Value
??? Next
??? End Sub

??? 3.將光標定位在上述代碼中間，按F5鍵或單擊工具欄中的“運行”按鈕執行代碼。

???

??? 運行上述代碼前需注意工作表的排列順序要與A列中的名稱一一對應，且工作簿中不要包含隱藏的工作表，因為工作表的索引號是從左向右排列的，Worksheets(1) 指工作簿中最左邊的第一個工作表。