主题：模糊筛选下拉窗口显示问题

可以的。

Dim Filter As String
If Vars("Name") = "表A" Then   '如果组合框显示为"表A"
    Filter = "[第一列] Like '*" & e.Sender.Text & "*' or [第二列] Like '*" & e.Sender.Text & "*'or[第四列] Like '*" & e.Sender.Text & "*'"
End If
If Vars("Name") = "表B" Then   '如果组合框显示为"表B"
    Filter = "[第一列] Like '*" & e.Sender.Text & "*' or [第二列] Like '*" & e.Sender.Text & "*'or[项目] Like '*" & e.Sender.Text & "*'"
End If
If Vars("Name") = "表C" Then   '如果组合框显示为"表C"
    Filter = "[第一列] Like '*" & e.Sender.Text & "*' or [第二列] Like '*" & e.Sender.Text & "*'or[摘要] Like '*" & e.Sender.Text & "*'"
End If
Tables("窗口5_Table1").Filter = Filter
Tables(Vars("Name")).Filter = Filter
Tables(Vars("Name")).Position = Tables("窗口5_Table1").Position

增加一个字符型全局变量，如CName

ComboBox1的SelectedIndexChanged控件事件：

Vars("Name") = e.Sender.Value
Select Case e.Sender.Value
    Case "表A"
        Vars("CName") ="第四列"
    Case "表B"
        Vars("CName") = "项目"
    Case "表C"
        Vars("CName") = "摘要"
    Case Else
        Vars("CName") = ""
End Select

然后将4楼的代码改成：

If Vars("CName") <> "" Then
    Dim Filter As String = "[第一列] Like '*" & e.Sender.Text & "*' or [第二列] Like '*" & e.Sender.Text & "*'or " & Vars("CName") & " Like '*" & e.Sender.Text & "*'"
    Tables("窗口5_Table1").Filter = Filter
    Tables(Vars("Name")).Filter = Filter
    Tables(Vars("Name")).Position = Tables("窗口5_Table1").Position
End If