我有许多代表一年中月份的列(在 Excel 文件中);每列都有许多记录,我希望能够运行一个宏,该宏将在每列的最后一行插入一个带有平均值的单元格。每列的第一个单元格是一个标题,所以我需要包括从第 2 行到列中最后一条记录的单元格。每次我使用宏时,列数和行数都会有所不同。非常感谢您的帮助。谢谢!
问问题
4183 次
1 回答
2
这是一个开箱即用的解决方案。它取每列的平均值,从第 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
于 2013-06-13T16:28:52.720 回答