如何快速将ListObject列中非空值存入VBA数组？

嘿，这个需求我太懂了！要从ListObject的列里高效提取非空值到数组，完全不用写繁琐的循环或者先统计数量再重构数组，给你两个简洁又高性能的方案：

如果你用的是支持动态数组的Excel版本（365/2021及以后），直接用Excel内置的Filter函数一步到位，代码超清爽：

Dim mylistObject As ListObject
Set mylistObject = ThisWorkbook.Sheets("training").ListObjects(1)
Dim theArray() As Variant

' 直接过滤出非空值，返回一维数组
theArray = WorksheetFunction.Filter( _
    mylistObject.ListColumns(1).DataBodyRange.Value, _
    mylistObject.ListColumns(1).DataBodyRange.Value <> "", _
    , False _
)

这个方法的核心是利用Excel底层优化的动态数组函数，比VBA循环快得多，而且自动帮你处理数组维度，不用手动调整，完全符合你要的“高效简洁”要求。

如果你的Excel版本比较老，不支持动态数组，那可以用SpecialCells直接定位所有非空单元格，再转成数组：

Dim mylistObject As ListObject
Set mylistObject = ThisWorkbook.Sheets("training").ListObjects(1)
Dim nonEmptyRange As Range
Dim theArray() As Variant

' 防止列全空时SpecialCells报错
On Error Resume Next
' 同时覆盖常量和公式生成的非空值
Set nonEmptyRange = mylistObject.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeConstants + xlCellTypeFormulas)
On Error GoTo 0

If Not nonEmptyRange Is Nothing Then
    ' 转置成一维数组（如果需要二维数组可以去掉Transpose）
    theArray = Application.Transpose(nonEmptyRange.Value)
Else
    ' 处理全空场景，初始化空数组
    ReDim theArray(0 To -1)
End If

这里的SpecialCells能一次性抓取所有非空单元格，不管是手动输入的常量还是公式计算出来的值，效率比循环高很多，而且代码逻辑也很清晰。

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