[已解决]求大哥们帮忙解决下这个条件统计的困难哦！谢谢！

兰馨雨

求大哥们帮忙解决下这个条件统计的困难哦

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-5 14:18

……………………

跳转到最佳答案楼层

兰馨雨

请大家帮忙呀，谢谢大哥大姐们了！

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, crr, d, d2, i&, j%, zf$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set d2 = CreateObject("scripting.dictionary")
   
5. arr = Sheet1.Range("ae2:bu" & Sheet1.Range("bu65536").End(xlUp).Row)
   
6. brr = [b3:ak3]
   
7. For i = 1 To UBound(arr)
   
8.     d2(arr(i, 1)) = ""
   
9.     zf = arr(i, 1) & "," & arr(i, 2)
   
10.     d(zf) = d(zf) + arr(i, 43)
    
11. Next
    
12. ReDim crr(1 To d2.Count, 1 To UBound(brr, 2) + 1)
    
13. a = d2.keys
    
14. For i = 0 To d2.Count - 1
    
15.     crr(i + 1, 1) = a(i)
    
16.     For j = 1 To UBound(brr, 2)
    
17.         zf = a(i) & "," & brr(1, j)
    
18.         crr(i + 1, j + 1) = d(zf)
    
19.     Next
    
20. Next
    
21. Range("a4").Resize(UBound(crr), UBound(crr, 2)) = crr
    
22. Range("a3").Resize(UBound(crr) + 1, UBound(crr, 2)).Sort [a4], Header:=xlGuess
    
23. End Sub
    

复制代码

dsmch

………………

dsmch

……………………

兰馨雨

太谢谢您了，真是非得感谢哦，要是您在我们这，我必须要请您吃饭哦

兰馨雨

老师，条件第三条，如果空白和数量0，都统计为0；如果没用此类小编号才为空值；那个可以弄吗