Excel VBA----之do loop循环

1、do.....Loop：循环语句，直至满足条件后退出。

2、在外狒芙梨VBE中编写代码：Sub doLoop()Dim a%Doa = a + 1If a > 10 Then Debug.Print ("a已经超过10了荑樊综鲶,该停止了！") Exit DoEnd IfLoopEnd Sub功能为：当a超过10时，将退出该程序。

3、运行该代码，运行11次时，将输出a已经超过10了,该停止了！

4、接下来，将对Do....Loop 进行复杂案例说明：

5、Excel界面的初始数据为：

6、在外狒芙梨VBE中编写如下代码：Sub judge()Dim rs%rs = 1Dors = rs + 1If rs > 10 Then Exit DoElse If 潮贾篡绐Cells(rs, 2) > 90 Then Cells(rs, 3) = "是" End IfEnd IfLoopEnd Sub

7、在E垓矗梅吒xcel界面中指定宏，并运行代码，得到如下结果。即：当分数超过90时，将在第三列中得到 是否为优秀的结果。

8、综上所述，本文说明了Do....Loop的使用说明，并结合Excel进行案例场景使用。