示例Visual Basic for Applications (VBA) 宏 Sub ConcatColumns() Do While ActiveCell <> "" 'Loops until the active cell is blank. 'The "&" must have a space on both sides or it will be 'treated as a variable type of long integer. ActiveCell.Offset(0, 1).FormulaR1C1 =...
Do…While, Do…Until, For…Next, For…Each, and While…Wend PS：Do…While循环还有另外一种语法，你可以在循环的底部测试条件，例如：注意，在条件被测试之时，VBA至少已经执行了一次循环里的语句。除了将条件放在循环之后外，过程SignIn示范如何使用条件跳出循环。当Exit Do语句执行时，循环便立即停止。我们在...
示例Visual Basic for Applications (VBA) 宏 Sub ConcatColumns() Do While ActiveCell <> "" 'Loops until the active cell is blank. 'The "&" must have a space on both sides or it will be 'treated as a variable type of long integer. ActiveCell.Offset(0, 1).FormulaR1C1 = _ ActiveCell...
Sub DoUntil1() Dim i As Integer '声明变量 i = 1 '给变量赋初始值 '循环 Do Until i > 10 Cells(i, 1).Value = i i = i + 1 Loop End Sub 注意,与For-Next循环不同的是,在进入循环之前,需要先给变量i赋初始值。在循环中,还需要能够增加...
先执行再判断,即将条件判断语句放到Loop的后面,先Do一次,然后再Loop While或者Loop Until。 格式如下: Do' 用于循环执行的语句Loop[While|Until] 循环条件 示例如下: Do ... Loop While Subtest()DimiAsIntegeri =5DoDebug.Print i i = i -1LoopWhilei >0EndSub ...
上述代码,只有运行找到第四次牛肉的时候才会停止,会造成浪费。 改进: 十八、do...loop 如1: 如2: 十九、错误语句处理 但是,有时候不是用户记错,而是格式输入错误,该怎么处理呢? 二十、GOTO 二十一、do while loop、do until loop 案例:中出前三个100分...
Do Until 条件（条件为真，退出循环） ...Loop 我们举一个例子：Sub DoUntil循环() Dim m As Long m = 1 Do Until m > 1000 m = m * 2 Debug.Print m LoopEnd Sub 总结 1、循环语句是编程中的一个必不可少的方法，可以说没有循环，就根本无法编程。2、我们用的比较多的是...
1 Do循环的两种格式。（一）格式一：Do语句体[Exit Do]语句体Loop[while或until条件]2 示例：计算1-100之间正整数和。在EXCEL VBE中输入如下代码：Sub summation()n = 100Dim j As IntegerDim i As Integeri = 1Doj = j + ii = i + 1Loop Until i > 100MsgBox jEnd Sub运行程序，显示结果如下。3...
Do [While | Until] 循环条件 ' 用于循环执行的语句 Loop 这里的[While | Until]表示两者随便用一个都可以。While就是当条件成立的时候就执行,而Until就是直到条件成立时就停止执行。也就是说,While用于指定循环的条件,说明什么时候就执行循环,而Until用于指定停止循环的条件,说明什么时候不再执行循环。这么说可能...
Loop End Sub 4．Do…Loop until条件 先进入循环体，直到满足条件时，才退出循环，例如：Sub doWhile4()Dim I As Integer Do I = I + 1 '累加I变量值 Loop Until I = 10 'I等于10时，退出循环 End Sub 5．Do…Loop，没有任何条件，循环体中用If…Then…Else…End If语句判断，如果符合条件，...