主题：[求助]模糊查询表中不出现查询内容

没有看懂你的问题，不过既然数据都加载了，用筛选就行了，何必用Fill，这样开销很大，所以最后一段应该改为：

If ls IsNot Nothing Then
    Ls ="[_Identify] In(" & Ls & ")"

     Tables("窗口1").Filter = ls
    e.sender.ComboList = Lss
End If