vba合并查询，并汇总求和

卡拉不ok

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

注：表A是固定的表，表B会跟随日期变化增加数据条。

cjc209

函数就完成了=SUMIF(B表!B:B,A2,B表!C:C)

吴中泉

为便于截图和察看，把AB两表合一块了，右上角的表格是汇总的数据，看可符合的你的意思？

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
    

复制代码

卡拉不ok

梨数量根据A表名字汇总后，需要放在A表苹果的后面一列，感谢各位大佬。

全党

你表达不清楚，看看是不是这样。猜的。

吴中泉

卡拉不ok 发表于 2023-4-5 16:32
梨数量根据A表名字汇总后，需要放在A表苹果的后面一列，感谢各位大佬。

已完成修改，符合你的要求，送朵小花吧

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

复制代码

gwjkkkkk

参与 一下。。。

卡拉不ok

全党 发表于 2023-4-5 17:07
你表达不清楚，看看是不是这样。猜的。

是这样，感谢老铁

卡拉不ok

全党 发表于 2023-4-5 17:07
你表达不清楚，看看是不是这样。猜的。

如果b表指定2-3列，汇总求和，然后一样匹配到A表，这个咋实现

ykcbf1100

卡拉不ok 发表于 2023-4-6 09:01
如果b表指定2-3列，汇总求和，然后一样匹配到A表，这个咋实现

指定不指定23列，其实代码都是一样写的。

你要学会给帮你的人送花，这样帮你的人才会越来越多，对你新的要求也会得到及时的回复。