VBA 中Do while Loop用法如下：
VBA中如果不知道重复多少次，使用 Do...Loop 语句。
Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。
重复执行代码直到条件是 true
使用 While 关键字来检查 Do... Loop 语句的条件。
Do While i>10
'some code
Loop
如果 i 等于 9，上述循环内的代码将终止执行。
Do
'some code
Loop While i>10
这个循环内的代码将被执行至少一次，即使 i 小于 10。
重复执行代码直到条件变成 true
使用 Until 关键字来检查 Do...Loop 语句的条件。
Do Until i=10
'some code
Loop
如果 i 等于 10，上述循环内的代码将终止执行。
Do
'some code
Loop Until i=10
这个循环内的代码将被执行至少一次，即使 i 等于 10。
退出 Do...Loop
可以通过 Exit Do 关键词退出 Do...Loop 语句。
Do Until i=10
i=i-1
If i<10 Then Exit Do
Loop
这个循环内的代码，只要 i 不为 10 且 i 大于 10 时都将被执行。
扩展资料：
While 关键字用于检查 Do...Loop 语句中的条件。有两种方式检查条件：在进入循环之前检查条件（如下面的 ChkFirstWhile 示例）；或者在循环至少运行完一次之后检查条件（如下面的 ChkLastWhile 示例）。
在 ChkFirstWhile 过程中，如果 myNum 的初始值被设置为 9 而不是 20，则永远不会执行循环体中的语句。在 ChkLastWhile 过程中，循环体中的语句只会执行一次，因为条件在检查时已经为 False。
Sub ChkFirstWhile()
Dim counter,myNum，counter = 0，myNum = 20
Do While myNum > 10，myNum = myNum - 1，counter = counter + 1
Loop
MsgBox 循环重复了 & counter & 次。
End Sub，Sub ChkLastWhile()
Dim counter,myNum
counter = 0，myNum = 9
Do myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
MsgBox 循环重复了 & counter & 次。
End Sub
重复执行语句直到条件变为 True
参考资料：循环语句_百度百科
VBA 中Do while Loop用法如下：
1、VBA中如果不知道重复多少次，使用 Do...Loop 语句。
2、Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。重复执行代码直到条件是 true使用 While 关键字来检查 Do... Loop 语句的条件。
（1）Do While i>10'some codeLoop
如果 i 等于 9，上述循环内的代码将终止执行。
（2）Do'some codeLoop While i>10
这个循环内的代码将被执行至少一次，即使 i 小于 10。重复执行代码直到条件变成 true使用 Until 关键字来检查 Do...Loop 语句的条件。
（3）Do Until i=10'some codeLoop
如果 i 等于 10，上述循环内的代码将终止执行。
（4）Do'some codeLoop Until i=10
这个循环内的代码将被执行至少一次，即使 i 等于 10。退出 Do...Loop可以通过 Exit Do 关键词退出 Do...Loop 语句。
（5）Do Until i=10i=i-1If i<10 Then Exit DoLoop
这个循环内的代码，只要 i 不为 10 且 i 大于 10 时都将被执行。
扩展资料：
While 关键字用于检查 Do...Loop 语句中的条件。
有两种方式检查条件：
1、在进入循环之前检查条件（如下面的 ChkFirstWhile 示例）；或者在循环至少运行完一次之后检查条件（如下面的 ChkLastWhile 示例）。
2、在 ChkFirstWhile 过程中，如果 myNum 的初始值被设置为 9 而不是 20，则永远不会执行循环体中的语句。
3、在 ChkLastWhile 过程中，循环体中的语句只会执行一次，因为条件在检查时已经为 False。
Sub ChkFirstWhile()
Dim counter,myNum，counter = 0，myNum = 20
Do While myNum > 10，myNum = myNum - 1，counter = counter + 1
Loop
MsgBox 循环重复了 & counter & 次。
End Sub，Sub ChkLastWhile()
Dim counter,myNum
counter = 0，myNum = 9
Do myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
MsgBox 循环重复了 & counter & 次。
End Sub
重复执行语句直到条件变为 True
参考资料：循环语句—百度百科
本回答被网友采纳VBA 中Do while Loop用法如下：
VBA中如果不知道重复多少次，使用 Do...Loop 语句。
Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。
重复执行代码直到条件是 true
使用 While 关键字来检查 Do... Loop 语句的条件。
'some code
Loop
如果 i 等于 9，上述循环内的代码将终止执行。
'some code
Loop While i>10
这个循环内的代码将被执行至少一次，即使 i 小于 10。
重复执行代码直到条件变成 true
使用 Until 关键字来检查 Do...Loop 语句的条件。
'some code
Loop
如果 i 等于 10，上述循环内的代码将终止执行。
'some code
Loop Until i=10
这个循环内的代码将被执行至少一次，即使 i 等于 10。
退出 Do...Loop
可以通过 Exit Do 关键词退出 Do...Loop 语句。
i=i-1
If i<10 Then Exit Do
Loop
这个循环内的代码，只要 i 不为 10 且 i 大于 10 时都将被执行。
循环体
loop
1.
Do While i>1 '条件为True时执行
... ... '要执行的语句
Loop
2.
Do Until i>1 '条件为False时执行
... ... '要执行的语句
Loop
3.
Do
... ... '要执行的语句
Loop While i>1 '条件为True时执行
4.
Do
... ... '要执行的语句
Loop Until i>1 '条件为False时执行
5.While...Wend 语句
While i>1 '条件为True时执行
... ... '要执行的语句
Wend