如何用非常简单的代码修复运行时错误1004？

Question

我有一些最简单的代码，但是我不明白为什么excel会向我抛出一些错误/

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

在A列的sheet2中，我有值

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))

为什么设置rngcells不起作用？

还！您能帮忙了解以下内容吗？

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

Answer 1

您没有在Set语句中定义第二次调用"<p>"的工作表名称

尝试：

Range

---

这将为您提供从With Worksheets("Sheet2") Set rngcells = .Range("A1", .Range("A1").End(xlDown)) End With 开始并向下的最后一行。

A1

如果您在A列中只有3个填充的单元格，那么您的checkvalue = Sheets("Sheet2").Range("A1").End(xlDown).Row 行也应该为您提供正确的Lastrow。也许看一下电子表格会很清楚。发布数据的屏幕截图。