多条件查询数据大

gwjkkkkk

38180203 发表于 2023-3-19 19:38
要筛选结果，，不需要的隐藏，   清空条件马上显示回所有的内容(不删除）

请参考。。。

全党

1. Sub shishi()
   
2.     Dim ar, br, i&, j&, crr()
   
3.     br = Split([C1], Chr(32))
   
4.     With Range("B2", Cells(Rows.Count, "B").End(xlUp))
   
5.     ar = .Value
   
6.     For i = 1 To UBound(ar)
   
7.     For j = 0 To UBound(br)
   
8.     If InStr(ar(i, 1), br(j)) = False Then GoTo 100
   
9.     Next j
   
10.      n = n + 1
    
11.      ReDim Preserve crr(1 To n)
    
12.      crr(n) = ar(i, 1)
    
13.      
    
14. 100:
    
15.             Next i
    
16.     End With
    
17.    Range("b1").AutoFilter 1, crr, xlFilterValues
    
18.    If Range("c1") = "" Then
    
19.    Sheet1.AutoFilterMode = False
    
20.    End If
    
21.    
    
22. End Sub

复制代码

38180203

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

完美，，，谢谢

lizhipei78

学习了
这个多条件筛选日常还是很常用到的