条件集合，然后判断符合行隐藏

shenzhenyang

1. 
   
2. 
   
3. Sub Macro1()
   
4.     Dim myArr, arr, d As Object, i As Long, temp As String, r
   
5.     r = [f65536].End(xlUp).Row + 2
   
6.     myArr = Array("西北", "东南", "西南", "东北")
   
7.     Set d = CreateObject("Scripting.Dictionary")
   
8.     For i = 0 To UBound(myArr)
   
9.         d(myArr(i)) = ""
   
10.     Next
    
11.     arr = Range("A7:BA" & r).Value
    
12.     For i = 1 To UBound(arr)
    
13.         temp = arr(i, 7)
    
14.         If temp <> "" Then
    
15.          
    
16.              If d.exists(temp) Then UsedRange.EntireRow.Hidden = True
    
17.             
    
18.                
    
19.         End If
    
20.     Next
    
21.     Range("A7:BA" & r) = arr
    
22. End Sub
    
23. 
    

复制代码

把需要条件集合 这里myArr = Array("西北", "东南", "西南", "东北")不用一个一个写判断条件，
判断G7：Gr 符合myArr条件Range("A7:BA" & r)的行全部隐藏
If d.exists(temp) Then UsedRange.EntireRow.Hidden = True这里这句UsedRange.EntireRow.Hidden = True执行不了
请老师帮助，应该怎么写，谢谢

无敌小猪猪

仅供参考！

shenzhenyang

无敌小猪猪 发表于 2023-2-24 11:14
仅供参考！

谢谢老师
For i = 1 To UBound(arr)

For i = UBound(arr) To 1 Step -1

请教老师这2句的区别，都可以执行，麻烦老师讲解下，谢谢

grf1973

小小改动即可。

grf1973

还可以再简单一点

jinlei2006

shenzhenyang 发表于 2023-2-24 11:23
谢谢老师
For i = 1 To UBound(arr)

正着来和反着来的区别