vba合并查询，并汇总求和

卡拉不ok

求帮助：
1、通过表A的名字匹配表B梨的数量
2、匹配之后需要对梨的数量汇总求和
3、如果表A存在的名字，表B梨对应的数量为空值的话，默认汇总求和为0

全党

shishi.....................................

卡拉不ok

全党 发表于 2023-4-5 11:21
shishi.....................................

感谢老铁，但是需求不对，哈哈哈

cjc209

卡拉不ok 发表于 2023-4-5 11:27
感谢老铁，但是需求不对，哈哈哈

没有看懂你的需求?

卡拉不ok

cjc209 发表于 2023-4-5 11:35
没有看懂你的需求?

还要把b表汇总求和的列，匹配到A表对应的名字那边

cjc209

cjc209 发表于 2023-4-5 11:35
没有看懂你的需求?

你的时间是用来干什麽的 汇总与时间相关吗 还有里的A表里的数据也要一起相加吗? 又不说明白 或者做出模拟 全让为你解决问题的人去猜 你觉得你做的对吗?

cjc209

卡拉不ok 发表于 2023-4-5 11:37
还要把b表汇总求和的列，匹配到A表对应的名字那边

是不是幼儿园还没有毕业

卡拉不ok

cjc209 发表于 2023-4-5 11:47
是不是幼儿园还没有毕业

我只是寻求解答而已，你做完了，传上来，我也谢谢你，也按照我的需求回复了，也没说你啥，要这么轴吗。

吴中泉

看看我的是否合适？如行，加分鼓励，新人需要大家关照。

1. Sub 根据姓名汇总()
   
2. 
   
3.     Dim ar, br, i&, r&, dic As Object
   
4.    
   
5.     Set dic = CreateObject("Scripting.Dictionary")
   
6.     With Sheets("B表").[A1].CurrentRegion
   
7.         br = .Resize(1000)
   
8.         r = .Rows.Count
   
9.         For i = 2 To r: dic(br(i, 2)) = dic(br(i, 2)) + br(i, 3): Next i
   
10.     End With
    
11.    
    
12.     ar = Sheets("A表").[A2].CurrentRegion
    
13.     For i = 2 To UBound(ar)
    
14.         If dic.exists(ar(i, 2)) Then
    
15.             ar(i, 3) = dic(ar(i, 2))
    
16.         Else
    
17.             ar(i, 3) = 0
    
18.         End If
    
19.     Next i
    
20.     ar(1, 3) = "梨数量汇总"
    
21.     Sheets("A表").[A1].CurrentRegion.Offset(0, 5) = ar
    
22.     Set dic = Nothing
    
23. 
    
24. End Sub
    

复制代码

吴中泉

卡拉不ok 发表于 2023-4-5 11:49
我只是寻求解答而已，你做完了，传上来，我也谢谢你，也按照我的需求回复了，也没说你啥，要这么轴吗。

1. Sub 根据姓名汇总()
   
2. 
   
3.     Dim ar, br, i&, r&, dic As Object
   
4.    
   
5.     Set dic = CreateObject("Scripting.Dictionary")
   
6.     With Sheets("B表").[A1].CurrentRegion
   
7.         br = .Cells.Value
   
8.         r = .Rows.Count
   
9.     End With
   
10.     For i = 2 To r: dic(br(i, 2)) = dic(br(i, 2)) + br(i, 3): Next i
    
11.    
    
12.     ar = Sheets("A表").[A2].CurrentRegion
    
13.     For i = 2 To UBound(ar)
    
14.         If dic.exists(ar(i, 2)) Then
    
15.             ar(i, 3) = dic(ar(i, 2))
    
16.         Else
    
17.             ar(i, 3) = 0
    
18.         End If
    
19.     Next i
    
20.     ar(1, 3) = "梨数量汇总"
    
21.     Sheets("A表").[A1].CurrentRegion.Offset(0, 5) = ar
    
22.     Set dic = Nothing
    
23. 
    
24. End Sub
    

复制代码