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

运行时错误“ 1004”无法获取WorksheetFunction类的Match属性

1 个答案: