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

[發問] 資料比對問題

mark761222

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-10-11 00:11 | 只看該作者

[發問] 資料比對問題

以下是我寫的程式與圖片
第一筆資料程式會比對了，如何讓他自動在比對之後的資料呢?

Sub 比對資料()
Dim i, j As Integer
i = 1
Do
i = i + 1

If Range("A" & i) = "" Then Exit Do '空白跳出
If Range("F2") = Range("A" & i) And Range("G2") = Range("B" & i) Then Range("I2") = "OK" Else Range("I2") = "NO"

End
Loop

End Sub

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

2^#

發表於 2015-10-11 12:22 | 只看該作者

Sub AZ1011()
Dim xR As Range, xD
Set xD = CreateObject("Scripting.Dictionary")
'以ＡＢ欄值為KEY納入字典檔　
For Each xR In Range([A2], [A65536].End(xlUp))
　　xD(xR & xR(1, 2)) = ""
Next
　
'以ＦＧ欄值為KEY比對是否存在於字典檔　
For Each xR In Range([F2], [F65536].End(xlUp))
　　If xD.Exists(xR & xR(1, 2)) Then xR(1, 4) = "OK" Else xR(1, 4) = "NO"
Next
End Sub

TOP

mark761222

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

3^#

發表於 2015-10-11 13:43 | 只看該作者

TO 准提部林
大大可以請問一下
如果我要比對更多資料，例如依照我那個圖在多比較一項類別，是不是增加下面紅字部分?
但是我修改完，卻會出現引數錯誤，是要比對3筆資料要有另外的寫法?
xD(xR & xR & xR (1, 2, 3)) = ""
If xD.Exists(xR & xR & xR(1, 2, 3))

TOP

准提部林