vba - 如何計算列的平均值，然後自動填充同一列

Question

如何計算單元格範圍的平均值（來自H6：lastrow），在I6中填充該數字並使用相同的數字自動填充所有最後一行（I6：lastrow）使用excel 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