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

你可以使用以下VBA代码来计算一个工作表的平均值：

Function AverageWorksheet() As Double
    Dim ws As Worksheet
    Dim rng As Range
    Dim total As Double
    Dim count As Long
    
    Set ws = ActiveSheet '或者使用 Worksheets("工作表名称")
    Set rng = ws.UsedRange '获取工作表中使用的范围
    
    For Each cell In rng
        If IsNumeric(cell.Value) Then '仅计算数值型单元格的平均值
            total = total + cell.Value
            count = count + 1
        End If
    Next cell
    
    If count > 0 Then
        AverageWorksheet = total / count
    Else
        AverageWorksheet = 0
    End If
End Function

你可以在VBA编辑器中插入一个新的模块，然后将此代码复制粘贴到模块中。之后，你可以在工作表中使用`=AverageWorksheet()`公式来调用此VBA函数并计算工作表中数值型单元格的平均值。