如何将表格筛选后可见数据存入多维数组？VBA下标越界报错排查

错误出在循环中引用单元格的方式：rCell(i, 2)这类写法完全错误。

• rCell是循环遍历的单个单元格对象（来自rngVisible，即筛选后可见的第一列单元格），它不能用二维数组的索引格式(i, 列数)来引用。这种写法会被VBA解析为「从当前rCell单元格偏移i行、对应列数的位置」。
• 第一次循环时i=1，rCell(1,2)相当于rCell.Offset(0,1)（单个单元格的索引(1,2)是相对自身的偏移），刚好能取到同一行的第二列，所以正常运行；但第二次循环i=2，rCell(2,2)会尝试从当前rCell向下偏移2行，大概率超出表格范围，直接触发「下标越界」错误。

把循环中引用单元格的代码改成基于当前rCell的行号来获取对应列的值，两种常用写法如下：

方式一：利用EntireRow获取整行后取对应列 #

For Each rCell In rngVisible
    i = i + 1
    ReDim Preserve soArray(1 To i, 1 To 4)
    ' 基于当前单元格所在行，直接取对应列的值
    soArray(i, 1) = rCell.EntireRow.Cells(2).Value
    soArray(i, 2) = rCell.EntireRow.Cells(3).Value
    soArray(i, 3) = rCell.EntireRow.Cells(4).Value
    soArray(i, 4) = rCell.EntireRow.Cells(13).Value
    Debug.Print soArray(i, 1), soArray(i, 2), soArray(i, 3), soArray(i, 4)
Next rCell

方式二：通过工作表Cells对象，用行号+列号定位 #

For Each rCell In rngVisible
    i = i + 1
    ReDim Preserve soArray(1 To i, 1 To 4)
    ' 用rCell.Row获取当前行号，结合列号定位单元格
    soArray(i, 1) = wks.Cells(rCell.Row, 2).Value
    soArray(i, 2) = wks.Cells(rCell.Row, 3).Value
    soArray(i, 3) = wks.Cells(rCell.Row, 4).Value
    soArray(i, 4) = wks.Cells(rCell.Row, 13).Value
    Debug.Print soArray(i, 1), soArray(i, 2), soArray(i, 3), soArray(i, 4)
Next rCell

• 每次循环执行ReDim Preserve会拖慢运行效率，可提前获取可见单元格数量，一次性定义数组大小：

  ' 在循环前添加
  Dim visibleCount As Long
  visibleCount = rngVisible.Cells.Count
  ReDim soArray(1 To visibleCount, 1 To 4)
  

• 建议给单元格引用加上.Value，明确获取单元格的值，避免潜在的对象引用问题。

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