1、do loop相关的循环方法包括三种：
a. do....loop
b. do while...loop
c. do until...loop
本文将通过两种循环方法，对Excel数据进行整理，即do while...loop、do until...loop。
2、第一种方法do while...loop：
while:类型if语句，当满则某个条件时才进行循环操作。
do while
.....
loop
3、功能要求：利用do while...loop实现如下Excel表格中第三列的结果。
1、输入如下表格数据：
4、打开VBE，输入代码；
Sub doWhileLoop()
Dim rs%
rs = 2
Do While Cells(rs, 2) <> ""
If Cells(rs, 2) >= 90 Then
Cells(rs, 3) = "是"
Else
Cells(rs, 3) = "否"
End If
rs = rs + 1
Loop
End Sub
5、回到Excel界面中，插入形状--指定宏，指定刚刚定义的doWhileLoop宏；
6、运行该宏；则得到如下图的结果，即第三列中已经填充了结论。
1、第一种方法do until...loop：
until:类型if语句，直到满足某个条件时，将退出循环。
do until
.....
loop
2、初始数据依然如下图所示
3、打开VBE，输入代码；
Sub doUntilLoop()
Dim rs%
rs = 2
Do Until Cells(rs, 2) = ""
If Cells(rs, 2) >= 90 Then
Cells(rs, 3) = "是"
Else
Cells(rs, 3) = "否"
End If
rs = rs + 1
Loop
End Sub
4、回到Excel界面中，插入形状--指定宏，指定刚刚定义的doUntilLoop宏；
4、运行宏，得到如下运行结果。
