excel中使用vba给工作表批量改名工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

首先我们打开一个工作样表作为例子。

2/6

可以看到工作薄中有两个工作表一个是5月工资，一个是sheet1。我们要做的就是使用vba将两个工作表进行改名操作。

3/6

虽然使用常规的操作能够很方便的改名，但是如果工作表比较多，那么一个的修改是非常麻烦的，比如每一次操作都要选取工作表然后在进行重新改名输入。

4/6

我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub setcap()

Dim i As Integer

For i = 1 To Worksheets.Count

Worksheets(i).Name = 更改后的名字 i

Next

End Sub

5/6

这里我们可以看到使用这个代码后，将工作薄中的两个表，更改为统一的名字，并以序列号进行了排序。

6/6

我使用了一个for循环，历遍了该工作薄中的所有工作表，并使用name方法将对象进行重命名为“更改后的名字”。是连接符连接了i变量来为工作表命名。

注意事项

谢谢你的观看。

你的投票是我编辑经验的动力。谢谢你。

EXCELVBA命名改名