Найти первую несоответствующую строку с 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