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

使用VBA编程语言可以很方便地处理数组。在VBA中，用户自定义函数（UDF）是一种强大的工具，可以以不同的方式处理数组数据。本文将介绍一些常见的数组处理方法，并提供相应的案例代码。

vba
Function ArraySum(arr() As Variant) As Double
    Dim i As Long
    Dim sum As Double
    
    For i = LBound(arr) To UBound(arr)
        sum = sum + arr(i)
    Next i
    
    ArraySum = sum
End Function

vba
Function ArrayAverage(arr() As Variant) As Double
    Dim i As Long
    Dim sum As Double
    Dim count As Long
    
    For i = LBound(arr) To UBound(arr)
        sum = sum + arr(i)
        count = count + 1
    Next i
    
    ArrayAverage = sum / count
End Function

vba
Function ArrayMax(arr() As Variant) As Variant
    Dim i As Long
    Dim maxVal As Variant
    
    maxVal = arr(LBound(arr))
    
    For i = LBound(arr) To UBound(arr)
        If arr(i) > maxVal Then
            maxVal = arr(i)
        End If
    Next i
    
    ArrayMax = maxVal
End Function
Function ArrayMin(arr() As Variant) As Variant
    Dim i As Long
    Dim minVal As Variant
    
    minVal = arr(LBound(arr))
    
    For i = LBound(arr) To UBound(arr)
        If arr(i) < minVal Then
            minVal = arr(i)
        End If
    Next i
    
    ArrayMin = minVal
End Function

vba
Sub SortArray(arr() As Variant)
    Dim i As Long
    Dim j As Long
    Dim temp As Variant
    
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(j) < arr(i) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
End Sub

vba
Function ArrayFind(arr() As Variant, searchVal As Variant) As Long
    Dim i As Long
    
    For i = LBound(arr) To UBound(arr)
        If arr(i) = searchVal Then
            ArrayFind = i
            Exit Function
        End If
    Next i
    
    ArrayFind = -1
End Function