今天我们来学习一下VBA代码中do_while_loop循环语句的使用。案例为将得分大于等于55分的自动勾选，效果如下：
代码如下：
Sub dowhileloop()
Dim ws%
ws = 2
Do While Cells(ws, 2) <> "" '单元格为非空单元格时执行下一步
If Cells(ws, 2) > 55 Then Cells(ws, 3) = "V" '当B2单元格数字大于55时，B3单元格则打勾
ws = ws 1 '当上一条件不成立时，执行WS 1=3
Loop '循环
End Sub
我们新建一个图形，指定宏之后就可以自动运行，这样就可以实现对人员成绩进行自动打分。
现在你学会do_while_loop循环语句的使用了吗？
