请问这个问题怎么解决？

杜陵叟

事件是


Private Sub TextBox2_Change()

    If Len(TextBox2.Value) = 0 Then
        Sheet13.AutoFilterMode = False
    Else
        If Sheet13.AutoFilterMode = True Then
            Sheet13.AutoFilterMode = False
        End If
        Sheet13.Range("A1:F" & Rows.Count).AutoFilter Field:=3, Criteria1:="*" & TextBox2.Value & "*"
    End If
End Sub

但是 不能达到我想要的效果  如附件

半百

就你的附件例子，稍改一下。

杜陵叟

你好像没懂我意思  我的意思是  第一个窗口进行筛选后 固定住 第一个搜索的结果 然后 在第一个筛选的基础上 再筛选 第二个

feilanga

杜陵叟 发表于 2023-6-15 17:55
你好像没懂我意思  我的意思是  第一个窗口进行筛选后 固定住 第一个搜索的结果 然后 在第一个筛选的基础上 ...

这不就是多条件筛选吗？论坛里面有大量案例。另外，一个问题如果想得到比较好的结果，数据模拟得是认真的。

tanglf188

筛选或高级筛选的方法要注意，VBA不管你是有效数据或标题，第一行都被认为是标题，请参考