知识点:
for语句;连续区域表示;if语句嵌套;
要求:根据成绩填写等级,>=90位优秀,>=60为几个,其他为不及格;
表格示例:
代码:
Sub 等级判断()
Dim i As Integer
For i = 2 To Range("A1").CurrentRegion.Rows.Count
If Range("D" & i).Value >= 90 Then
Range("E" & i).Value = "优秀"
Else
If Range("D" & i).Value >= 60 Then
Range("E" & i).Value = "及格"
Else
Range("E" & i).Value = "不及格"
End If
End If
Next i
End Sub
Excel文件下载: