[發問] 如何讓資料比對具有唯一性???

本帖最後由 atuan207 於 2011-5-20 14:10 編輯

我用oobird大大所給的程式碼做資料庫的比對

(而目前的資料庫中不具關聯性，因為未建立)
功能是sheet2、3當成資料庫，sheet1的A、B行各自當成一個比對資料的值
找到資料後再丟回sheet1的C、D、E、F、G行

oobird大大所提供的程式碼如下:
Sub yy()
Dim c As Range, i%
With Sheet1
      For i = 2 To .[a65536].End(3).Row
         Set c = Sheet2.[a:a].Find(.Cells(i, 2))
         If Not c Is Nothing Then
            .Cells(i, 3).Resize(, 2) = c(1, 2).Resize(, 2).Value
         End If
         Set c = Sheet3.[a:a].Find(.Cells(i, 1))
         If Not c Is Nothing Then
            .Cells(i, 5).Resize(, 3) = c(1, 2).Resize(, 3).Value
         End If
      Next
End With
End Sub

自己測試發現有些問題，像如果A、B行的資料輸入錯誤，(正確值為12312)，而我只輸123
當資料庫中有12311、12312，它會複製12311的資料過來，
且剛剛又測試，輸入0，資料庫中有一個資料代碼是01居然去抓這筆資料

該如何讓搜尋時每個資料都具有單一性???
一定要輸入的資料完全正確才會出現，錯誤時則空白???

請教各位大大

樓主熱帖

chin15

中學生 Rank: 2

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

2^#

發表於 2011-5-20 14:41 | 只看該作者

Set c = Sheet2.[a:a].Find(.Cells(i, 2))
這樣是模糊查找，查找近似的值
若你要的是精確的值
Set c = Sheet2.[a:a].Find(.Cells(i, 2),,,1)
改這樣即可

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-5-20 14:41 | 只看該作者

本帖最後由 GBKEE 於 2011-5-20 14:43 編輯

回復 1# atuan207
Set c = Sheet2.[a:a].Find(Cells(I, 2), LOOKAT:=xlWhole) [儲存格內容須完全相符].
使用Find時會根據上一次的搜尋的設定來搜尋,會有這誤差是你前一次搜尋的設定沒有勾選 [儲存格內容須完全相符].

TOP

atuan207

中學生 Rank: 2

帖子: 27
主題: 7
精華: 0
積分: 69
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-4-19
最後登錄: 2012-6-26

4^#

發表於 2011-5-20 15:58 | 只看該作者

感謝兩位大大的協助，

剛剛小弟有去搜尋一下資料，
有人提到用
{=VLOOKUP(參數A, 參數B, 參數C, 參數D)
參數A：要拿去比對的資料
參數B：要比對的表格範圍
參數C：相符時要回傳的資料「欄」索引
參數D：false表示要「完全相符」才視為相符 }
不過這好像是在excel表格中使用，

後來想到上次Hsieh大大
給小弟的程式中似乎有這樣一段

Hsieh 發表於 2011-4-25 23:24

[/quote]

但之前不懂原來那是這麼用的，
現在瞭解了
感謝大大們的協助

TOP