Excel 宏读取文本直到最后一行-1

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

但目前，我需要一个宏来只复制到最后一行的所有单元格，但不包括最后一行

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

单元格A1=1，单元格A2=2，单元格A3=3，单元格A4=Sum（A1:A3），单元格A5=空白

我希望宏复制所有单元格A1、A2和A3。因此，我认为逻辑是让所有单元格的代码都运行到空白（在本例中为A1到A4），然后排除最后一个单元格（A4），并复制上面的所有内容 我对整个列（A到E）都这样做 谢谢

我的公式（非常基本）：

---

如果最后一行基于列A，则可以尝试以下操作：

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

---

愚蠢的问题，但如果我只想单独复制最后一行呢？就我而言（A5、B5、C5、D5、E5）。请注意，最后一行不是常数（可以根据数据增加或减少）？不用担心，得到了第二个答案：）.Range（“A”&lrow，“E”&lrow）。复制

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