VBA第六课 循环判断数据

Sub do_loop循环判断()
Dim cj%
cj = 1
Do
cj = cj + 1
    If cj > 10 Then
        Exit Do               '退出循环
    Else
        If Cells(cj, 2) >= 90 Then Cells(cj, 3) = "优秀"
        If Cells(cj, 2) >= 80 And Cells(cj, 2) <= 90 Then Cells(cj, 3) = "良好"
        If Cells(cj, 2) >= 60 And Cells(cj, 2) <= 80 Then Cells(cj, 3) = "合格"
        If Cells(cj, 2) < 60 Then Cells(cj, 3) = "不及格"
        End If
Loop
End Sub

转载请注明作者与出处：http://blog.csdn.net/u013511642  王小涛_同學

VBA第六课 循环判断数据

原文：http://blog.csdn.net/u013511642/article/details/45418599