excel - 替换字符串时如果没有找到错误(选择替换，查找替换)

Question

这是我在运行宏时收到的错误。当 find 函数通过实现 if 语句找不到我正在搜索的内容时，我想我已经解决了。不知怎的，它仍然无法正常工作......

如果我正在搜索的值在我的记录中不存在，我如何跳过查找/替换语句？



我的 VBA 代码:

Columns("D:D").Select
Set Example1 = Selection.Find(what:="Example One", LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:=xlByRows)
If Not Example1 Is Nothing Then
Selection.Replace what:="Example One", Replacement:= _
    "Test One A", lookat:=xlPart, SearchOrder:=xlByRows _
    , MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
    FormulaVersion:=xlReplaceFormula2
End If

Set Example2 = Selection.Find(what:="Example Two ", LookIn:=xlFormulas, lookat:=xlPart, SearchOrder:=xlByRows)
If Not Example2 Is Nothing Then
Selection.Replace what:="Example Two ", Replacement:= _
    "Test One B", lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
    False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:= _
    xlReplaceFormula2
End If

Answer 1

快点:on error resume next .当出现错误时，这会跳转到下一行。不是最好的选择，但在这段代码中它可能会有所帮助