将最后5个活动单元格复制并粘贴到列中

Question

我正在尝试复制D列中的最后5个活动单元格。每天我们添加一个新列，摘要数据需要反映这一点。

我需要复制这最后五个数字，并将它们粘贴到不同工作表中的一行中。

我已经能够选择每个单独的单元格并进行复制，但是我一直在努力将它们粘贴到另一个工作表中。

Range("D1000").End(xlDown).Select
ActiveCell.Offset(-4,0)

我不能同时突出显示所有五个数字。

Answer 1

以下代码相对于最后一行是动态的（计算D列的最后一行，而不使用固定值-1000），您可以修改并尝试：

Option Explicit

Sub test()

    Dim LastRow As Long

    'Change worksheet name if needed
    With ThisWorkbook.Worksheets("Sheet1")
        'Find the last row of co;lumn D
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
        .Range("D" & LastRow - 4 & ":D" & LastRow).Copy
        .Range("F1").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    End With

End Sub

结果：