- 帖子
- 214
- 主題
- 74
- 精華
- 0
- 積分
- 296
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- hk
- 註冊時間
- 2013-6-17
- 最後登錄
- 2018-11-3
|
回復 8# jazzcarr
Set d = CreateObject("scripting.dictionary")''''''建立字典d(不用引用)
a = [A1].CurrentRegion.Resize(, 4)''''''''''''''''''把儲存格資料放進變量a(資料只有3欄,設定4欄,最後欄將存放結果)
For i = 1 To UBound(a, 1)
d(a(i, 1)) = a(i, 2)''''''''''d(要找是參照)=找到的結果'''''把所有參照和結果都裝進字典d,一一對應
For i = 1 To UBound(a, 1)
a(i, 4) = d(a(i, 3))''''''第4欄是結果,第4欄=d(第三欄)
Next i
[d1].Resize(UBound(a, 1)) = WorksheetFunction.Index(a, 0, 4)'''''右邊是第4欄全部資料.把全部資料輸入D欄
MsgBox Format(Timer - pp, "0.0000")''''''顯示程式執行耗時多少秒 |
|
發表於 2017-7-15 01:39
| 
