1.需求：根据分数判断等级

2.代码：

Sub 等级判断()
    Dim i As Integer
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
        If Range("A" & i).Value >= 90 Then
            Range("B" & i).Value = "优秀"
        Else
            If Range("A" & i).Value >= 60 Then
                Range("B" & i).Value = "及格"
            Else
                Range("B" & i).Value = "不及格"
            End If
        End If
    Next i
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

3.效果