多条件查询数据大

38180203

可以同时查询几个关键词的查询筛选。满足条件的就显示
查询后，只显示包含的结果，其它不显示。……谢谢谢

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&
   
    br = Split([C1], Chr(32))
    With Range("B2", Cells(Rows.Count, "B").End(xlUp))
        .Interior.ColorIndex = 0
        ar = .Value
            For i = 1 To UBound(ar)
                For j = 0 To UBound(br)
                    If InStr(ar(i, 1), br(j)) = False Then GoTo ExitLine
                Next j
                .Cells(i).Interior.Color = vbYellow
ExitLine:
            Next i
    End With
   
    Beep
End Sub

gwjkkkkk

请参考附件。。。

38180203

gwjkkkkk 发表于 2023-3-19 18:36
请参考附件。。。

老师，可能我没说清楚，查询后，要只显示查询结果

gwjkkkkk

38180203 发表于 2023-3-19 18:55
老师，可能我没说清楚，查询后，要只显示查询结果

请参考。。。

38180203

gwjkkkkk 发表于 2023-3-19 19:08
请参考。。。

查询结果还是显示在B列，只是隐藏了其它的，C,D,E例等都有数据.

gwjkkkkk

38180203 发表于 2023-3-19 19:13
查询结果还是显示在B列，只是隐藏了其它的，C,D,E例等都有数据.

显示在哪里，只是msgbox 提示吗,没理解你的要求。。。

38180203

gwjkkkkk 发表于 2023-3-19 19:16
显示在哪里，只是msgbox 提示吗,没理解你的要求。。。

图片这样子，如果C1里没东西就显示所有,,谢谢

gwjkkkkk

38180203 发表于 2023-3-19 19:23
图片这样子，如果C1里没东西就显示所有,,谢谢

你这个是筛选结果，还是把不需要的删除，只显示查询结果。。。

38180203

gwjkkkkk 发表于 2023-3-19 19:28
你这个是筛选结果，还是把不需要的删除，只显示查询结果。。。

要筛选结果，，不需要的隐藏，   清空条件马上显示回所有的内容(不删除）