excel - 出错时转到在一个模块中工作，但不在另一个模块中

Question

我不明白为什么以下代码在模块中工作......

On Error GoTo NO875

Workrange.Find("875 - COMPLEMENTO IT MANUAL").Select

On Error GoTo 0

'*****errorhandler****

NO875:

Workrange.Find("280 - MEJORA V. C. ABS.").Offset(0, 1).EntireColumn.Select
Selection.insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeft
Workrange.Find("280 - MEJORA V. C. ABS.").Offset(0, 1).Value = "875 - COMPLEMENTO IT MANUAL"

但是当我在另一个模块中复制粘贴相同的代码时，会显示以下错误消息:

Object variable or with block variable not set

此外，在第一个模块中，我可以使用表达式 xlFormatFromLeft ，但在另一个模块中，我需要写 xlFormatFromLeftOrAbove .

知道为什么会这样吗？

提前致谢。

Answer 1

添加 Option Explicit到每个模块的顶部。

这有几个好处，您将被告知未声明的变量，调试消息将更加量身定制，并且应该突出显示错误行。

在这种情况下，当您运行宏时，未声明变量的行将突出显示。注意这里的变量是在不同的范围内声明的，Workrange可能在一个模块的模块级别声明，但未在另一个模块中声明。