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键或单击工具栏中的“运行”按钮执行代码。