find几个单元格的平均值,然后自动填充
我期望find单元格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
下面的macros将把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)
结束小组