VBA循环赋值动态数组并修改时触发Subscript out of range错误

错误原因 #

你遇到的"Subscript out of range"错误，核心问题是VBA中从单元格区域生成的数组是二维数组——哪怕你取的是单行数据（比如B3往右的单元格），它的结构也是(1 到 行数, 1 到 列数)的二维格式。你在循环里用FiguresArr(i)这种一维数组的访问方式，自然会触发下标越界。

对比你熟悉的Python：Python读取Excel单行数据会得到一维列表，但VBA的Range转数组规则不同，默认强制二维结构，行优先。

另外，你代码里的ReDim FiguresArr(FigureArrayLength)完全没用——当你把Range赋值给数组时，VBA会自动重新定义数组的维度，覆盖之前的ReDim设置，这行代码可以直接删除。

修正后的代码 #

Sub CreateWaterfall()
    Dim i As Integer
    Dim FigureArrayLength As Integer
    FigureArrayLength = Range("B3", Range("B3").End(xlToRight)).Count
    
    ' 直接将区域赋值给数组，自动生成二维数组(1,1)到(1, FigureArrayLength)
    Dim FiguresArr() As Variant
    FiguresArr = Range("B3", Range("B3").End(xlToRight))
    
    ' 构建存储绝对值的数组，这里用一维数组即可
    Dim AuxiliaryFiguresArr() As Variant
    ReDim AuxiliaryFiguresArr(1 To FigureArrayLength)
    
    For i = 1 To FigureArrayLength
        ' 访问二维数组的第1行第i列元素
        AuxiliaryFiguresArr(i) = Abs(FiguresArr(1, i))
    Next i
End Sub

额外提示 #

• VBA数组默认是1-based下标（从1开始计数），和Python的0-based不同，这也是新手容易踩坑的点。
• 如果后续需要把二维数组转成一维，可以用Application.Transpose，但单行数据转置后会变成单列的二维数组，所以直接用(1, i)访问反而更简单。

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