Sub 评定级别()
Dim range As String
Dim i As Integer
For i = 2 To 11
range = Cells(i, 2).Value
Select Case range
Case Is > 90
Cells(i, 2).Offset(0, 1) = "优秀"
Case Is > 80
Cells(i, 2).Offset(0, 1) = "优良"
Case Is > 70
Cells(i, 2).Offset(0, 1) = "较好"
Case Is > 60
Cells(i, 2).Offset(0, 1) = "及格"
Case Is > 0
Cells(i, 2).Offset(0, 1) = "不及格"
End Select
Next
End Sub
联系客服