標題: 請教如何比對資料，並更新。 [打印本頁]

---

作者: alpha    時間: 2013-1-15 14:06     標題: 請教如何比對資料，並更新。

[attach]13945[/attach]

---

作者: Hsieh    時間: 2013-1-15 14:41

回復 1# alpha

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. For Each a In Range([A2], [A2].End(xlDown))
   
5.   d(a.Value) = a.Offset(, 1).Value
   
6.   d1(a.Value) = a.Offset(, 2).Value
   
7. Next
   
8. For Each a In Range([H2], [H2].End(xlDown))
   
9.    a.Offset(, 1) = a.Offset(, 1).Value + d(a.Value)
   
10.    d.Remove a.Value
    
11.    a.Offset(, 2) = a.Offset(, 2).Value + d1(a.Value)
    
12.    d1.Remove a.Value
    
13. Next
    
14. For Each ky In d.keys
    
15.   [H65536].End(xlUp).Offset(1, 0).Resize(, 3) = Array(ky, d(ky), d1(ky))
    
16. Next
    
17. End Sub

複製代碼

---

作者: alpha    時間: 2013-1-15 15:02

謝謝超版協助。
研究中。

---

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