多条件多表提取VBA求助

灵犀之声

小白的烦恼是无穷无尽的。我只想安安心心的毕业，今天又来求助各位大神，诉求在汇总里面。奉请各位大神。


老师要求要用VBA和公式函数两种方法解决，跪谢各位！

sdytsxd991122

学校的作业在这里问，不好吧

sdytsxd991122

ykcbf1100

楼主平时学习认真一点啊，老师教过的东西要花时间去消化一下。
你在这里求助，有抄作业之嫌啊。
先等等看再说吧。

灵犀之声

sdytsxd991122 发表于 2023-6-21 10:58

主要是按未开，已开的条件来汇总送货单号

蓝桥玄霜

仓库的例子：

yynrzwh

1. Sub 汇总()
   
2. 
   
3. hz = Sheets("回执单登记表").UsedRange
   
4. Set dhz = CreateObject("scripting.dictionary")
   
5.     For i = 3 To UBound(hz)
   
6.         If hz(i, 2) <> "" Then dhz(hz(i, 2)) = ""
   
7.     Next i
   
8.    
   
9.     With Sheets("汇总")
   
10.         .Range("A4:H" & Rows.Count).Clear
    
11.         brr = .Range("A1:H9999")
    
12.     End With
    
13. 
    
14. Dim sh As Worksheet
    
15. n = 3
    
16.     For Each sh In Sheets
    
17.         If InStr(sh.Name, "月") Then
    
18.             arr = sh.UsedRange
    
19.                 For i = 3 To UBound(arr)
    
20.                     qz = Left(arr(i, 1), 2)
    
21.                     If qz = "CF" And arr(i, 10) <> "款到" And arr(i, 12) = "是" Then
    
22.                         n = n + 1
    
23.                         brr(n, 1) = arr(i, 1)
    
24.                         brr(n, 2) = arr(i, 2)
    
25.                         brr(n, 3) = arr(i, 3)
    
26.                         brr(n, 4) = arr(i, 10)
    
27.                         brr(n, 5) = arr(i, 12)
    
28.                         brr(n, 6) = arr(i, 13)
    
29.                         brr(n, 7) = arr(i, 14)
    
30.                         If dhz.exists(arr(i, 1)) Then brr(n, 8) = "是" Else brr(n, 8) = "否"
    
31.                     End If
    
32.                 Next i
    
33.         End If
    
34.     Next sh
    
35.    
    
36. Sheets("汇总").Range("A1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
37. Set dhz = Nothing
    
38. End Sub
    

复制代码

盼盼198310

.............

灵犀之声

盼盼198310 发表于 2023-6-21 12:19
.............

老师，不对呀

盼盼198310

灵犀之声 发表于 2023-6-21 13:54
老师，不对呀

模拟一下看看,再一个就是,你这两个条件是 或 的关系还是 且 的关系?