主题：逐级筛选

 参考代码

Dim filter As String = Tables("表A").filter
Dim str As String = "新条件"
filter = iif(filter>"", "(" & filter & ") and ", "") & str
msgbox(filter)