vba find 查找出来的数据不是唯一，d出错误窗口并退出？

嗨，非常感谢您向我咨询关于VBA的问题。

根据您的描述，您在使用VBA的Find函数时遇到了一些问题。您提到，Find函数查找到的数据不唯一，导致出现错误窗口并退出。这可能是因为您的代码中缺少了一些错误处理的逻辑。

为了解决这个问题，您可以在调用Find函数之前添加一些判断逻辑，以确保查找到的数据是唯一的。例如，您可以在执行查找之前使用CountIf函数来计算符合条件的单元格数目，如果数目大于1，则可以d出错误窗口并退出。您也可以使用FindNext函数来查找下一个匹配项，以确保找到所有符合条件的单元格。

另外，您还可以考虑使用On Error语句来处理错误。通过在代码中添加On Error语句，您可以在发生错误时执行特定的 *** 作，而不是直接退出程序。例如，您可以在发生错误时d出一个自定义的错误窗口，并提示用户更改查找条件。

希望这些提示对您有所帮助。如果您需要进一步的帮助，请随时联系我。

on error goto XXX

…………

XXX：

exit

遇到错误跳转，跳转到的地方放一句exit就中止整个vba运行了。

用On error goto 屏蔽实现，下面是一段示例代码，表达式中分母为0的逻辑错误，如果不用on error goto 跳转就会中断代码，d出错误提示框，你可以试试，参考一下！

Option Explicit

Sub test()

    Dim a As Integer

    On Error GoTo ll

    MsgBox 2 / a

ll:

    MsgBox "error jump"

    Exit Sub

End Sub

---