1、首先我们打开一个工作样表作为例子。
2、可以看到工作薄中有两个工作表一个是5月工资，一个是sheet1。我们要做的就是使用vba将两个工作表进行改名操作。
3、虽然使用常规的操作能够很方便的改名，但是如果工作表比较多，那么一个的修改是非常麻烦的，比如每一次操作都要选取工作表然后在进行重新改名输入。
4、我们使用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、我使用了一个for循环，历遍了该工作薄中的所有工作表，并使用name方法将对象进行重命名为“更改后的名字”。&是连接符连接了i变量来为工作表命名。
