使用VBA查找第一个不匹配的行

Question

我想知道是否有任何方式可以查看匹配功能在vba中失败的位置？我希望能够删除电子表格中与行中的行不匹配的行。我正在使用错误处理程序来检测不匹配。

match = Application.match(Key, rng2, 0)

If IsError(match) Then
MsgBox ("NEW ROW!")
End If

Answer 1

测试结果：

Sub fhjshf()
    s = Application.Match(a, b, c)
    If CStr(s) = "Error 2042" Then
        MsgBox "Match failed"
    End If
End Sub

Answer 2

如果要在VBA中找到第一个不匹配的行，请尝试：

result = ActiveSheet.Evaluate("MATCH(TRUE,(" & rng.Address & "<>" & key & "),0)")

If IsError(result) Then
    MsgBox ("No new rows")
End If