粘贴人工均值VBA

Sub PasteMeanValue()
    Dim rng As Range
    Dim sum As Double
    Dim count As Integer
    Dim mean 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
        mean = sum / count
    Else
        mean = 0
    End If
    
    ' 在当前单元格中显示均值
    ActiveCell.Value = mean
End Sub