麻煩各位大師 資料替換問題 VBA, excel

toxin

下載 (117.29 KB)

2012-6-6 08:27

下載 (111.06 KB)

2012-6-6 08:39

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

下載次數: 6

2012-6-6 08:39

Hsieh

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

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