简述For Next循环语句的用法（For Next循环语句例子）

计算机最擅长的工作之一就是处理需要不断重复进行的操作。VBA支持两种最主要的循环结构：For Next和Do Loop，本文主要介绍For Next循环结构，下面我们一起来看看For Next循环语句的用法和For Next循环语句例子吧。

如果预先知道操作要重复的次数，那么可以使用For Next循环结构，其语法格式如下：

For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]

counter：必选，用做循环计数器的数值变量，该变量不能是Boolean或数组元素。该值在循环期间会不断递增或递减。
start：必选，counter计数器的初始值。
end：必选，counter计数器的终止值。
Step：可选，counter计数器的步长，未指定该值则默认为1。如果指定步长值，则需要按“Step步长值”的格式输入，其中的“步长值”几个字替换为实际值。
statements：可选，For Next结构中包含的VBA代码，它们将被执行指定的次数。
Exit For：可选，中途退出For Next循环。

使用For Next循环结构需要将一个变量指定为计数器（counter），然后为该变量提供一个初始值（start）和一个终止值（end），通过步长值（step）使计数器从初始值递增或递减到终止值。当计数器的值超过终止值或初始值时，结束For Next循环并继续执行后面的代码。

案例1：计算1到100之间的所有整数之和

下面的代码计算1到100之间的所有整数之和。在该For Next结构中，起始值为1，终止值为100。由于参与计算的是连续范围内的所有整数，因此步长值为1。

案例2：计算1到100之间的所有偶数之和

下面的代码计算1到100之间的所有偶数之和，由于偶数是2、4、6、8这样的数字，两个相邻偶数之间的增量为2，因此本例中需要将步长值设置为2，同时需要将初始值改为0，这样才能将数字2包含在计算范围之内。其他代码与上例相同。

还可以将For Next循环结构与If Then或Select Case判断结构嵌套使用。

案例3：计算指定范围内的所有整数之和

下面的代码计算从数字1到用户指定的数字之间的所有整数之和。由于用户在InputBox对话框中输入的内容有可能不是数字，因此需要先使用If语句检测用户输入的内容，如果是数字才会执行For Next结构中的代码。将用户输入的数字赋值给intNumber变量，然后将该变量中的值作为For Next结构中的终止值，这样就实现了从1到用户指定的数字之间的整数范围。

实际上不一定必须完成所有预定次数的循环，而是可以在满足特定条件时中途退出循环。为了实现这个目的，通常需要在For Next结构中嵌入If Then结构，并在If Then结构中使用Exit For语句。

案例4：达到指定值时结束累加

下面的代码计算数字1到10之间的所有整数之和，但是当累加的总和大于或等于20时就停止累加，并显示达到该值时累加到的那个数字。本例中的intSum变量存储累加后的当前总和，在If语句中判断该变量的值是否大于等于20，如果是则执行Exit For语句退出当前的For Next循环。最后在对话框中显示退出For Next循环时的循环计数器的当前值，该值保存在intCounter变量中。