Excel VBA基础教程:VBA循环语句

VBA循环语句

1） Next语句以指定次数来重复执行一组语句

Forcounter=startToend [Stepstep]            ' step缺省值为1

[statements]

[Exit For]

[statements]

Next [counter]

如1：

ForWords = 10To1Step-1           '建立10次循环

   For Chars = 0 To 9                '建立10次循环

       MyString = MyString & Chars   '将数字添加到字符串中

   Next Chars                        ' Increment counter

   MyString = MyString & " "         '添加一个空格

NextWords

2）For Each…Next语句 主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句

For EachelementIngroup

Statements

[Exit for]

Statements

Next[element]

如1：

For Eachrang2Inrange1

With range2.interior

.colorindex=6

.pattern=xlSolid

End with

Next

这上面一例中用到了With…End With语句，目的是省去对象多次调用，加快速度；语法为：

With object

[statements]

End With

3）Do…loop语句 在条件为true时，重复执行区块命令

Do {while |until} condition' 为当型循环，until为直到型循环，顾名思义，不多说啦

Statements

Exit do

Statements

Loop

或者使用下面语法

Do                         '先do再判断，即不论如何先干一次再说

Statements

Exit do

Statements

Loop {while |until} condition