C列/D列 の割り算

いつもお世話になっております
下記のコードを書きました。
エラーでないのですが、なにも表示されません。
添付ファイルも添付しました。
間違っているところおしえてくれませんでしょうか

遣りたいこと
C列/D列　

Dim i As Long
Dim r As Range

Set r = Range("E151")
For i = 151 To Range("C1").Row
r = Cells(i, "C") / Cells(i, "D")
Set r = r.Offset(1)
Next

Set r = Nothing

質問者からの補足コメント

• 

  できれば、提示して条件で
  やりたいです。

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/04/19 22:52

• 

  お願いします。

    補足日時：2020/04/19 22:52

• 

  恐らくもう少しなんだと思います。
  それが、一時間ぐらい経ちますが、
  答えがでません。

    補足日時：2020/04/19 22:54

No.2 ベストアンサー 回答者： nekoronda 回答日時： 2020/04/19 23:23

元のコードの問題点は以下の通りです。

Dim i As Long
Dim r As Range

Set r = Range("E151")
For i = 151 To Range("C1").Row　　 <=※１
r = Cells(i, "C") / Cells(i, "D") <=※２
Set r = r.Offset(1) <=※３

Next

Set r = Nothing

※１　Range("C1").Rowだと1になり、160行目までループしません。っというより、Forの中に入りません。
※２　Cellsは行・列共に数字で指定します。
　　　また、割り算の結果を変数に格納されたいようですが、rはRangeオブジェクトのため格納されません。
※３　おそらくＥ列の右の一つ隣のセルにということでしょうが、指定が一つ下のセルになっています。

上記を踏まえると

Dim i As Long
Dim r As Range
Dim ans as long

Set r = Range("E151")
For i = 151 To Range("C160").Row
ans = Cells(i, 3) / Cells(i, 4)
r.Offset(0, i -151).value = ans
Next

Set r = Nothing

となります。

この回答へのお礼

有難うございます。
r.Offset(0, i -151).value = ans
r.offset(i151,0).value
にしてようやく完成しました。
お忙しいところありがとうございます。

お礼日時：2020/04/20 07:59

No.3 回答者： めぐみん_ 回答日時： 2020/04/19 23:26

To Range("C1").Row

って１ですよね？
そのセルの値を使いたいのなら

To Range("C1").Value

では？

この回答へのお礼

いつもお世話になっております
For i = 151 To Range("C1").Valueで対応で
やりましたが、わたしのやり方わるいのか、
動作いたしませんでした。
結果をもとめるとき、いろんなやりかたで
おぼいたいです。
有難うございます。

お礼日時：2020/04/20 08:02

No.1 回答者： nekoronda 回答日時： 2020/04/19 22:14

何で質問のようなコーディングになったのか分からないですけど、

単純に以下のコーディングでは駄目ですか？

Dim i As Long

For i = 151 To 160
　　Cells(i, 5) = Cells(i, 3) / Cells(i, 4)
Next

この回答へのお礼

有難うございます。
変な質問してしまったようで
申し訳ございませんでした。

お礼日時：2020/04/20 07:58