do until..loop 

Sub util实例()
Dim rs%
rs = 2
Do Until Cells(rs, 2) = ""
If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good"
rs = rs + 1
Loop
End Sub

posted @ 2015-09-15 15:59  混混的IT生涯  阅读(233)  评论(0)  编辑  收藏  举报