在excel VBA中创建一个函数来计算一组循环数字的平均值。

Function CalculateAverage(numbers As Range) As Double
    Dim total As Double
    Dim count As Integer
    Dim cell As Range
    
    total = 0
    count = 0
    
    For Each cell In numbers
        If IsNumeric(cell.Value) Then
            total = total + cell.Value
            count = count + 1
        End If
    Next cell
    
    If count > 0 Then
        CalculateAverage = total / count
    Else
        CalculateAverage = 0
    End If
End Function