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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

論壇贊助勳章

14^#

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

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

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

模糊比對test.rar (16.19 KB)

Jess

chin15

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

13^#

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

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

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 的話他顯示要哪個?

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

論壇贊助勳章

11^#

發表於 2011-5-10 00:46 | 只看該作者

我的邏輯錯了，我以為程式會去分辨最接近"研發"的字串，"研發ccab"--> a離研發最近 ^^，我實在是太...

只差最後一步了，不過現在整個腦袋已經亂掉了，謝謝 Hsieh 大給我的觀念!
還有 oobird 大大寫的我比較能夠看得懂，剛剛用它試著去改我的工作檔案，可是一直出現錯誤，搞得我頭昏腦漲的，可不可以我把工作檔案傳來，您指點我一下該如何改?

Jess

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2011-5-9 23:42 | 只看該作者

本帖最後由 Hsieh 於 2011-5-9 23:47 編輯

"研發ccba"怎會是有連續字串為"研發b"呢?
這樣說吧
你是要在"研發ccba"中找看看是否有"研發a"或"研發b"
那你把"研發ccba"，每3個字切割會得到
"研發c"、"發cc"、"ccb"、"cba"
這裡面會有"研發a"或"研發b"嗎?

學海無涯_不恥下問

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

論壇贊助勳章

9^#

發表於 2011-5-9 22:28 | 只看該作者

本帖最後由 jesscc 於 2011-5-9 22:39 編輯

喔，不!sheet1才是資料庫。
因為sheet2裏的字串都比較長，比較亂，所以我在想只要在sheet1裏比對到其中幾個連續字串都符合，就將相關資料抓回sheet2，是我的想法剛好相反嗎?原始檔案看起來像是這樣比對的啊!

這樣說好了，如果sheet2裏有一筆資料"研發ccab"，在sheet1裏應該是抓"研發a"吧!
如果sheet2裏有一筆資料"研發ccba"，在sheet1裏應該是抓"研發b"吧!
純粹個人思考。

Jess

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2011-5-9 21:45 | 只看該作者

先從你的需求開始，你是要在sheet2中尋找有sheet1的A欄字串
也就是說Sheet2中有包含Sheet1的字串，然後將代號、類別填到Sheet2
那試問，"研發A"、"研發B"在Sheet2中的資料你如何能找到?
A8內容"(100年3月2日)研發1"
他並未出現"研發A"或"研發B"
所謂模糊比對是說字串中包含關鍵字，還可能出現其他字元
就因為你的關鍵字現在是"研發A"或"研發B"
那麼要在尋找字串中有出現"研發A"或"研發B"
才會被認為比對成功

學海無涯_不恥下問

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

論壇贊助勳章

7^#

發表於 2011-5-9 20:39 | 只看該作者

本帖最後由 jesscc 於 2011-5-9 20:40 編輯

非常感謝各位先進的熱心指導，各位大大的功力小弟只能說佩服，但小弟真正的瓶頸，仍未克服，我修改了一下sheet1中的資料，增加了"研發A"、"研發B"並多加了兩個欄位，如此一來sheet2中只要有"研發"字眼的，就都比對不到了，照道理，這並沒有違反資料庫正規化資料唯一性的要求，是VBA沒有這樣的查詢函數嗎?

模糊比對修改後.rar (15.47 KB)

Jess