Excel vba计算列的平均值

Question

我想计算一列的平均值并将其放在下面的值。
我写在VBA这段代码但返回值始终为0

Sub Macro4() 
' 
' Macro4 Macro 
' 
' Keyboard Shortcut: Ctrl+Shift+C 
Dim sum As Integer 
Dim count As Integer 
count = 0 
sum = 0 
Do While ActiveCell.Value <> "" 
    ActiveCell.Offset(1, 0).Activate 
    sum = sum + ActiveCell.Value 
    count = count + 1 
    Loop 
ActiveCell.Value = sum/count 
ActiveCell.Offset(0, 5).Select 
Selection.End(xlUp).Select 
Selection.End(xlUp).Select 
End Sub 

Answer 1

由于@Tahbaza指出，除非你ActiveCell是在该行的顶部，它只会从列的行数分别为活动单元格是。

您的代码还有一个错误，因为它不会在循环的第一次迭代中计数活动单元格，所以此值将从平均值中漏掉。

我已经解决了以下代码集中的两个问题，但是如果不是以下建议，还会有其他改进（即根本不使用Select）。

Sub Macro4() 
    ' 
    ' Macro4 Macro 
    ' 
    ' Keyboard Shortcut: Ctrl+Shift+C 
    Dim sum As Integer 
    Dim count As Integer 
    count = 0 
    sum = 0 
    Selection.End(xlUp).Select    '<---Go to the top of the range 
    Do While ActiveCell.Value <> "" 
     sum = sum + ActiveCell.Value 
     count = count + 1 
     ActiveCell.Offset(1, 0).Activate '<---Move down *after* you done the sumcount 
    Loop 
    ActiveCell.Value = sum/count 
    ActiveCell.Offset(0, 5).Select 
    Selection.End(xlUp).Select 
    Selection.End(xlUp).Select 
End Sub 

您可以通过以下一行代码实现您的预​​期结果。这假设您希望平均的单元格是连续的，并且没有空单元格。它还假定您的值从工作表的第一行开始，并且必须至少有两行值。

Sub ColumnAverage() 
    Cells(1, ActiveCell.Column).End(xlDown).Offset(1, 0).Value = Application.WorksheetFunction.Average(ActiveSheet.Columns(ActiveCell.Column)) 
End Sub 

编辑：如果你想不需要一个静态值，但可以在列的最后一个单元格使用工作表函数公式的事实。它有点野兽，但如果你打破它应该是有道理的：

Sub ColumnAverageFormula() 
    Cells(1, ActiveCell.Column).End(xlDown).Offset(1, 0).Formula = "=Average(" & Cells(1, ActiveCell.Column).Address(0, 0) & ":" & Cells(1, ActiveCell.Column).End(xlDown).Address(0, 0) & ")" 
End Sub