如何高效将多列可见数据批量存入二维数组？

你的当前实现需要分别读取三列可见数据再合并，多次调用SpecialCells(xlCellTypeVisible)会增加工作表交互次数，影响效率。可以通过一次性合并目标列并提取可见区域的方式直接生成二维数组，减少冗余操作：

Public Function GetPreviousSubmitted2() As Variant()
    Dim tblPastDue As ListObject
    Dim targetCols As Range
    Dim visibleData As Range
    Dim arrReturn() As Variant
    Dim rCount As Long
    
    Set tblPastDue = ThisWorkbook.Sheets("PAST DUE LIST").ListObjects("tblPastDue")
    
    ' 清除现有筛选
    If tblPastDue.AutoFilter.FilterMode Then
        tblPastDue.AutoFilter.ShowAllData
    End If
    
    ' 应用筛选条件
    tblPastDue.Range.AutoFilter Field:=41, Criteria1:="0"
    
    On Error Resume Next ' 处理筛选后无可见行的情况
    ' 合并需要提取的三列（列17、19、26）
    Set targetCols = Union(tblPastDue.ListColumns(17).DataBodyRange, _
                          tblPastDue.ListColumns(19).DataBodyRange, _
                          tblPastDue.ListColumns(26).DataBodyRange)
    ' 获取合并列的可见区域
    Set visibleData = targetCols.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not visibleData Is Nothing Then
        ' 两次转置将按列分布的Union区域数据转换为行优先的二维数组
        arrReturn = Application.Transpose(Application.Transpose(visibleData.Value))
    Else
        ' 无数据时返回空数组
        ReDim arrReturn(0, 2)
        arrReturn = Empty
    End If
    
    ' 清除筛选
    If tblPastDue.AutoFilter.FilterMode Then
        tblPastDue.AutoFilter.ShowAllData
    End If
    
    GetPreviousSubmitted2 = arrReturn
End Function

优化关键点： #

• 减少工作表交互：仅调用一次SpecialCells，避免三次读取列数据的冗余操作
• 直接生成目标数组：通过Union合并三列，提取可见区域后直接转成二维数组，省去循环合并步骤
• 异常处理：加入错误捕获，处理筛选后无可见行的边界情况
• 数组转置技巧：两次Application.Transpose是为了将Union返回的按列分布的数据，转换成每行包含三列值的二维数组（匹配你需要的arrReturn(i,0)/(i,1)/(i,2)结构）

另外，你原代码中声明的tblPrevSub变量未使用，可直接删除以精简代码。

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