匹配方法的VBA语法

Question

y = Application.WorksheetFunction.Match(51187, Sheets("New Master Data 6.1").Range(Cells(1, 1), Cells((Rows.Count), 1)), 0)

我无法找到我的语法错误。请帮助：）

Answer 1

如果＆＃34;新主数据6.1＆＃34;因为在常规代码模块中，任何没有合格工作表的optim()实例都会引用活动工作表。

我会使用类似的东西：

Cells()

请注意，删除With Sheets("New Master Data 6.1") y = Application.Match(51187, .Columns(1), 0) End with If Not IsError(y) Then 'do something with y Else 'value was not found End If 可以测试返回值，而不是在没有匹配时触发运行时错误。