1)For Next语句 以指定次数来重复执行一组语句
For counter = start To end [Step step] ' step 缺省值为1
[statements]
[Exit For]
[statements]
Next [counter]
如1:
For Words = 10 To 1 Step -1 ' 建立 10 次循环
For Chars = 0 To 9 ' 建立 10 次循环
MyString = MyString & Chars ' 将数字添加到字符串中
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一个空格
Next Words
2)For Each…Next语句 主要功能是对一个数组或集合对象进行,让所有元素重复执行一次语句
For Each element In group
Statements
[Exit for]
Statements
Next [element]
如1:
For Each rang2 In range1
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' while 为当型循环,until为直到型循环,顾名思义,不多说啦
Statements
Exit do
Statements
Loop
或者使用下面语法
Do ' 先do 再判断,即不论如何先干一次再说
Statements
Exit do
Statements
联系客服