vba - 列の平均を計算し、同じ列を自動入力する方法

Question

セル範囲（H6：ラストロー）の平均を計算し、その数値をI6に入力して、同じ数のセルをすべて自動入力する方法最後の行（I6：ラストロー）はVBAを使用していますか？これらのステップを自動化することが大好きです。

私がこれまで持っている（ただし、動作しません。）どのような相続人

Sub AverageRates() 

With ActiveSheet 
    'Determine last row 
    Dim lastRow As Long 
    lastRow = .Cells(.Rows.Count, "F").End(xlUp).Row 

    'Average rate calculation 
    Range("I6:I" & lastRow).Value = Application.WorksheetFunction.Average("H6:H" & lastRow) 


End With 

End Sub 

どうもありがとう！

Answer 1

'I6'は、以下の式を有する：=AVERAGE(H6:<whatever your lastrow is>)。これで各行のセルへの参照を追加できます（つまり、=I6）

Answer 2

コードは次のようになります。

Sub AverageRates() 

With ActiveSheet 
    'Determine last row 
    Dim lastRow As Long 
    Dim myAvg As Double 
    lastRow = .Cells(.Rows.Count, "F").End(xlUp).Row 

    'Average rate calculation 
    myAvg = Application.WorksheetFunction.Average(Range("H6:H" & lastRow)) 
    Range("I6:I" & lastRow).Value = myAvg 


End With 

End Sub