請教如何比對資料，並更新。

alpha

下載 (20.26 KB)
請教如何比對資料，並更新。

2013-1-15 14:05

Hsieh

回復 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

謝謝超版協助。
研究中。