如何在非常简单的代码中修复运行时错误1004?

Question

我有一些宇宙中最简单的代码，但我不明白为什么 excel 会给我一些错误/

我尝试了一些功能等，但仍然有此错误。

在 A 列的工作表 2 中，我有值

Ra
S
S

---

Public Sub Data()
Dim rngSinglecell As Range
Dim rngcells As Range
Dim i As Long
Dim lastrow As Long
Dim checkvalue As Long
checkvalue = Sheets("Sheet2").Cells(Sheets("sheet2").Rows.Count, "A").End(xlUp).Row

Set rngcells = Sheets("Sheet2").Range("A1", Range("A1").End(xlDown))

为什么设置 rngcell 不起作用？

也！您能否帮助了解以下内容：

checkvalue = Sheets("Sheet2").Cells(Sheets("sheet2").Rows.Count, "A").End(xldown).Row，我收到一些疯狂的数字，而我应该跳到最后一个填充的单元格，只有 3 个填充单元格？为什么使用xlUp为最后一个填充行提供正确的值？

Answer 1

您没有在 Set 语句中为第二次调用Range定义工作表名称

尝试：

With Worksheets("Sheet2")
Set rngcells = .Range("A1", .Range("A1").End(xlDown))
End With

---

这将为您提供从A1开始向下的最后一行。

checkvalue = Sheets("Sheet2").Range("A1").End(xlDown).Row

如果您的 A 列中只有 3 个填充单元格，您的行checkvalue = Sheets("Sheet2").Cells(Sheets("sheet2").Rows.Count, "A").End(xlUp).Row也应该为您提供正确的最后一行。也许看一下电子表格会很清楚。发布数据的屏幕截图。