標題:
VBA 如何比對整列資料???
[打印本頁]
作者:
s13030029
時間:
2022-2-9 10:51
標題:
VBA 如何比對整列資料???
想請問要如何比對整列資料是否有存在資料庫中
[attach]34650[/attach]
作者:
samwang
時間:
2022-2-9 12:03
回復
1#
s13030029
請附上檔案和說明如何比對呈現結果，謝謝
作者:
s13030029
時間:
2022-2-9 15:02
回復
2#
samwang
可用msgbox回答存不存在就好
[attach]34651[/attach]
作者:
samwang
時間:
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
作者:
s13030029
時間:
2022-2-9 16:41
回復
4#
samwang
想再請教一下
如果存在的話，能顯示是在資料庫中的第幾列嗎?
感謝~~
作者:
samwang
時間:
2022-2-9 17:43
回復 samwang
想再請教一下
如果存在的話，能顯示是在資料庫中的第幾列嗎?
感謝~~
s13030029 發表於 2022-2-9 16:41
If xD(T) > 0 Then MsgBox T & ": 存在
第
"
& xD(T) & "列"
作者:
s13030029
時間:
2022-2-10 10:25
回復
6#
samwang
原來如此~
感謝您~
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
