返回列表 上一主題 發帖

[發問] 資料比對問題

mark761222

帖子
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
收藏 分享

mark761222

帖子
57 
主題
21 
精華
0 
積分
83 
點名
0  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2022-9-13 
5#
發表於 2015-10-11 14:25 | 只看該作者
我懂了! 感謝

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
4#
發表於 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

TOP

mark761222

帖子
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

准提部林

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

        靜思自在 : 人生沒有所有權，只有生命的使用權。
返回列表 上一主題