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 王小涛_同學
时间: 2024-10-10 10:27:28