- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
 
|
本帖最後由 linshin1999 於 2011-1-17 20:48 編輯
你好:以下借花獻佛這是 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 來解決. |
|
發表於 2011-1-17 19:44
| 