Ошибка времени выполнения '1004' Не удалось получить свойство Match класса WorksheetFunction

Question

nSectionSetupRow = Application.WorksheetFunction.Match( _
      Worksheets("Items").Cells(nRow, 1), _
      Worksheets("SectionSetup").Range("B1:B" & _
      Worksheets("SectionSetup").Range("A1").End(xlDown).Row), 0)

Я столкнулся с проблемой здесь и использую лист Excel 97-2003, тип Excel

Answer 1

Application.WorksheetFunction.Match вызовет ошибку времени выполнения при отсутствии совпадения.

Application.Match вместо этого вернет значение ошибки, которое вы можете проверить на использование IsError()

Например:

Dim m 'variant
m = Application.Match(lookupValue, lookupRange, 0)
If Not IsError(m) Then
    'got a match
Else
    'no match
End If