vba合并查询，并汇总求和

卡拉不ok

吴中泉 发表于 2023-4-5 12:57

如何实现把梨汇总的那列，放在苹果的后面

吴中泉

卡拉不ok 发表于 2023-4-5 16:30
如何实现把梨汇总的那列，放在苹果的后面

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
    

复制代码

’我想应该可以了，送朵小花吧