VBA函数返回数组

在VBA中，我们可以使用函数返回数组，方便我们进行数组相关的操作。本文将介绍如何在VBA中使用函数返回数组。

语法

Function FunctionName() As DataType()

函数名称是由我们自己定义的，DataType 可以是任意类型，如 Integer、String、Double 等等。

示例

下面是一个简单的返回整数类型数组的例子：

Function GetIntArray() As Integer()
    Dim arr(4) As Integer
    arr(0) = 1
    arr(1) = 2
    arr(2) = 3
    arr(3) = 4
    arr(4) = 5
    GetIntArray = arr
End Function

上面的代码定义了一个名为 GetIntArray 的函数，它会初始化一个长度为5的整型数组，并将它返回。我们可以在主程序中这样使用：

Sub Main()
    Dim arrayInt() As Integer
    arrayInt = GetIntArray()
    For i = 0 To UBound(arrayInt)
        Debug.Print arrayInt(i)
    Next i
End Sub

这样打印输出的结果应该是：

1
2
3
4
5

注意

• 当我们使用一个函数返回数组时，需要准确指定数组的大小，以便我们执行后续的数组操作。
• 我们还可以在函数中使用 ReDim 语句动态调整数组的大小。

结论

函数返回数组是一个非常有用的工具，在处理大型数组时特别有效。我们可以根据需求灵活地定义函数来返回所需类型的数组。