本节课主要讲解语法篇的第三课，VBA当中的do...loop循环语句的使用，来看看实际使用过程中如何实现数据循环遍历。案例为将得分大于等于85分的自动勾选，效果如下：
代码如下：
Sub doloop循环()
Dim rs%
rs = 1
Do
rs = rs + 1
If rs > 10 Then
Exit Sub
Else
If Cells(rs, 2) >= 85 Then Cells(rs, 3) = "√"
End If
Loop
End Sub
注意点：本节思路主要为定义一个变量，用变量递增的方式来自动对变量变化后所代表的单元格进行判断，当条件成立时执行对应结果。
分享到:
