Excel 处理选择时出错。发现工作不正常

我有一个excel，我必须检查两个帐户列表中的哪个帐户中是否存在帐户。否则，我必须转到下一个帐户。我使用的代码是：

For x=1 to acc_num
Sheets("List1").Select
Range("A1:A100").Select
On Error GoTo CheckList2
Selection.Find(what:=x).Activate
GoTo Found

CheckList2:
Sheets("List2").Select
Range("A1:A100").Select
On Error GoTo NotFound
Selection.Find(what:=x).Activate

Found:
'More Code to execute if account is found

NotFound:
On Error GoTo 0
Next x

当在列表1中找不到帐户时，仍然会出现错误弹出窗口：运行时“91”：对象变量或未设置块

---

我不明白为什么错误处理没有发挥作用。请帮帮我。

看来您的错误处理程序正在互相妨碍。在启动新的错误处理过程之前，请使用清除所有现有错误

On Error GoTo -1

错误转到的MSDN条目如下：

---

我建议你做的第一件事：。第二-使用类似这样的东西：1 Set rng=Selection.Findwhat:=x2如果不是，rng什么都不是那么…非常感谢：…为我做了这个把戏…下次启动VBA代码时会注意选择/激活如果我在代码中更改了这些东西，这将花费很多时间，而且我太懒了：P

Sub test()
Dim x, acc_num As Integer
x = 1
acc_num = 10
For x = 1 To acc_num
Sheets("Sheet1").Select
Range("A1:A100").Select
On Error GoTo CheckList2
Selection.Find(what:=x).Activate
GoTo Found

CheckList2:
Sheets("Sheet2").Select
Range("A1:A100").Select
On Error GoTo -1
On Error GoTo NotFound
Selection.Find(what:=x).Activate

Found:
'More Code to execute if account is found

NotFound:
On Error GoTo -1
Next x
End Sub