幫忙解釋這個模糊比對範例檔 - Excel程式區

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

12^#

發表於 2011-5-10 08:05 | 只看該作者

本帖最後由 mark15jill 於 2011-5-10 08:53 編輯

樓主~ 就您附檔的訊息來看的話
是以 sheet1 為基礎在sheet2 的資料內下去做搜尋沒錯吧
既然是這樣那如果你 sheet2內沒有相關的資訊就算你在sheet1 增加再多條件也是沒用的.

而且如果按照樓主的意思的話
會造成一種情形
如果單一資料符合兩種搜尋條件那要顯示哪個?? 就跟之前某帖一樣...
例如
   sheet1                sheet2          顯示
A1    大明    1          大明小明          ?
A2    中明    2          中明                2
A3    小明    3          小明                3
那 A1 的話他顯示要哪個?

chin15

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

13^#

發表於 2011-5-10 08:49 | 只看該作者

很難懂你的邏輯
"研發ccab"--> a離研發最近 ^^
不是c 離研發最近 ?????
許多朋友不願把問題檔案提出來
又無法描述清楚
造成很多的雞同鴨講
浪費大家的時間與站長的空間

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

14^#

發表於 2011-5-10 20:25 | 只看該作者

回 mark15jill 大
確實會有這種情形，不過我會慢慢修正資料庫的資料，這個問題是可以一步步解決的，謝謝你!

我重新上傳了一個檔案，有新增幾欄資料，要同時傳回Sheet2，請 oobird 大幫我看一下，要如何修改好嗎?

模糊比對test.rar (16.19 KB)

Jess

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

15^#

發表於 2011-5-10 21:08 | 只看該作者

回復 14# jesscc

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheet1
For Each a In .Range(.[B5], .[B56636].End(xlUp))
d(a & "") = Array(a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
Next
End With
With Sheet2
For Each a In .Range(.[D12], .[D56636].End(xlUp))
For Each ky In d.keys
If InStr(a, ky) > 0 Then a.Offset(, 4).Resize(, 4) = d(ky): Exit For
Next
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

16^#

發表於 2011-5-10 22:34 | 只看該作者

謝謝 Hsieh 大!剛剛試著去 run 自己的工作檔案，只傳回4欄的資料是ok的，如果我從 Sheet1 抓回的資料改成32欄(公司的資料很龐大)，用一個迴圈去跑陣列，結果就沒辦法正常執行了，是陣列的因素嗎?我記得好像在哪裡看過文章說明，陣列的"欄"是不能用迴圈去跑的。是這樣嗎?

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheet1
For Each a In .Range(.[B5], .[B56636].End(xlUp))
For i = 1 To 32
d(a & "") = Array(a.Offset(, i).Value) ', a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
Next i
Next
End With
With Sheet2
For Each a In .Range(.[D12], .[D56636].End(xlUp))
For Each ky In d.keys
If InStr(a, ky) > 0 Then a.Offset(, 12).Resize(, 32) = d(ky): Exit For
Next
Next
End With
End Sub

複製代碼

Jess

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

17^#

發表於 2011-5-10 22:41 | 只看該作者

這段就是你的資料範圍對嗎?
For i = 1 To 32
d(a & "") = Array(a.Offset(, i).Value) ', a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
Next i
這樣單筆資料還是只有4欄
改成
Dim Ar(32)
For i = 0 To 31
Ar(i) = a.Offset(, i).Value
Next i
d(a & "") =Ar
這樣就有32欄資料

學海無涯_不恥下問

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

18^#

發表於 2011-5-10 22:59 | 只看該作者

Ok了!
可是剛剛仔細檢查了一下，發現比對後傳回來的資料，有很多筆都不是正確的，真是快被這個模糊比對搞瘋了。

Jess

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

19^#

發表於 2011-5-10 23:06 | 只看該作者

回復 18# jesscc

資料不正確有可能是SHEET2的字串中含有2組以上的關鍵字
程式會認定第一個比對到的關鍵字做判斷
或許你要在關鍵字中歸類下功夫
上傳你的關鍵字清單及錯誤的資料看看才能確定出錯的原因

學海無涯_不恥下問

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

20^#

發表於 2011-5-10 23:38 | 只看該作者

因為資料庫太龐大，我整理一些較具代表性的，明天傳上來，讓您看看。真的好感謝你，幫我解決了好多問題!

Jess