如何自動取代新的內容資料?

winston219

如附檔，謝謝大大! book.rar (5.91 KB)

下載次數: 22

2010-11-25 20:07

Hsieh

回復 1# winston219

1. Sub Ex()
   
2. Dim A As Range
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With Sheet2
   
5. For Each A In .Range(.[A2], .[A65536].End(xlUp))
   
6.    d(A.Value) = Array(A.Offset(, 2).Value, A.Offset(, 1).Value)
   
7. Next
   
8. End With
   
9. With Sheet1
   
10. For Each A In .Range(.[A2], .[A65536].End(xlUp))
    
11.   If d.exists(A.Value) = True Then A.Offset(, 2).Resize(, 2) = d(A.Value)
    
12. Next
    
13. End With
    
14. End Sub

複製代碼

winston219

感謝Hsieh大大!我是初學者，不懂您的程式，但it's work! 我會好好研究您所寫的內容，這樣才能增加VBA的功力，再次謝謝您~