<入門の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