VBA中固定大小数组作为ByRef Variant参数传递后元素被清空的原因

问题重现 #

你遇到的核心问题是：固定大小静态数组传递给ByRef Variant参数后，尝试给该参数赋值新数组时，原数组元素被重置为类型默认值（Long类型为0），而动态数组则能正常接收新值。

测试代码：

Sub TestFixedSizeArrayAsByRefVariantArgument()
    Dim Arr(0) As Long ' 固定大小静态数组
    Arr(0) = 99
    DoSomethingWithArray Arr
    Debug.Print Arr(0) ' 输出0，而非预期的-1
End Sub

Sub DoSomethingWithArray(ByRef ArrayArg As Variant)
    Dim localArr(0) As Long
    localArr(0) = -1
    If IsArray(ArrayArg) Then ArrayArg = localArr
End Sub

核心原因 #

VBA中的数组分为两类，它们在Variant中的处理逻辑完全不同：

• 静态固定大小数组：比如Dim Arr(0) As Long，这类数组的内存布局和大小是编译时确定的，属于"typed array"，存储在栈上。当传递给ByRef Variant参数时，Variant只是包装了一个指向该静态数组的指针，无法修改其内存分配。
• 动态数组：比如Dim Arr As Variant: ReDim Arr(0) As Long，这类数组是存储在堆上的对象，Variant直接持有该数组的对象引用，赋值时可以直接替换引用指向新的数组。

当执行ArrayArg = localArr时：

• 对于动态数组：Variant直接替换引用，指向新的localArr，原数组变量自然接收新值。
• 对于静态数组：VBA尝试将localArr的元素复制到原静态数组的内存空间，但由于静态数组和动态数组的内部描述符结构不兼容，复制操作失败，最终触发数组元素重置为类型默认值（Long的默认值是0）。

解决方法 #

有两种方式可以让静态数组正常接收赋值结果：

1. 先转换为动态数组再传递
   将静态数组赋值给临时Variant变量，转换为动态数组后再传递，处理完成后再复制回原静态数组：

Sub TestFixedSizeArrayAsByRefVariantArgument()
    Dim Arr(0) As Long
    Arr(0) = 99
    Dim tempVar As Variant
    tempVar = Arr ' 转换为动态数组包装的Variant
    DoSomethingWithArray tempVar
    Arr = tempVar ' 将处理后的值复制回静态数组
    Debug.Print Arr(0) ' 输出-1
End Sub

2. 指定参数为具体类型的数组
   将DoSomethingWithArray的参数类型从Variant改为具体的数组类型（比如Long()），此时同类型数组的赋值会直接进行元素级复制：

Sub DoSomethingWithArray(ByRef ArrayArg As Long())
    Dim localArr(0) As Long
    localArr(0) = -1
    If IsArray(ArrayArg) Then ArrayArg = localArr
End Sub

此时调用原测试代码，Arr(0)会输出预期的-1。

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