#17エクセルVBA入門－繰返し処理For Nextの中でIf条件判定を行う

＃13 If条件分岐と#16 ForNext を使って条件判定を繰り返しましょう。

For Nextを利用して1行目から4行目までの成績を判定しましょう。

1行目から4行目は

For i = 1 to 4 ですね。

Next i　までの間に If 条件文を書けばオッケーですね。

        If Cells(i, 2).Value >= 80 Then
            Cells(i, 3).Value = "優"
        ElseIf Cells(i, 2).Value >= 60 Then
            Cells(i, 3).Value = "良"
        ElseIf Cells(i, 2).Value >= 40 Then
             Cells(i, 3).Value = "可"
        Else
             Cells(i, 3).Value = "不可"
        End If

If 文全体を　For Next で囲みます。

 Sub ForIf()
     Dim i as Long

     For i = 1 to 4  
        If Cells(i, 2).Value >= 80 Then
            Cells(i, 3).Value = "優"
        ElseIf Cells(i, 2).Value >= 60 Then
            Cells(i, 3).Value = "良"
        ElseIf Cells(i, 2).Value >= 40 Then
             Cells(i, 3).Value = "可"
        Else
             Cells(i, 3).Value = "不可"
        End If
     Next i
 End Sub