求帮助，表格数据分类汇总

NICCYY

说明：SHEET1表是基础数据，需要在统计汇总表中对SHEET表中的基础数据进行分类。按时间、物料编码的前4位，规格型号（料号标红色的需要再细分规格型号），数量求和。下面图片是举例。

chxw68

汇总表中的系统大类和产品类别是如何提取的？

shiruiqiang

哪个时间？

ykcbf1100

说明太少了，大类、产品类别都没地方来，还有料号是怎么来的？难道就是求值吗？
写个求值的代码吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.8
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("Sheet1")
   
4.         r = .Cells(Rows.Count, 2).End(3).Row
   
5.         arr = .[a1].Resize(r, 15)
   
6.     End With
   
7.     For i = 2 To UBound(arr)
   
8.         yf = Format(arr(i, 3), "yyyy年m月")
   
9.         s = Left(arr(i, 7), 4) & "|" & arr(i, 9) & "|" & yf
   
10.         d(s) = d(s) + arr(i, 12)
    
11.     Next
    
12.     With Sheets("统计汇总表")
    
13.         r = .Cells(Rows.Count, 1).End(3).Row
    
14.         arr = .[a1].Resize(r, 30)
    
15.         For i = 2 To UBound(arr)
    
16.             For j = 8 To UBound(arr, 2)
    
17.                 s = arr(i, 4) & "|" & arr(i, 5) & "|" & arr(1, j)
    
18.                 If d.exists(s) Then
    
19.                     arr(i, j) = d(s)
    
20.                 End If
    
21.             Next
    
22.         Next
    
23.         .[a1].Resize(r, 30) = arr
    
24.     End With
    
25.     Set d = Nothing
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码

NICCYY

是这样的，基础表格中的开工时间，按月为单位，比如说22年1月，收到了若干个订单。按照物料编码的前4位分类，得到 数量  这一列的求和。  

NICCYY

谢谢 shiruiqiang，chxw68 两位网友的回复，特别谢谢ykcbf1100，就是您理解的这样

NICCYY

ykcbf1100 发表于 2024-4-8 19:20
说明太少了，大类、产品类别都没地方来，还有料号是怎么来的？难道就是求值吗？
写个求值的代码吧。

谢谢老师的回复，就是分类求值 ,刚才用了一下，25行之后就没有计算了

ykcbf1100

NICCYY 发表于 2024-4-8 20:18
谢谢老师的回复，就是分类求值,刚才用了一下，25行之后就没有计算了

你是按料号来求和的？

改一下，按料号求和。

NICCYY

ykcbf1100 发表于 2024-4-8 20:20
你是按料号来求和的？

改一下，按料号求和。

谢谢大神的帮助，非常感谢