VBA計算一個工作表的平均值

以下是使用 VBA 在一个工作表中计算平均值的示例代码：

Sub CalculateAverage()
    Dim sum As Double
    Dim count As Integer
    Dim average As Double
    
    '初始化变量
    sum = 0
    count = 0
    
    '遍历工作表中的所有单元格，计算总和和计数
    For Each cell In ActiveSheet.UsedRange
        If IsNumeric(cell) Then
            sum = sum + cell.Value
            count = count + 1
        End If
    Next cell
    
    '计算平均值
    If count > 0 Then
        average = sum / count
        MsgBox "平均值为：" & average
    Else
        MsgBox "工作表中没有数字。"
    End If
End Sub

代码中，我们首先定义了三个变量：`sum`保存工作表中所有数字的总和；`count`保存数字的个数；`average`保存平均值。

然后，我们使用`For-Each`循环遍历工作表中的所有单元格，如果单元格的值是数字，就将其加入总和并增加计数器。

最后，我们根据总和和计数器计算平均值，并使用`MsgBox`函数显示结果。如果工作表中没有数字，则会显示错误消息。