VBA - UDF 以不同方式处理数组

使用VBA（Visual Basic for Applications）编程语言，我们可以创建自定义函数（User-Defined Function，简称UDF），以不同的方式处理数组数据。在本文中，我们将探讨如何使用VBA编写UDF，并提供一些案例代码来帮助读者理解。

vba
Function SumArray(arr() As Variant) As Double
    Dim total As Double
    total = 0
    
    For Each num In arr
        total = total + num
    Next num
    
    SumArray = total
End Function

vba
Function MaxValue(arr() As Variant) As Double
    Dim maxVal As Double
    maxVal = arr(0)
    
    For Each num In arr
        If num > maxVal Then
            maxVal = num
        End If
    Next num
    
    MaxValue = maxVal
End Function

vba
Function AverageValue(arr() As Variant) As Double
    Dim total As Double
    Dim count As Integer
    total = 0
    count = 0
    
    For Each num In arr
        total = total + num
        count = count + 1
    Next num
    
    AverageValue = total / count
End Function