返回列表下一主題上一主題發帖

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

s13030029

　暱稱: 伊恩

中學生 Rank: 2

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2022-2-9 10:51 | 只看該作者

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

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

樓主熱帖

s13030029

　暱稱: 伊恩

中學生 Rank: 2

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

7^#

發表於 2022-2-10 10:25 | 只看該作者

回復 6# samwang

原來如此~
感謝您~

TOP

samwang

大學生 Rank: 4

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

6^#

發表於 2022-2-9 17:43 | 只看該作者

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

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

TOP

s13030029

　暱稱: 伊恩

中學生 Rank: 2

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

5^#

發表於 2022-2-9 16:41 | 只看該作者

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

TOP

samwang

大學生 Rank: 4

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

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