兩筆資料間接比對(使用vlookup)

帖子: 13
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: OSX10.8
軟體版本: excel2010
閱讀權限: 10
性別: 男
註冊時間: 2013-3-14
最後登錄: 2018-3-16

8^#

發表於 2013-3-20 12:02 | 只看該作者

板主的方式我之前都沒想過，依照板主的方式也能達到我要的效果，而且不用使用Vlookup function
以下是我稍微修改過的，執行後也能達到我想要的目的

Sub ex()
Dim A As Range, d As Object, d1 As Object
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
With Worksheets(3)
For Each A In .Range(.[A2], .[A2].End(xlDown))
d(A.Value) = A.Offset(, 1)
Next
End With
With Worksheets(2)
For Each A In .Range(.[B2], .[B2].End(xlDown))
d1(d(A.Value) & d(A.Offset(, 2).Value)) = Array(A.Offset(, 4), A.Offset(, 5))
Next
End With
With Worksheets(1)
For Each A In .Range(.[G2], .[G2].End(xlDown))
A.Offset(, 8).Resize(, 2) = d1(A.Value & A.Offset(, 7).Value)
Next
End With
End Sub

複製代碼

感謝板主幫忙，又學到了，謝謝

hi

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2013-3-20 08:42 | 只看該作者

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

複製代碼

學海無涯_不恥下問

帖子: 13
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: OSX10.8
軟體版本: excel2010
閱讀權限: 10
性別: 男
註冊時間: 2013-3-14
最後登錄: 2018-3-16

6^#

發表於 2013-3-20 00:27 | 只看該作者

我找出錯誤了，原來是vlookup function 比對出現error所以整個程式才出現問題
感謝版主

hi

帖子: 13
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: OSX10.8
軟體版本: excel2010
閱讀權限: 10
性別: 男
註冊時間: 2013-3-14
最後登錄: 2018-3-16

5^#

發表於 2013-3-19 23:59 | 只看該作者

對不起，我的表達能力有點差
我要比對sheet1跟sheet2的資料，可是要比對的項目並非完全相同，
所以我將sheet2的資料以sheet3為對照表，再跟sheet1的資料進行比對，
最後比對出來把sheet2的資料填到sheet1
可能我的程式碼有點問題，才讓您看不懂
謝謝版主幫忙

hi

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-3-19 23:48 | 只看該作者

回復 3# 01300607
看不懂你要比對甚麼?
照理說應該Sheet3是對照表，但是程式碼卻非以此為對照表
還是要說明清楚你的對照標準，才能知道如何修正。

學海無涯_不恥下問

帖子: 13
主題: 4
精華: 0
積分: 18
點名: 0
作業系統: OSX10.8
軟體版本: excel2010
閱讀權限: 10
性別: 男
註冊時間: 2013-3-14
最後登錄: 2018-3-16

3^#

發表於 2013-3-19 23:05 | 只看該作者

Map.zip (12.2 KB)

不好意思，這是我的檔案
我只想知道是有根本上的錯誤，還是一些其他比較小的地方所造成的錯誤
謝謝大家幫忙

hi

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-3-19 22:47 | 只看該作者

回復 1# 01300607

你自己都說執行出現錯誤了，還問這樣可以嗎?這不是很矛盾嗎?
上傳你的檔案看看

學海無涯_不恥下問