VBA传值到子程序数组的实现方法与语法限制

常规可运行的基础实现逻辑 #

调用子程序时通过实参传入目标值，子程序用对应普通形参接收传值后，逐行手动为内部声明数组的指定下标完成赋值，是语法层面完全稳定可运行的实现方式，对应可运行代码如下：

Sub Pass_Values()
    Call receive_values_into_array_elements(1, 2)
End Sub

Sub receive_values_into_array_elements(A3, A5)
    Dim A(6), i As Integer
    A(0) = 12
    A(1) = 123
    A(2) = 234
    A(3) = A3
    A(4) = 345
    A(5) = A5
    For i = LBound(A) To UBound(A)
       Debug.Print A(i)
    Next
End Sub

常见的无效简化尝试 #

当需要传递的参数数量增加时，开发者通常会希望简化赋值流程，尝试在子程序形参声明位置直接标注需要接收传值的数组下标（例如直接将形参定义为A(3)、A(5)），省掉A3、A5这类中间辅助变量承接传值、二次赋值的步骤，让调用时传入的数值直接映射到对应下标的数组元素。
经VBA语法规则验证，这类直接将形参与数组下标绑定的写法不被语法支持，实际运行时传入的数值无法正常进入目标数组位置。

可行的简化替代方案 #

社区开发者freeflow提出了无需依赖语法扩展的简化实现思路：直接结合Array函数按数组下标顺序构造完整数组，把固定数组值、传入的形参值按对应下标位置依次填入，直接完成数组初始化，无需逐行手动赋值。对应示例代码为：

myArray = Array(12, 123, 234, A3, 235, A5)

该方案可有效降低多参数场景下的数组赋值工作量。

内容的提问来源于stack exchange，提问作者musbach