VBA中的for循环

1. 我们在之前一篇文章中提到一键生成成绩条，其完整代码如下：

这个宏里添加了一个for循环，也就是以for开始，next结束，中间的三行代码是上一篇文章中的宏所执行复制和插入复制单元格的“动作1”。

在for循环中，有一个变量i，通过这个变量我们想要达到的效果是让“动作1”总共执行15次，即写成i = 1 To 15。在数据源中一共有16个学生，其中第一个学生已经有抬头，所以这里只要再执行15次“动作1”即可。

在使用变量i之前，我们也要为其设置一个定义，否则这个变量可能执行的是小数。所以用Dim i As Integer定义该变量为整数，也就是动作要执行15次。

2. 但是在上面这个宏还有一个需要完善的地方就是，我们在执行的时候需要点击第一行。如果点到别的地方，就不会按预期执行。

添加一个动作，就是执行for循环之前，先执行点击第一行抬头的动作。具体操作如下：

1) 取消相对引用；

2) 点击“录制宏”；

3) 选择第一行；

4) 点击“停止录制”。

将上面动作的代码复制到学生成绩条的宏里，放在for循环的前面。完整代码如下：

再次执行宏时，无论点到表格的哪里，宏都会按预期执行，一键生成学生成绩条。