找到几个单元格的平均值，然后自动填充

Question

我正在寻找单元格 A2：D2 的平均值并将它们放入 E2 中，然后将该方程自动填充到其余 500 个左右的 E 单元格中。这是我到目前为止所拥有的：

Sub average ()
Dim nRows As Integer
Dim nCols As Integer
nCols = Range(Range("A2"), Range("A2").End(xlToRight)).Columns.Count
nRows = Range(Range("A2"), Range("A2").End(xlDown)).Rows.Count
Range("E2").FormulaR1C1 = "=AVERAGE(R[]C[ " & nCols & "]:R[]C[])"
End Sub

Answer 1

下面的宏会将每行的 A 到 D 的平均值放在 E 列中，并将公式向下拉到工作表的最后一行。

Sub Average()
Dim lRow As Long
Dim ACell As String
Dim Col As String
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-4]:RC[-1])"
    lRow = WorksheetFunction.Max(Range("A65536").End(xlUp).Row, 
    Range("B65536").End(xlUp).Row, Range("C65536").End(xlUp).Row)
    ACell = Range("E2").Address(RowAbsolute:=False, ColumnAbsolute:=False)
    Col = Left(ACell, 1)
    Range(ACell & ":" & ACell).AutoFill Range(ACell & ":" & Col & lRow)

结束子