エクセルVBAの今日まで

＜入門の2単元目_備忘録＞
Sub 成績を求める（）　'マクロの題名（必須）
    Dim i As Long　'iをデータ型の変数宣言（必須）
    For i = 4 To Cells(Rows.Count,"A").End(xlUp).Row　'1000行でもループする
        If Cells(i, "B") >= 80 Then　'Thenは（必須）
            Cells(i, "C") = "優"　'列は " "でくくる
        ElseIf Cells(i, "B") >= 70 Then
            Cells(i, "C") = "可"
        Else
            Cells(i, "C") = "不可"
        End If'IFと対
    Next i'Forと対
End Sub