vba - 提供给我的目的地时，最后一行定义是无效的限定符

Question

只需一个简单的功能即可找到最后一行，然后将单元格复制到目的地

Sub CMS()
'
' CMS Macro
'

    Dim LastRow As Long

    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    Worksheets("Sheet5").Range("B2").Copy _
            Destination:=LastRow.Range("B1")
    Worksheets("Sheet5").Range("A2").Copy _
            Destination:=LastRow.Range("B2")
    Worksheets("Sheet5").Range("B4:R4").Copy _
            Destination:=LastRow.Range("C2")
End Sub

我基于此 Ron De Bruin样本

Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    MsgBox LastRow
End Sub

以及来自 Excel VBA docs 的副本

Worksheets("Sheet1").Range("A1:D4").Copy _ 
    destination:=Worksheets("Sheet2").Range("E5")

但是，我收到了我的 LastRow 在我的目的地是一个无效的限定符，我该如何解决这个问题？

Answer 1

你有 LastRow声明为 Long ...

Dim LastRow As Long

...但是然后尝试像 Range 一样使用它目的:

LastRow.Range("B1")

使用 Cells反而:

Dim LastRow As Long

With ActiveSheet
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    Worksheets("Sheet5").Range("B2").Copy _
            Destination:=.Cells(LastRow, 2)
    Worksheets("Sheet5").Range("A2").Copy _
            Destination:=.Cells(LastRow + 1, 2)
    Worksheets("Sheet5").Range("B4:R4").Copy _
            Destination:=.Cells(LastRow + 1, 3)
End With

注意 - 您的预期目的地不清楚，所以上面的地址可能是错误的(我不确定 B2 等应该是什么意思引用一行)。这至少会让你摆脱编译错误。