求助多行的数据汇总

sunyuanzhang

求代码
根据 《数据》 表格里的数据分类汇总到 《 汇总》  表里
哪位大神帮忙提供一下代码

杨建营

请楼主参考。

杨建营

代码。

sunyuanzhang

杨建营 发表于 2024-9-5 09:21
请楼主参考。

是否可以将结果直接返回到 汇总表 的C列里。
E列不想有型号的数据

杨建营

sunyuanzhang 发表于 2024-9-5 11:31
是否可以将结果直接返回到 汇总表 的C列里。
E列不想有型号的数据

把红框中的e改成c就可以了

sunyuanzhang

杨建营 发表于 2024-9-5 13:14
把红框中的e改成c就可以了

C列显示的还是型号
E改成B可以吗

杨建营

sunyuanzhang 发表于 2024-9-5 13:51
C列显示的还是型号
E改成B可以吗

可以，我把原表的格式当做目标了。改成B是对的。

yanglinzi

1. Sub 汇总()
   
2. Dim arr, brr, i, j, d
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet2.[c1].CurrentRegion
   
5. brr = Sheet1.[b1].CurrentRegion
   
6. For i = 2 To UBound(arr)
   
7.     sa = arr(i, 1)
   
8.     d(sa) = d(sa) + arr(i, 2)
   
9. Next
   
10. For j = 2 To UBound(brr)
    
11.     sb = brr(j, 1)
    
12.     If d.exists(sb) Then
    
13.         brr(j, 2) = d(sb)
    
14.     End If
    
15. Next
    
16. [b1].Resize(UBound(brr), 2) = brr
    
17. End Sub

复制代码

yanglinzi

参与一下。。

Qs18

1. Sub qs()
   
2. Dim arr, brr, i, dic, s
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. With Sheet2
   
5. r2 = .Cells(Rows.Count, 3).End(3).Row
   
6.     arr = .Range("c1").Resize(r2, 2).Value
   
7. End With
   
8. For i = 2 To UBound(arr)
   
9.     s = arr(i, 1)
   
10.     If Not dic.exists(s) Then
    
11.         dic(s) = arr(i, 2)
    
12.     Else
    
13.         dic(s) = dic(s) + arr(i, 2)
    
14.     End If
    
15. Next
    
16. With Sheet1
    
17.     r = .Cells(Rows.Count, 2).End(xlUp).Row
    
18.     brr = .Range("b1").Resize(r, 2).Value
    
19.     For i = 2 To UBound(brr)
    
20.         If dic.exists(brr(i, 1)) Then
    
21.             brr(i, 2) = dic(brr(i, 1))
    
22.         End If
    
23.     Next
    
24.     .Range("b1").Resize(UBound(brr), 2) = brr
    
25. End With

复制代码