excel中使用vba以顺序选择工作表的方法

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

2、现在我们选择是是工作表序列为1的工作表，激活的是5月工资工作表，目标是使用vba顺序选择接下来的工作表也就是源数据工作表。

3、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub choosesheet()ActiveSheet.Next.ActivateEnd Sub

4、运行后，我们会发现excel中当前激活表格变更为源数据，说明我们的代码在正常运行，而后我们继续运行该代码，会发现excel工作薄中的工作表依次循序的进行激活切换。

5、当激活到最后一个工作表的时候，我们再次运行，vba会提示错误，因为最后一个工作表后没有了对象，因此会产生对象变量未设置的提示。

6、所以这里我们要对其做一个判断，如果当前激活的工作表序列是最后一个，我们就不执行该激活下一个工作表的代码。在vba中输入以下代码：Sub choosesheet() If ActiveSheet.Index <> Worksheets.Count Then ActiveSheet.Next.Activate Else End IfEnd Sub这样就不会出错了。