VBA：查找具有动态范围的列的平均值

Question

我的数据范围为P14：P28。我写了一个宏，每次使用宏时在P14附加一个新数据点，这会将列的范围增加到P14：P29，并且还计算单元格P31中新范围（P14：P29）的平均值。问题是我需要公式是动态的，所以当另一个数据点附加到表格时，最新范围的平均值（P14：P30）在单元格P32中计算。当再次使用宏时，添加另一个数据点，在单元格P33中的P14：P31范围内计算平均值，依此类推。

提前感谢您的帮助，

Answer 1

以下代码对我有用：

Sub AveragePercentChangeAllSheets()
'Finds the average of a column P with a dynamic range for all the worksheets
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Select

iRow = 14
Cell_val = Cells(iRow, 16)
While Cell_val <> ""
iRow = iRow + 1
Cell_val = Cells(iRow, 16)
Wend
Cells(iRow + 1, 16) = "=AVERAGE(P14:P" & iRow - 1 & ")"

Next i
End Sub