使用整个工作簿的If then查看vba中的平均值

Sub CalculateAverage()
    Dim ws As Worksheet
    Dim rng As Range
    Dim total As Double
    Dim count As Long
    Dim average As Double
    
    total = 0
    count = 0
    
    For Each ws In ThisWorkbook.Worksheets
        '设置要计算平均值的范围，这里假设是A1到A10
        Set rng = ws.Range("A1:A10")
        
        '遍历范围内的每个单元格
        For Each cell In rng
            '检查单元格的值是否满足条件
            If cell.Value <> "" Then
                '累加值
                total = total + cell.Value
                '增加计数
                count = count + 1
            End If
        Next cell
    Next ws
    
    '计算平均值
    If count > 0 Then
        average = total / count
        MsgBox "平均值为：" & average
    Else
        MsgBox "没有满足条件的值"
    End If
End Sub