0

我有一些宇宙中最简单的代码，但我不明白为什么 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给我最后填充行的正确值？

4

1 回答 1

1

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

尝试：

With Worksheets("Sheet2")

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

End With

这将为您提供 Lastrow 的起点A1和终点。

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

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

于 2019-08-13T07:12:16.290 回答