如何在VBA中获取二维数组results(0)对应的UBound值？

问题分析 #

你的results是二维数组（通过results(行索引, 列索引)访问元素），默认UBound(results)返回第一维（行）的上界3。要获取results(0)对应的第二维（列）上界10，需明确指定维度参数。

你之前报错的原因：

• 拼写错误：把results(0)写成results0，VBA无法识别未定义的变量
• 即使写对results(0)，二维数组单独取一行会返回变体类型，而非直接数组，无法直接用UBound获取上界

解决方案 #

情况1：标准二维矩形数组

如果results是固定维度的二维数组（比如Dim results(3, 10) As Variant），直接指定UBound的第二个参数获取第二维上界：

' 获取第二维（列）的上界，即你要的10
Dim colUpper As Long
colUpper = UBound(results, 2)

' 遍历results(0)这一行的所有元素
Dim x As Long
For x = LBound(results, 2) To UBound(results, 2)
    Debug.Print results(0, x)
Next x

情况2：锯齿数组（一维数组嵌套一维数组）

如果results是锯齿数组（results为一维数组，每个元素是独立的一维数组），直接取results(0)的上界即可：

' 获取results(0)子数组的上界
Dim colUpper As Long
colUpper = UBound(results(0))

' 遍历results(0)的元素
Dim x As Long
For x = LBound(results(0)) To UBound(results(0))
    Debug.Print results(0)(x)
Next x

关键说明 #

• VBA中UBound函数的第二个参数用于指定数组维度，默认值为1（第一维）
• 二维矩形数组的每一行列数一致，UBound(results, 2)对所有行通用
• 锯齿数组的子数组长度可不同，需单独获取每个子数组的UBound

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