多个条件语句判断不准确求助!
Dim I As Integer: Dim J As Integer: Dim K As Integer'如果想一次找到所有同类项,只需要把行15注释掉,再使用行17和行30就行了
'不管条件再多,就是并下去就行了
Private Sub CommandButton1_Click()
For I = 1 To Application.CountA(Sheet1.Columns(1)) - 1
Range(Cells(I, 1), Cells(I, 22)).Interior.ColorIndex = 2 '清除底色
Next I
For I = 1 To Sheet2.Application.CountA(Sheet1.Columns(1)) - 1
Sheet2.Range(Sheet2.Cells(I, 1), Sheet2.Cells(I, 22)).Interior.ColorIndex = 2
Next I
I = CInt(Trim(InputBox("请输入行号", "每次一行", 2))) '确定行号,否则所有有同类项的行的底色都被改变 行15
K = 0
'For I = 1 To Application.CountA(Sheet1.Columns(1)) - 1 '行17
For J = 1 To Sheet2.Application.CountA(Sheet1.Columns(1)) - 1
If Sheet2.Cells(J, "E").Value = Cells(I, "F").Value _
Then 'And Sheet2.Cells(J, "F").Value = Cells(I, "E").Value _
'And Sheet2.Cells(J, "F").Value = Cells(I, "N").Value _
'And Sheet2.Cells(J, "J").Value = Cells(I, "J").Value Then
Sheet2.Range(Sheet2.Cells(J, 1), Sheet2.Cells(J, 22)).Interior.ColorIndex = 5 '改变已经找到的符合要求行的底色
Range(Cells(I, 1), Cells(I, 22)).Interior.ColorIndex = 5
K = K + 1 '统计同类行的数量
End If
Next J
If K > 0 Then
MsgBox "在 <" + Sheet2.Name + "> 表中共找到与 <" + Sheet1.Name + "> 第" + CStr(I) + "行数据吻合的数据" + CStr(K) + "条!", vbInformation, "这么难,还是被我找到了!"
Else
MsgBox "没有找到与 <" + Cells(I, "F").Value + "> 匹配的项目!", vbInformation, "很遗憾,我没有找到有价值的线索!"
End If
'Next I '行30
End Sub
此代码是用在EXCEL中对比两个EXCLE表格的,必须同时满足几个条件的才标记颜色跳出来,但是这段代码有点问题,挑出的数据是2个,按道理是条件越多挑出的东西越准确,麻烦哪位大侠看看那里有问题