如何按条件筛选出正确结果

绝世梦想

按时间、学校、物料筛选是正确的了，再加一个用餐类型得不到正确结果，代码该怎么修改，请高手指教

sylinmc

不知道是不是这个意思

1. Sub test()
   
2. Dim arr, brr(), i%, j%, n%
   
3. Range("A4:K" & [A65536].End(xlUp).row + 1).ClearContents
   
4. arr = Sheets("整理表").Range("A1").CurrentRegion
   
5. For i = 2 To UBound(arr)
   
6.     If arr(i, 4) = [P3] And arr(i, 5) = [Q3] And arr(i, 11) = [R3] Then
   
7.         If arr(i, 2) >= [N3] And arr(i, 2) <= [O3] Then
   
8.             n = n + 1
   
9.             ReDim Preserve brr(1 To 11, 1 To n)
   
10.             For j = 1 To 11
    
11.                 brr(j, n) = arr(i, j)
    
12.             Next
    
13.         End If
    
14.     End If
    
15. Next
    
16. [A4].Resize(UBound(brr, 2), 11) = Application.Transpose(brr)
    
17. End Sub
    

复制代码

绝世梦想

sylinmc 发表于 2020-9-19 16:49
不知道是不是这个意思

正是我要的   谢谢了