Excel VBA-----之do while loop的用法

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、运行宏，得到如下运行结果。