Excel VBA 宏 - 如何获取列的中值和平均值并打印结果

Question

我正在尝试查找列名“总周期时间”，然后在列的最后我想要平均值，然后在整个列的中值下方的一行。

下面是一个开始，但它似乎只从一个表中提取，因此是 Table14 参考。我不明白如何说明只看这个活动表。

Sub Macro10()
'
' Macro10 Macro
'
Range("U" & Cells.Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=AVERAGE(Table14[[#Headers],[#Data],[Total Cycle Time]])"
    ActiveCell.Offset(1, 0).Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=MEDIAN(Table14[[#Headers],[#Data],[Total Cycle Time]])"

'
End Sub

Answer 1

假设在工作表的某处，我们有一个标题单元格，其下方的数据如下：

运行这个简短的宏将：

1.定位数据的标题和关联列
2. 将所需的统计数据放在值下方的单元格中

Sub SaveStats()
    Dim header As Range, DataRange As Range

    Set header = Cells.Find(What:="total cycle time", after:=Cells(1, 1))
    Set DataRange = Range(header, Cells(Rows.Count, header.Column).End(xlUp))

    With Application.WorksheetFunction
        Cells(DataRange.Rows.Count + DataRange.Row, DataRange.Column).Value = .Average(DataRange)
        Cells(DataRange.Rows.Count + DataRange.Row + 1, DataRange.Column).Value = .Median(DataRange)
    End With
End Sub

注意：

宏没有错误处理。如果header下面没有数据就会死掉。