VBA計算當前工作表中數字的平均值

可以使用以下VBA代码来计算当前工作表中数字的平均值：

Sub CalculateAvg()
    Dim sum As Double
    Dim count As Integer
    Dim cellValue As Variant
    
    sum = 0
    count = 0
    
    For Each cellValue In ActiveSheet.UsedRange
        If IsNumeric(cellValue) Then
            sum = sum + cellValue
            count = count + 1
        End If
    Next cellValue
    
    If count > 0 Then
        MsgBox "Average: " & sum / count
    Else
        MsgBox "No numeric values found."
    End If
End Sub

这个代码将遍历当前工作表中的每个单元格，如果单元格中包含数字，则将其添加到总和中，并计算数字的数量。最后，它将显示平均值或“没有找到数字值”的消息框，具体取决于是否找到数字值。