VBA中Example1与Example2返回的数组是否完全一致？

这两个函数返回的结果不完全一致，核心差异在于数组的维度特性——这就是大型应用中传参失效甚至返回#VALUE!错误的根本原因。

示例1的数组特性 #

Array()函数生成的是一维0基索引数组，第一个元素索引为0，第二个为1。虽然输出到工作表时看起来和二维数组结果一致，但它的底层是单维度结构。

代码示例：

Function Example1()
Dim vtSecurities As Variant
vtSecurities = Array("AAPL US Equity", "GOOG US Equity")
Example1 = vtSecurities
End Function

示例2的数组特性 #

Range.Value返回的是二维1基索引数组，哪怕你传入的是单行或单列单元格区域。比如传入A1:A2区域时，返回的数组结构是(1 to 2, 1 to 1)，必须用arr(row, col)的形式访问元素。

工作表中显示的结果和一维数组无差别，但当其他函数预期接收一维数组时，就会因维度不匹配直接报错。

代码示例：

Function Example2(ticker As Excel.Range)
Dim vtSecurities As Variant
vtSecurities = ticker.Value
Example2 = vtSecurities
End Function

快速验证差异的方法 #

在VBA中用LBound和UBound函数检查数组维度：

• 对Example1的返回值：LBound(arr)=0，UBound(arr)=1，调用UBound(arr,2)会直接报错（因为只有一维）。
• 对Example2的返回值：LBound(arr,1)=1，UBound(arr,1)=2，LBound(arr,2)=1，UBound(arr,2)=1。

修复Example2的传参问题 #

如果需要让Example2返回和Example1一致的一维数组，可以把二维数组转成一维：

Function Example2_Fixed(ticker As Excel.Range)
    Dim vtSecurities As Variant
    Dim arr As Variant
    Dim i As Integer
    vtSecurities = ticker.Value
    ' 转成1基一维数组，适配Excel常用索引习惯
    ReDim arr(1 To UBound(vtSecurities, 1))
    For i = 1 To UBound(vtSecurities, 1)
        arr(i) = vtSecurities(i, 1)
    Next i
    Example2_Fixed = arr
End Function

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