上一篇介绍通过————，或使用————。本篇介绍如何批量批量修改工作表标签名称。
如下工作簿中含有7张sheet命名的工作表，要求将每个工作表标签sheet名称更改为星期，即最终形成星期1-星期7的7张工作表。
首先将鼠标光标移动至任意工作表标签上，单击鼠标右键，选择*查看代码*，或使用快捷键 ALT F11 ，打开VBA编辑器。
在VBA编辑器界面选择左侧 ThisWorkbook对象，在右侧编辑区输入代码。
代码如下，比较简单主要就是一个for循环，如果还不理解的可以直接复制粘贴使用。
Sub 工作表名称()
For I = 1 To 7
Sheets(I).Name = "星期" & I
Next
End Sub
