你试试下面这样行不行:
Sub 判断_Click()
For I = Range("A100000").End(xlUp).Row To 3 Step -1
If Range("b" & (I + 1)) = 5 Then
Range("q" & I) = "优秀"
Else
Exit For
End If
Next
End Sub
Sub a()
Dim i%, n%
n = Sheet1.Range("A65536").End(xlUp).Row
For i = n To 3 Step -1
If Sheet1.Cells(i + 1, 2) = 5 Then Sheet1.Cells(i, 17) = "优秀"
Next i
End Sub