如何实现品名型号2级不重复分类汇总和客户品名、型号3级分类汇总

wangxk0807

老师，如何在销售数据里实现：1、按照不同品名规格型号实现2级不重复分类汇总
                                                 2、按照不同客户、品名、规格型号3级不重复分类汇总

mathking77

用字典可以

1. Sub xhflhz()
   
2. Dim arr, d1 As Object, d2 As Object, d3 As Object, i&
   
3. Set d1 = CreateObject("scripting.dictionary")
   
4. Set d2 = CreateObject("scripting.dictionary")
   
5. Set d3 = CreateObject("scripting.dictionary")
   
6. arr = [a1].CurrentRegion
   
7. For i = 2 To UBound(arr)
   
8. d1(arr(i, 3)) = d1(arr(i, 3)) + arr(i, 4)
   
9. d2(arr(i, 3)) = d2(arr(i, 3)) + arr(i, 5)
   
10. d3(arr(i, 3)) = d3(arr(i, 3)) + arr(i, 6)
    
11. [O2].Resize(d1.Count, 4) = Application.Transpose(Array(d1.keys, d1.items, d2.items, d3.items))
    
12. Next
    
13. End Sub
    
14. 
    
15. 
    
16. 
    
17. 
    
18. Sub khflhz()
    
19. Dim arr, d1 As Object, d2 As Object, d3 As Object, i&
    
20. Set d1 = CreateObject("scripting.dictionary")
    
21. Set d2 = CreateObject("scripting.dictionary")
    
22. Set d3 = CreateObject("scripting.dictionary")
    
23. arr = [a1].CurrentRegion
    
24. For i = 2 To UBound(arr)
    
25. d1(arr(i, 1)) = d1(arr(i, 1)) + arr(i, 4)
    
26. d2(arr(i, 1)) = d2(arr(i, 1)) + arr(i, 5)
    
27. d3(arr(i, 1)) = d3(arr(i, 1)) + arr(i, 6)
    
28. [T2].Resize(d1.Count, 4) = Application.Transpose(Array(d1.keys, d1.items, d2.items, d3.items))
    
29. Next
    
30. End Sub

复制代码

wangxk0807

mathking77 发表于 2016-8-30 08:50
用字典可以

谢谢老师解疑，如何实现1、按照不同品名规格型号实现2级不重复分类汇总
                                                 2、按照不同客户、品名、规格型号3级不重复分类汇总