rangeメソッドは失敗しました

質問

またまたエラーが起きてしまいました、、

D列にある数値の平均値を出すマクロを組みたいのですが
そのD列は今後増えていくので変数を使い指定したいのです

Option Explicit

Public Sub all()

Const SH_NAME As String = "VBA"
Dim i
Dim endrow As Long
Dim ws As Worksheet
Dim Result As Integer

Set ws = ThisWorkbook.Worksheets(SH_NAME)

With ws

endrow = .Cells(Rows.Count, 4).End(xlUp).Row
For i = 2 To endrow

Result = Application.WorksheetFunction.Average(.Range("D2:D&i"))
.Range("F39").Value = Result
.Range("F39").NumberFormatLocal = "0.00"

Next i

End With

End Sub

このコードだと

Result = Application.WorksheetFunction.Average(.Range("D2:D&i"))

のところでrangeメソッドは失敗しました
と言われてしまいます

どうかよろしくお願いします<m(__)m>

回答No.1

Picosoft · ベストアンサー

> Result = Application.WorksheetFunction.Average(.Range("D2:D&i"))
i = 2のときは"D2:D2", i = 3のときは"D2:D3"……というようなことがしたいのでしょうか？

それなら
　Result = Application.WorksheetFunction.Average(.Range("D2:D" & i))
と書く必要があります。

お礼

なるほど！！
こちらの拙い質問の意図をきちんと汲み取ってくれそれに対して適切な回答をありがとうございました_(_^_)_
また機会があればよろしくお願いいたします！