主题：【求助】还是数据表筛选问题。

合成这样的筛选条件

Tables("表A").filter = "(第一列='a' or 第二列='a' or 第三列='a') and (第一列='b' or 第二列='b' or 第三列='b')"

参考代码

Dim str As String = "a,b,c"
Dim filter As String = "1=1"
Dim t As Table = Tables("表A")
For Each s As String In str.split(",")
    Dim f As String = ""
    For Each c As Col In t.Cols
        f &= " or " & c.name & " = '" & s & "'"
    Next
    filter &= " and (" & f.SubString(4) & ")"
Next
msgbox(filter)