excel自定义平均值宏

### 如何用VBA编写Excel自定义平均值宏

为了实现一个用于计算特定范围内的单元格平均值的VBA宏，可以按照如下所示的方法来构建此功能。这段代码会遍历指定区域中的每一个数值型数据项并累积求和，在完成迭代之后除以有效数值的数量得出最终的结果。

Sub CustomAverage()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 定义工作表名称
    
    Dim rng As Range, cell As Range
    Dim sumValue As Double
    Dim countValue As Integer
    Dim averageResult As Double
    
    ' 设置要计算平均数的数据范围
    Set rng = ws.Range("A1:A10")
    
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            sumValue = sumValue + cell.Value
            countValue = countValue + 1
        End If
    Next cell
    
    If countValue > 0 Then
        averageResult = sumValue / countValue
        
        MsgBox "The custom average is: " & averageResult
    Else
        MsgBox "No numeric data found."
    End If
End Sub

上述脚本通过`For Each...Next`循环结构逐个访问选定区域内(`rng`)的所有单元格，并利用条件判断语句检查当前处理的是不是数字类型的值；如果是，则将其加入到总和变量之中同时增加计数器以便稍后用来做除法运算得到均值[^1]。

当整个过程结束后，如果确实存在有效的数字输入，那么就显示一条消息框告知用户所选范围内所有数字项目的算术平均数是多少；反之则提示未发现任何可用作统计的基础资料。