VBAmacros在dynamic范围每列的最后一行插入平均值

我有一些列（在Excel文件中），代表一年中的几个月; 每列都有一些logging，我希望能够运行一个macros，将插入一个单元格的最后一行的平均值。 每列的第一个单元格是一个标题，所以我需要包括从第2行到列中最后一个logging的单元格。 每次使用macros时，列和行的数量都会有所不同。 我非常感谢你的帮助。 谢谢！

Answer 1

这里有一个解决scheme，可以为你提供开箱即用的function。 它从每行的平均值开始，在第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