查找幾個單元格的平均值然後自動填充

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) 

末次