vba - 使用最后一行复制和粘贴，错误 91

Question

我正在尝试根据范围中的最后一行复制和粘贴一系列值，这意味着行数会有所不同，但列数将始终保持不变。

我为此编写的代码继续返回错误:

Object Variable or With Block Variable not set

这个错误是什么意思，我该如何解决？

Sub update()

Dim LR As Range
Dim Revise As Range

LR = Cells(Rows.Count, "M").End(xlUp).Row

Set Revise = Range("M1:M" & LR)

Revise.Copy

Sheets(Weekly).Select
Cells(1,1).PasteSpecial xlPasteAll


End Sub

Answer 1

你的问题是:

你定义了LR如Range这是一个对象

您正在尝试为其分配一个值，而不使用 Set关键字(如 Set Revise )

如果添加 Set ，您将遇到错误 13，因为您试图将数字放入 Range 中! ;)

更正的代码:

Sub update()
    Dim LR As Double
    Dim SrcWS As Worksheet
    Set SrcWS = ThisWorkbook.Sheets("Sheet1")

    With SrcWS
        LR = .Cells(.Rows.Count, "M").End(xlUp).Row
        .Range("M1:M" & LR).Copy
    End With 'SrcWS 

    ThisWorkbook.Sheets("Weekly").Cells(1,1).PasteSpecial xlPasteAll
End Sub