返回列表 上一主題 發帖

[發問] 資料比對問題

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 
2#
發表於 2015-10-11 13:43 | 顯示全部帖子
TO 准提部林
大大可以請問一下
如果我要比對更多資料，例如依照我那個圖在多比較一項類別，是不是增加下面紅字部分?
但是我修改完，卻會出現引數錯誤，是要比對3筆資料要有另外的寫法?
xD(xR & xR & xR (1, 2, 3)) = ""
If xD.Exists(xR & xR & xR(1, 2, 3))

TOP

mark761222

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

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題