Excel VBA如何获取筛选后的区域？筛选后返回未过滤列问题排查

你出错的核心是直接读取了整个列表列的所有值，而不是筛选后的可见区域。lo.range.Columns(resultCol).Value会无视筛选状态，返回该列的全部原始数据，不管行有没有被隐藏。

要获取筛选后的可见数据，需要针对列表的DataBodyRange（即不含表头的数据区域），使用SpecialCells(xlCellTypeVisible)提取可见单元格：

修改关键代码行：

' 替换原来的取值行
Dim visibleCells As Range
On Error Resume Next ' 处理无匹配结果的情况
Set visibleCells = lo.DataBodyRange.Columns(resultCol).SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Not visibleCells Is Nothing Then
    getFilteredColumn = Application.Transpose(visibleCells.Value)
Else
    getFilteredColumn = Empty ' 无匹配结果时返回空
End If

Function getFilteredColumn(ByVal sSheetName As String, ByVal sTableName As String, ByVal sSearchColumn As String, ByVal sSearchText As String, ByVal sResultColumn As String) As Variant
    Dim lo As ListObject
    Dim searchCol As Integer, resultCol As Integer
    Dim visibleCells As Range
    
    Set lo = Sheets(sSheetName).ListObjects(sTableName)
    searchCol = lo.ListColumns(sSearchColumn).Index
    resultCol = lo.ListColumns(sResultColumn).Index
    
    ' 应用筛选
    lo.Range.AutoFilter Field:=searchCol, Criteria1:=sSearchText
    
    ' 获取筛选后的可见数据
    On Error Resume Next
    Set visibleCells = lo.DataBodyRange.Columns(resultCol).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not visibleCells Is Nothing Then
        getFilteredColumn = Application.Transpose(visibleCells.Value)
    Else
        getFilteredColumn = Empty
    End If
    
    ' 取消筛选
    lo.Range.AutoFilter Field:=searchCol
End Function

• 加入On Error Resume Next是为了避免无匹配结果时，SpecialCells抛出运行时错误。
• lo.DataBodyRange指向列表的数据行（不含表头），如果需要包含表头，需单独处理表头单元格。

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