標題: 麻煩各位大師 資料替換問題 [打印本頁]

---

作者: toxin    時間: 2012-6-6 08:41     標題: 麻煩各位大師 資料替換問題

[attach]11275[/attach]
[attach]11279[/attach]
小弟試了好久都試不太出來
所以只能麻煩各位大大了
主要是因為個人編號不太相同
但是不同編號可能代表的是同一個東西
可以將編號對照差異表之後傳回統一的替代編號(紅色部分)
並且將替代前的編號貼到原始編號上(藍色部份)
檔案如下
[attach]11278[/attach]

---

作者: Hsieh    時間: 2012-6-6 08:54

回復 1# toxin

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet3
   
4. ar = .UsedRange.Offset(1, 1).Value
   
5. ay = .UsedRange.Offset(1).Columns(1).Cells.Value
   
6. For i = 1 To UBound(ar, 1)
   
7.    For j = 1 To UBound(ar, 2)
   
8.    If ar(i, j) <> "" Then d(ar(i, j)) = ay(i, 1)
   
9.    Next
   
10. Next
    
11. End With
    
12. With Sheet1
    
13. For Each a In .Range(.[A2], .[A65536].End(xlUp))
    
14. a.Offset(, 4) = d(a.Value)
    
15. Next
    
16. End With
    
17. End Sub

複製代碼

---

作者: toxin    時間: 2012-6-6 10:37

回復 2# Hsieh
感謝Hsieh版主老師
不好意思小弟功力還不夠
可以麻煩抽個空寫一下註解嗎?
不想只是套用想多學一點東西
感謝

---

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