用VBA和Excel计算可变数据大小的平均值

Sub CalculateVariableDataAverage()
    Dim rng As Range
    Dim cell As Range
    Dim sum As Double
    Dim count As Integer
    Dim average As Double
    
    ' 选择要计算平均值的数据范围
    Set rng = Selection
    
    ' 初始化变量
    sum = 0
    count = 0
    
    ' 遍历选定范围内的每个单元格
    For Each cell In rng
        ' 检查单元格是否包含数值
        If IsNumeric(cell.Value) 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