i=1Do While i<=10sum=sum+i i=i+1Loop End Sub i变量的初始值是 1,根据While后的条件,只要i变量小于等于 10,后续的代码就可以一直循环执行。 这里为了演示使用了Do While循环,实际情况下,这种求和问题,使用For循环更简洁。 With 结构语法 With结构由With和End With两个语句构成,对象的属性和方法都写在两...
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 * ...
Do While 循环用于满足指定条件时循环执行一段代码的情形。循环的指定条件在 While 关键词后书写。Do While 循环也有两种形式：Do While … Loop 循环Do … Loop While 循环 Do While … Loop 循环 Do While … Loop 循环，根据 While 关键词后的条件表达式的值，真时执行，假时停止执行。基本语法如下：Do Wh...
Loop End Sub 再举个简单的例子: 代码2: Sub dw() Dim i As Integer i = 2 Do While Cells(i, 6) <> "If Worksheets("sheet37").Cells(i, 6) > 250 Then Worksheets("sheet37").Cells(i, 7) = "优秀Worksheets("sheet37").Cells(i, 7).Interior.Color = RGB(0, 0, 255) ElseIf Work...
Do While...Loop 语句是条件为True时循环 Do until...Loop 语句是直到条件变成True时才停止循环 如果事先知道循环次数,应该使用For循环,据说它比Do循环速度快 不知道起点和终点,需要在循环内计算结果出来以后才能判断是否该终止循环的,用Do Loop循环。反之,如
End If ActiveCell.Offset(1, 0).Select Loop End Sub 语句Range("C2").Select表示选中了C2单元格,此时ActiveCell就是C2单元格,因为没有用到变量来控制循环,所以在循环体尾部,ActiveCell.Offset(1, 0).Select,就是让单元格往下移动1格。 Do While循环就是判断某个条件,如果是True,就执行循环体,直到条件返回Fa...
Sub 计算平均分() Dim zongf, zongs, i zongf = 0 zongs = 0 i = 18 Do While Cells(i, 2) <> "" zongf = zongf + Cells(i, 2) zongs = zongs + 1 i = i + 1 Loop If zongs > 0 Then Cells(19, 3) = zongf / zongs End If End Sub发布...
End Sub 三 DO loop 语句 在条件为true时，重复执行命令区域 DO WHILE CONDITION [statements][exit do][statements]LOOP 或者：DO [statements][exit do][statements]LOOP WHILE CONDITION 备注：上面的while 可以用until 代替。VBA中如果事先不知道将重复多少次循环，只是知道判断的条件，那么使用 Do......
提高执行效率:使用Do While可以减少不必要的循环次数,从而提高宏的执行效率。 以下是一个示例代码,演示了如何使用Do While优化VBA宏: 代码语言:txt 复制 Sub OptimizeMacro() Dim i As Integer i = 1 Do While i <= 10 ' 执行一些操作 Debug.Print i i = i + 1 Loop End Sub ...
End Sub 4. 利用do while.. loop循环 通过do wile... loop 循环，并设置循环终止条件，进行批量填充。代码如下：Sub 填充单元格4()Dim i As Integer i = 1 Do While i < 11 Range("A" & i).Value = i i = i + 1 Loop End Sub 5. 循环遍历每一个单元格 我们用currentregion获取不间断的非空...