- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 98
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-4-27
              
|
回復 6# 01300607
不是很清楚你的比對模式
試試看結果對不對- Sub ex()
- Dim A As Range, d As Object, d1 As Object
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- With Sheet3 '寫入對照表
- For Each A In .Range(.[A2], .[A2].End(xlDown))
- d(A.Value) = A.Offset(, 1)
- Next
- End With
- With Sheet2 '以對照名稱存入數值
- For Each A In .Range(.[B2], .[B2].End(xlDown))
- d1(d(A.Value)) = Array(A.Offset(, 4), A.Offset(, 5))
- Next
- End With
- With Sheet1 '將對照數值寫入
- For Each A In .Range(.[G2], .[G2].End(xlDown))
- A.Offset(, 8).Resize(, 2) = d1(d(A.Value))
- Next
- End With
- End Sub
|
|
發表於 2013-3-19 22:47
| 
