只复制最后一行

Question

具有将完整列复制到另一个工作表的宏。

不过，目前我需要一个宏来复制最后一行的数据。

例如，如果我有以下内容：

细胞A1 = 1，细胞A2 = 2，细胞A3 = 3，细胞A4 =和(A1:A3)，细胞A5 =空白

我希望宏只复制A4。我这样做是为了整个专栏(A到E) --谢谢

已经有人帮我完成了下面的代码，它将所有数据复制到最后一行，不包括最后一行。我需要它做相反的事情，只复制最后一行

Dim lrow As Long

With wbk4.Sheets("Sheet1")
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A1", "E" & lrow - 1).Copy
wbk2.Sheets("Sheet1").Range("XD1").PasteSpecial xlPasteAll
End With

Answer 1

通过快速检查代码，会不会是：

.Range("A1", "E" & lrow - 1).Copy

改为：

.Range("A" & lrow - 1, "E" & lrow).Copy