linshin1999

你好:以下借花獻佛這是 Hiesh 版主,回答版友問的問題所回答的答案,你可以參考看看:

Sub Ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheets(2)
For Each a In .Range(.[A1], .[A65536].End(xlUp))
   d(a.Value) = a.Offset(, 1)
Next
With Sheets(1)
For Each a In .Range(.[A1], .[A65536].End(xlUp))
   a.Offset(, 3) = d(a.Value)
Next
End With
End With
End Sub

http://forum.twbts.com/viewthread.php?from=notice&tid=2398


或者你可以前往以上的網頁去參考:對初學者 Dictionary 要花一點心思,但是你要的答案就是用 Dictionary 來解決.