1)通过以上案例可以发现,当我们无法预知数据的总行数,且又需要使用循环挨个进行判断时,这种业务场景就可以使用「WHILE循环结构」。 2)WHILE循环结构分为2大类语法,一种是「WHILE…END」,另一种是「DO WHILE…LOOP」。 好了,这个懒人智能循环结构,你学会了吗? 参考资料:科普中国专家猴子作品合集 《Excel数据分析和...
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 * ...
ActiveCell.Offset(1, 0).Select Loop End Sub 语句Range("C2").Select表示选中了C2单元格,此时ActiveCell就是C2单元格,因为没有用到变量来控制循环,所以在循环体尾部,ActiveCell.Offset(1, 0).Select,就是让单元格往下移动1格。 Do While循环就是判断某个条件,如果是True,就执行循环体,直到条件返回False。 上...
Do While...Loop 语句是条件为True时循环 Do until...Loop 语句是直到条件变成True时才停止循环 如果事先知道循环次数,应该使用For循环,据说它比Do循环速度快 不知道起点和终点,需要在循环内计算结果出来以后才能判断是否该终止循环的,用Do Loop循环。反之,如果很明确需要循环计算的次数,则用For……Next……计量循...
Dim i As IntegerDim sum As Integeri = 1Do While i <= 10sum = sum + ii = i + 1LoopEnd Sub i 变量的初始值是 1，根据 While 后的条件，只要 i 变量小于等于 10，后续的代码就可以一直循环执行。这里为了演示使用了 Do While 循环，实际情况下，这种求和问题，使用 For 循环更简洁。Do … Loop...
：Sub 循环2()Dim a%a = 1Do While Cells(a, 1) <> ""a = a + 1If Cells(a, 1) >= 90 ThenCells(a, 2) = "优秀"ElseIf Cells(a, 1) >= 80 Then Cells(a, 2) = "良好"ElseIf Cells(a, 1) >= 70 Then Cells(a, 2) = "中等"ElseCells(a, 2) = "较差"End IfLoopEnd ...
网友提问:放大图片回答网友问题:下面的代码不用写注释 ,学过ExcelVBA第二季前10节课就应该可以看懂了Sub shishi()Sheet1行数 = Sheets("Sheet1").Range("A1").CurrentRegion.Rows.Counti = 2Do While Sheets("Sheet2").Range("A"
在VBA中,可以使用Exit Do语句来立即退出Do While循环。以下是一个示例: vba Sub ExitLoopExample() Dim i As Integer i = 1 Do While i <= 10 If i = 5 Then Exit Do ' 当i等于5时,退出循环 End If Debug.Print i i = i + 1 Loop Debug.Print "循环已退出" End Sub 在这个示例中,当...
[statement n]LoopWhilecondition 示例 以下示例使用Do...while循环来检查循环结束时的条件。循环内的语句至少执行一次,即使条件为False。 PrivateSubConstant_demo_Click() i=10Doi= i +1MsgBox"The value of i is :"&iLoopWhilei <3'Condition is false.Hence loop is executed once.End Sub ...
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) ...