標題: 請各位協助如何同時判讀兩個欄位內重複項目記錄 [打印本頁]

---

作者: cait    時間: 2011-10-5 20:05     標題: 請各位協助如何同時判讀兩個欄位內重複項目記錄

各位大大
欄位A為客戶、欄位B為訂購產品、欄位C為訂購費用
如何記錄每位客戶所訂購產品的費用統計
麻煩各位大大了

---

作者: Hsieh    時間: 2011-10-5 23:29

回復 1# cait
基本上這種問題樞紐分析是最好用的
純粹程式討論請參考看看

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. d([A1] & [B1]) = Array([A1], [B1], [C1])
   
4. For Each a In Range([A2], [A2].End(xlDown))
   
5. mystr = a & a.Offset(, 1)
   
6. If IsEmpty(d(mystr)) Then
   
7.    d(mystr) = Array(a, a.Offset(, 1), a.Offset(, 2))
   
8.    Else
   
9.    ar = d(mystr)
   
10.    ar(2) = ar(2) + a.Offset(, 2)
    
11.    d(mystr) = ar
    
12. End If
    
13. Next
    
14. [E1].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
    
15. Range("E1").CurrentRegion.Sort key1:=[E1], Header:=xlYes
    
16. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)