Question

我有一个Excel VBA宏，需要将选择从单元格A3:K3向下复制到列L中的最后一行数据。我有这个来获取最后一个单元格

Dim lastcell As Long
lastcell = ActiveSheet.Range("L" & cell.Count).End(xlUp).cell

我认为我必须向左偏移，将选择的大小调整为a列，然后上升到最后一行。可能有不同的方法可能会将一些变量保存为数据的最后一行，选择A3:k3到最后一行。

Answer 1

这会将 A 列 K 行 3 通过 lastcell 复制到另一张表中：

Sub qwerty()
    Dim lastcell As Long
    lastcell = ActiveSheet.Range("L" & Rows.Count).End(xlUp).Row
    Range("A3:K" & lastcell).Copy Sheets("Sheet2").Range("A1")
End Sub

将选择的大小调整为数据的最后一行

1 个答案: