excel vba 循环语句

Excel VBA循环语句

循环语句是VBA程序中最重要的一部分。它能够让程序快速执行重复性的任务，大大减少用户的工作量。VBA中，循环语句有四种：For...Next循环，Do While循环，Do Until循环，For Each...Next循环。

一、For...Next循环

For...Next循环是最常用的循环语句，它可以指定一个变量或多个变量，并对变量进行计算。有三个部分组成： 1.For...Next循环： For...Next循环的格式如下：

For [counter] = [start] To [end] [Step expression] 'expression

[Counter]为用于在循环中计算的变量，[Start]表示循环开始的变量值，[End]为循环结束的变量值，[Step expression]为每次循环变量变化的值。

下面这个例子演示了使用For...Next循环来输出1到10的数字： Sub for_example() For i = 1 To 10 MsgBox i Next End Sub

- 1 -

2.Exit For

Exit For语句是用来强制终止for...next循环的语句，该语句可以单独使用，也可以和If语句一起使用。

例如，如果你想在循环过程中强制终止，当counter的值等于5时，可以使用以下语句： if i = 5 then Exit For 3.Continue For

Continue For语句是用来跳出本次循环，而进行下一次循环的语句，可以单独使用，也可以和If语句一起使用。

例如，如果你想跳过counter的值等于5的这次循环，可以使用以下语句：

if i = 5 then Continue For 二、Do While循环

Do While循环会在程序开始前就进行条件判断，只有在条件为真时，才会进入循环。它的格式如下： Do While [Condition] 'expression Loop

Loop语句用来结束一个Do While循环，表示重复下去。 下面这个例子演示了使用Do While循环来输出1到10的数字： Sub do_while_example() Dim i As Integer

- 2 -

i = 1

Do While i <= 10 MsgBox i i = i + 1 Loop End Sub

三、Do Until循环

Do Until循环是和Do While循环相反的，它会先进行条件判断，只有在条件为假时，才会进入循环。它的格式如下： Do Until [Condition] 'expression Loop

下面这个例子演示了使用Do Until循环来输出1到10的数字： Sub do_until_example() Dim i As Integer i = 1

Do Until i > 10 MsgBox i i = i + 1 Loop End Sub

四、For Each...Next循环

- 3 -

For Each...Next循环用于遍历VBA中的集合。它的格式如下： For Each [element] In [collection] 'expression Next

[Element]表示在循环中的变量，[Collection]表示要遍历的集合。

- 4 -