Excel VBA 質問スレ Part51

[709 デフォルトの名無しさん (ﾜｯﾁｮｲ 03d2-oA/d) 2017/12/24(日) 15:56:53.27 ID:JTJf6bSC0]

それぞれの行のB列からC列を引きたいのですが、下のコードだと
すべてB2-C2となってしまいます。
どうすればよろしいかご教示ください。

Dim i As Long
Dim Lrow As Long
Lrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To Lrow
Cells(i, "D").Formula = "=B2-C2"
Next