条件分岐と繰り返し

Sub 条件分岐と繰り返し()
    Dim RowIdx
    For RowIdx = 1 To 13　　　　　　　　　　　　　　　'cellのA1からA13まで指定
        If Cells(RowIdx, 1).Value >= 100 Then　　　　'変数Valueが100より上の場合
            Cells(RowIdx, 2).Value = "合格"　　　　　 '隣のcellに合格と表示する
        Else
           Cells(RowIdx, 2).Clear
        End If
        
    Next

End Sub