VBA 如何比對整列資料???

想請問要如何比對整列資料是否有存在資料庫中

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

2^#

發表於 2022-2-9 12:03 | 只看該作者

回復 1# s13030029

請附上檔案和說明如何比對呈現結果，謝謝

TOP

s13030029

　暱稱: 伊恩

中學生 Rank: 2

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

3^#

發表於 2022-2-9 15:02 | 只看該作者

回復 2# samwang

可用msgbox回答存不存在就好

Book1.rar (11.45 KB)

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

4^#

發表於 2022-2-9 15:42 | 只看該作者

回復 3# s13030029

請測試看看，謝謝

Sub test()
Dim Arr, xD, T$, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr)
T = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4) & Arr(i, 5)
xD(T) = i
Next
Arr = [g1].CurrentRegion
For i = 2 To UBound(Arr)
T = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4) & Arr(i, 5)
If xD(T) > 0 Then MsgBox T & "存在"
Next
End Sub

TOP

s13030029