如何在VBA中用WorksheetFunction.Filter实现多条件筛选？

我借助StackOverflow社区的帮助写了一个VBA宏，用来获取ListObject的数据并做多条件排序和筛选，运行速度很快。排序功能正常，但筛选环节有问题：我需要对3列进行筛选，但只有当对应列的筛选条件非空时才执行筛选（比如示例里把sFilterSubSection设为空，就不对该列应用筛选）。我试过分步筛选的代码，但发现每次筛选后，结果行数和原表LO.ListColumns("Worksheet").DataBodyRange的行数相比都减少，这不是理想方案。请问能不能在VBA中用WorksheetFunction.Filter实现这种多条件筛选？

示例数据：

'SAMPLE DATA
sFilterWorksheet = "Global Inputs"
sFilterSection = "GA"
sFilterSubSection = ""

分步筛选的尝试代码片段：

If sFilterWorksheet <> "" Then
    arrResult = .Filter(arrResult, .XLookup(LO.ListColumns("Worksheet").DataBodyRange, sFilterWorksheet, True, False))
End If

完整代码：

Sub inputs_getTableFilteredAndSorted()  '(Optional sFilterWorksheet As String, Optional sFilterSection As String, Optional sFilterSubSection As String)
    Dim LO As ListObject, arrResult
    
    Set LO = inputs_getListObject
    'sOrderBy = "[Worksheet order],[Section order],[SubSection order],[Title rows order],[Title columns order]"
    Dim sFilterWorksheet, sFilterSection, sFilterSubSection
    
    'SAMPLE DATA
    sFilterWorksheet = "Global Inputs"
    sFilterSection = "GA"
    sFilterSubSection = ""
    
    With Application.WorksheetFunction
        arrResult = LO.DataBodyRange
            
        'FILTERING
        If sFilterWorksheet <> "" Then
            arrResult = .Filter(arrResult, .XLookup(LO.ListColumns("Worksheet").DataBodyRange, sFilterWorksheet, True, False))
        End If
        If sFilterSection <> "" Then
            arrResult = .Filter(arrResult, .XLookup(LO.ListColumns("Section").DataBodyRange, sFilterSection, True, False))
        End If
        If sFilterSubSection <> "" Then
            arrResult = .Filter(arrResult, .XLookup(LO.ListColumns("SubSection").DataBodyRange, sFilterSubSection, True, False))
        End If
        
        'SORTING
        arrResult = .Sort(.Sort(.Sort(.Sort(.Sort(arrResult, _
            LO.ListColumns("Title columns order").Index, 1), _
            LO.ListColumns("Title rows order").Index, 1), _
            LO.ListColumns("SubSection order").Index, 1), _
            LO.ListColumns("Section order").Index, 1), _
            LO.ListColumns("Worksheet order").Index, 1)

    End With
End Sub

你之前分步筛选的问题在于：第一次筛选后arrResult的行数已经减少，但后续筛选时依然用原ListObject的列范围（LO.ListColumns(...).DataBodyRange）生成条件数组，这个数组的长度和arrResult不匹配，导致筛选逻辑出错，结果行数异常。

可以通过构建动态组合条件数组的方式，用一次Filter完成多条件筛选：空条件的列直接生成全True的布尔数组（相当于不筛选），有条件的列生成匹配条件的布尔数组，最后把所有布尔数组用逻辑与（*）组合，作为Filter的条件参数。

修改后的代码如下：

Sub inputs_getTableFilteredAndSorted()  '(Optional sFilterWorksheet As String, Optional sFilterSection As String, Optional sFilterSubSection As String)
    Dim LO As ListObject, arrResult
    Dim arrWorksheet, arrSection, arrSubSection
    Dim filterCriteria As Variant
    
    Set LO = inputs_getListObject
    'SAMPLE DATA
    sFilterWorksheet = "Global Inputs"
    sFilterSection = "GA"
    sFilterSubSection = ""
    
    With Application.WorksheetFunction
        '获取各筛选列的原始数据数组
        arrWorksheet = LO.ListColumns("Worksheet").DataBodyRange.Value
        arrSection = LO.ListColumns("Section").DataBodyRange.Value
        arrSubSection = LO.ListColumns("SubSection").DataBodyRange.Value
        
        '初始化筛选条件为全True（默认不筛选）
        filterCriteria = .Rept(True, LO.ListRows.Count)
        filterCriteria = .Transpose(.Split(filterCriteria, ""))
        
        '根据非空条件更新筛选条件
        If sFilterWorksheet <> "" Then
            filterCriteria = filterCriteria * (.Index(arrWorksheet, 0, 1) = sFilterWorksheet)
        End If
        If sFilterSection <> "" Then
            filterCriteria = filterCriteria * (.Index(arrSection, 0, 1) = sFilterSection)
        End If
        If sFilterSubSection <> "" Then
            filterCriteria = filterCriteria * (.Index(arrSubSection, 0, 1) = sFilterSubSection)
        End If
        
        '一次性完成多条件筛选
        arrResult = .Filter(LO.DataBodyRange.Value, filterCriteria)
        
        '排序逻辑保持不变
        arrResult = .Sort(.Sort(.Sort(.Sort(.Sort(arrResult, _
            LO.ListColumns("Title columns order").Index, 1), _
            LO.ListColumns("Title rows order").Index, 1), _
            LO.ListColumns("SubSection order").Index, 1), _
            LO.ListColumns("Section order").Index, 1), _
            LO.ListColumns("Worksheet order").Index, 1)
    End With
End Sub

关键逻辑说明： #

• 获取原始列数组：先把需要筛选的三列数据单独提取为数组，避免后续筛选后原表范围和结果数组长度不匹配的问题。
• 初始化全True条件：用Rept和Transpose生成和原表行数一致的全True数组，确保默认状态下不筛选任何行。
• 组合条件：对每个非空的筛选条件，生成对应列的匹配布尔数组，然后和现有条件数组相乘（布尔值在VBA数组中会自动转为1/0，相乘等价于逻辑与），实现多条件叠加。
• 一次性筛选：用组合后的条件数组对原数据执行一次Filter，得到符合所有非空条件的结果。

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