EXCEL VBA - Function 返回數組

Question

我想在 VBA 中構建 function 構建一個數組並將其返回到另一個子中的數組，這樣我就可以在多個地方使用這個 function。 例如：

Sub getArrayData ()
 Dim myItemsArr() As String ' dynamic array
 myItemsArr = functionToFillArray
End sub

讓我們假設這是 function

Function functionToFillArray(arrayIWantToFill as Variant) 
 arrayToFill = ("A","B","C")
 arrayIWantToFill  = ???
 functionToFillArray = ?? ' what should i do here to return the array i want to fill
End function

在其他語言中，Java 對我來說更清楚如何做到這一點，但在 VBA 中，我只是不明白它是如何工作的。 我嘗試在網上查找一些信息，但沒有成功

Answer 1

像這樣：

Function getArrayData() As Variant

    Dim myItemsArr As Variant

    ' Fill array.
    functionToFillArray myItemsArr

    getArrayData = myItemsArr

End Function


Sub functionToFillArray(arrayIWantToFill As Variant) 

    arrayIWantToFill = Array("A","B","C")
 
End Sub