Vba 执行循环时条件函数上的应用程序定义或对象定义错误

我编写了以下代码，以复制到特定工作表范围的单元格中（1）特定工作表范围（2）的值在特定工作表范围内不匹配（3）：

当有一个

SW

（工作表2指定范围的特定值）与工作表3指定范围的值不匹配时，我的代码在指令中停止：

 If IsError(WorksheetFunction.Match(SW, qrycolvaly, 0)) = True Then

错误如下：

1004:应用程序定义或对象定义错误

我尝试过很多事情，特别是在调暗变量时更改变量的类型，但我无法让它工作

---

有人能告诉我我做错了什么吗？

使用

应用程序.Match

代替

工作表函数.Match

，它是VBA等效函数，不会生成错误消息

然后，您将使用两个VBA函数（带

IsError

），而不是VBA和Excel函数

WorksheetFunction.Match

返回Excel值

#N/A

，而

Application.Match

返回一个VBA错误值，IsError识别该值（错误2042）

 If IsError(WorksheetFunction.Match(SW, qrycolvaly, 0)) = True Then