Dim int2 As Integer
For int1 = 2 To Range("A65536").End(xlUp).Row
If Cells(int1, 1).Value = Cells(int1, 3).Value And Cells(int1, 2).Value = Cells(int1, 4).Value Then
With Cells(int1, 5)
.Value = "pass"
.Interior.ColorIndex = 3
.Font.Color = 1
.HorizontalAlignment = xlCenter
End With
Else
With Cells(int1, 5)
.Select
.Value = "錯誤"
.HorizontalAlignment = xlCenter
End With
MsgBox "該行存在不匹配數據", vbCritical, "錯誤提示"
Exit Sub
End If
Next int1
End Sub
抱歉這個問題我在手機上面看到的早,但是編寫代碼需要測試,而我不在家沒有電腦,手機沒法測試,壹直拖到現在,也不知道您的問題解決掉了沒有。
不知道您的具體情況,暫時寫了這樣的代碼您試試是不是您想要的效果,有什麽問題再討論,祝您工作順利,希望我的回答能幫到您!