每个工作表上每个单元格的Excel VBA平均值

Sub CalculateAverage()
    Dim ws As Worksheet
    Dim cell As Range
    Dim total As Double
    Dim count As Integer
    
    For Each ws In ThisWorkbook.Worksheets
        total = 0
        count = 0
        
        For Each cell In ws.UsedRange
            total = total + cell.Value
            count = count + 1
        Next cell
        
        If count > 0 Then
            MsgBox "Average value in " & ws.Name & ": " & total / count
        Else
            MsgBox "No data found in " & ws.Name
        End If
    Next ws
End Sub