仅复制最后一行

Question

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

目前，我需要一个宏来仅复制带有数据的最后一行

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

Cell A1 = 1，Cell A2 = 2，Cell A3 = 3，Cell A4 = Sum（A1：A3），Cell A5 = Blank

我希望宏只复制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