エクセルのVBA、ループ処理について

質問

if文とループ処理をどう組み合わせればいいのかわかりません
以下のコードで、iの数をを増やしていく処理を行いたいのですが、エラーがでてしまいうまくいきません
どのように書けばいいのでしょうか
教えてください

For i = 2 To 11
If Cells("4,i") > 80 Then
Cells("5,i").Value = "A"
ElseIf Cells("4,i") > 70 Then
Cells("5,i").Value = "B"
ElseIf Cells("4,i") > 60 Then
Cells("5,i").Value = "C"
Else
Cells("4,i").Value = "D"
End If
Next

回答No.1

noname#203218 · ベストアンサー

cellsにダブルクォーテーション不要です。

誤Cells("4,i")
正Cells(4,i)

回答No.3

K Kazz（@JazzCorp）

("4,i")
この形式はCells君には通じない、
仕方ないので、(4,i).で折り合うしかない、、、

回答No.2

KURUMITO

次のようにセル番号では"　"を削除します。
For i = 2 To 11
If Cells(4,i) > 80 Then
Cells(5,i).Value = "A"
ElseIf Cells(4,i) > 70 Then
Cells(5,i).Value = "B"
ElseIf Cells(4,i) > 60 Then
Cells(5,i).Value = "C"
Else
Cells(4,i).Value = "D"
End If
Next