標題: [發問] 資料比對問題 [打印本頁]

---

作者: mark761222    時間: 2015-10-11 00:11     標題: 資料比對問題

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

[attach]22179[/attach]

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

---

作者: 准提部林    時間: 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

---

作者: mark761222    時間: 2015-10-11 13:43

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

---

作者: 准提部林    時間: 2015-10-11 13:56

回復 3# mark761222


xD(xR & xR(1, 2) & xR(1, 3)) = ""

設 xR 為 A2, xR(1, 2) 則為 B2, xR(1, 3) 為C2

---

作者: mark761222    時間: 2015-10-11 14:25

我懂了! 感謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)