VBA宏，用于在具有动态范围的每列的最后一行中插入平均值

Question

我有许多列（在Excel文件中）表示一年中的月份；每一列都有许多记录，我希望能够运行一个宏，在每一列的最后一行插入一个平均值为的单元格。每列的第一个单元格是标题，因此我需要包括从第2行到列中最后一条记录的单元格。每次使用宏时，列和行的数量都会有所不同。我将非常感谢你的帮助。谢谢

Answer 1

这里有一个现成的解决方案。它从第2行开始计算每列的平均值。

Sub AverageColumn()
    Dim count As Integer
    Dim sum As Integer
    Dim lastCol As Integer
    lastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.count).Column
    For c = 1 To lastCol
        sum = 0
        count = 0
        ActiveSheet.Cells(2, c).Select
        Do While ActiveCell.Value <> ""
            sum = sum + ActiveCell.Value
            count = count + 1
            ActiveCell.Offset(1, 0).Activate
        Loop
        ActiveCell.Value = sum / count
    Next c
End Sub