excel中使用vba给工作表批量改名

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

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

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

4、我们捂执涡扔使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option ExplicitSub setcap()Dim i As IntegerFor i = 1 To Worksheets.CountWorksheets(i).Name = "更改后的名字" & iNextEnd Sub

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

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