debugging - Excel VBA：“excel vba 运行时错误 1004”应用程序定义或对象定义错误

Question

我在一个模块中有这一行，当我尝试运行它时，它不断吐出一个运行时错误 1004。

任何人都可以帮忙吗？

我猜这与 Range 的引用方式有关，但我不确定。这对我来说都是新的。

rngFirst = ThisWorkbook.Worksheets("Still In Progress").Range("G" & 1 & ":G" & lw)

提前谢谢了

Answer 1

这对我有用：

Sub Button1_Click()

Dim rngFirst As Range
Dim int1 As Integer

int1 = 2

Set rngFirst = ThisWorkbook.Worksheets("Sheet1").Range("G" & 1 & ":G" & int1)

rngFirst.Select

End Sub

在我使用 Dim 和 Set 之前，我遇到了和你一样的错误。

Answer 2

您的范围未正确定义。本质上，您将范围设置为：

“仍在进行中！G1：G1w”。

您需要将 rngFirst 公式的最后一位设置为一个数字（例如，在范围的右下角）。就像是：

...Range("G" & 1 & ":G" & 20)

如果您的数据底部位于第 20 行。