Sub DoWhile循环() Dim m As Integer Do While m < 100 m = m + 1 Debug.Print m LoopEnd Sub Do Until循环 基本结构：Do Until 条件（条件为真，退出循环） ...Loop 我们举一个例子：Sub DoUntil循环() Dim m As Long m = 1 Do Until m > 1000 m = m * ...
VBA办公之do loop 循环 #office办公技巧 #办公软件 #excel技巧 #办公技能 #电脑培训 - 迈光办公服务,定制设计收学员于20241203发布在抖音,已经收获了25.2万个喜欢,来抖音,记录美好生活!
Do While…Loop的循环结构，满足循环流程图解里面的蓝色流程，属于先判断条件再运行的结构。2）Do…Loop Until循环语句，举例如下：需求：还以上例为题，使用Until的方式找到第一个空单元格。Sub DoUntil循环()i = 1 With Sheets("Do循环")Do i = i + 1 Loop Until .Cells(i, 1) = ""MsgBox "第一个空...
代码就不解析了,基本和Do While…Loop的代码一样,唯独循环条件的位置和写法不一样。 Do…Loop Until的循环结构,满足循环流程图解里面的橙色流程,属于先执行语句,再判断条件是否满足,如果不满足条件,继续循环,满足的时候才可以跳出循环。 心得分享 很多初学Excel VBA Do循环的同学,都会在这两个循环上栽跟头,如果这个...
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赋初始值。在循环中,还需要能够增加...
Do ' 用于循环执行的语句 Loop [While | Until] 循环条件 示例如下: Do ... Loop While Sub test() Dim i As Integer i = 5 Do Debug.Print i i = i - 1 Loop While i > 0 End Sub 输出结果为:5 4 3 2 1 Do ... Loop Until ...
可以在 Do...Loop 语句中的任何位置放置任意个 Exit Do。Exit Do 通常与条件判断语句（如 If...Then ）一起使用，将控制传递给紧随在 Loop 语句后面的语句。当用于嵌套 Do...Loop 中的时候，Exit Do 将控制传递给其所在循环的上一层嵌套循环。说到这里，我们在VBA使用的常用循环已经基本介绍完毕，那么什么是...
Loop [{While | Until} condition] 其中,在该循环结构中,主要包含以下两个参数,其功能如下: condition 可选参数。数值表达式或字符串表达式,其值为True或False。如果condition是Null,则condition会被当作False。 Statements 一条或多条命令,它们将被重复执行,直到condition为True。 接下来介绍Do…Loop语句的用法。在下...
Do Until I = 10 'I等于10时,退出循环 I = I + 1 '累加I变量值 Loop End Sub 4.Do…Loop until条件 先进入循环体,直到满足条件时,才退出循环,例如: Sub doWhile4() Dim I As Integer Do I = I + 1 '累加I变量值 Loop Until I = 10 'I等于10时,退出循环 ...
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...