如何简化含嵌套If的VBA函数 实现多条件过滤填充ListView

核心优化逻辑：把每个筛选条件的校验结果存为独立布尔变量，空条件直接判定为匹配成功，最后统一判断所有条件是否同时满足，即可完全消除嵌套If和重复代码，同时避免通配符误匹配、空值漏加载的问题。

优化后代码如下：

Function test(usf As UserForm, a As String, Optional b As String, Optional c As String)
    Dim i As Long, matchA As Boolean, matchB As Boolean, matchC As Boolean
    ' 此处假设arr为已提前读取好的源数据数组，可根据你的实际逻辑调整
    ' 填充前先清空ListView原有内容，避免重复
    usf.ListView1.ListItems.Clear

    ' 如果你原需求中a为必传参数，可保留以下判断，不需要直接删除即可
    ' If a = "" Then MsgBox "a is empty": Exit Function
    
    For i = LBound(arr, 1) To UBound(arr, 1)
        ' 条件A判断：为空则直接匹配成功，否则执行模糊匹配校验
        matchA = (a = "") Or (InStr(1, arr(i, 11), a, vbTextCompare) > 0)
        ' 条件B判断：为空则直接匹配成功，否则执行等值校验
        matchB = (b = "") Or (arr(i, 1) = b)
        ' 条件C判断：为空则直接匹配成功，否则执行等值校验
        matchC = (c = "") Or (arr(i, 2) = c)
        
        ' 所有条件同时满足则填充ListView，填充逻辑仅需写一次
        If matchA And matchB And matchC Then
            ' 替换为你自己的ListView填充逻辑即可
            With usf.ListView1.ListItems.Add
                .Text = arr(i, 1)
                .SubItems(1) = arr(i, 2)
                ' 其余字段按需补充
            End With
        End If
    Next i
End Function

方案优势 #

• 完全消除多层嵌套，后续新增筛选条件仅需新增对应match变量即可，维护成本极低
• 未使用Like通配符，不会出现你担心的误匹配问题
• 空条件自动忽略，所有条件为空时三个match变量均为True，会直接加载全部数组内容，不会遗漏空值行
• 逻辑清晰，排查问题时可直接打印单个match变量的值定位校验异常

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