咔片PPT · AI自动生成演示文稿，模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

上一篇介绍通过————，或使用——数据透视表快速批量创建工作表——。本篇介绍如何批量批量修改工作表标签名称。

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

接着直接按快捷键F5或者单击上方的宏运行按钮运行代码。

此时返回EXCEL工作表界面，所有工作表标签已更改为星期命名。