上一篇介绍通过————，或使用————。本篇介绍如何批量批量修改工作表标签名称。

如下工作簿中含有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