Hsieh

回復 2# storylai


    樞紐分析表就能輕鬆達成

下載 (39.03 KB)

2011-12-12 17:53

Hsieh

1. Sub Ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([A2], [A2].End(xlDown))
   
4.    mystr = Join(Application.Transpose(Application.Transpose(a.Resize(, 5))), ",")
   
5.    d(mystr) = d(mystr) + a.Offset(, 5)
   
6. Next
   
7. [A1:F1].Copy [I1]
   
8. For Each ky In d.keys
   
9. ar = Split(ky, ",")
   
10. ar(0) = CDate(ar(0))
    
11. [I2].Offset(i, 0).Resize(, 5) = ar
    
12. [I2].Offset(i, 5) = d(ky)
    
13. i = i + 1
    
14. Next
    
15. End Sub

複製代碼

回復 4# storylai