標題: 如何自動取代新的內容資料? [打印本頁]

---

作者: winston219    時間: 2010-11-25 20:07     標題: 如何自動取代新的內容資料?

如附檔，謝謝大大![attach]3771[/attach]

---

作者: Hsieh    時間: 2010-11-25 20:58

回復 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    時間: 2010-11-25 22:27

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

---

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