返回列表 上一主題 發帖

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

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

想請問要如何比對整列資料是否有存在資料庫中
擷取.PNG
2022-2-9 10:50

回復 1# s13030029


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

TOP

回復 2# samwang

可用msgbox回答存不存在就好
Book1.rar (11.45 KB)

TOP

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

回復 4# samwang
想再請教一下
如果存在的話,能顯示是在資料庫中的第幾列嗎?
感謝~~

TOP

回復  samwang
想再請教一下
如果存在的話,能顯示是在資料庫中的第幾列嗎?
感謝~~
s13030029 發表於 2022-2-9 16:41



If xD(T) > 0 Then MsgBox T & ": 存在" & xD(T) & "列"

TOP

回復 6# samwang

原來如此~
感謝您~

TOP

        靜思自在 : 待人退一步,愛人寬一寸,就會活得很快樂。
返回列表 上一主題