Excel 学习VBA数组，怎么通过数组传递

Question

如题所述

Answer 1

数组作为入参的例子如下：
按地址传递byref
Sub AAATest()
Dim StaticArray(1 To 3) As Long
Dim N As Long
StaticArray(1) = 1
StaticArray(2) = 2
StaticArray(3) = 3
PopulatePassedArray Arr:=StaticArray
For N = LBound(StaticArray) To UBound(StaticArray)
Debug.Print StaticArray(N)
Next N
End Sub

Sub PopulatePassedArray(ByRef Arr() As Long) 这里是数组入参
Dim N As Long
For N = LBound(Arr) To UBound(Arr)
Arr(N) = N * 10
Next N
End Sub