仅从 Sheet 复制最后一行并将其粘贴到另一张表的最后一行

Question

我的代码复制了第一个 sheet 的所有行并将其粘贴到另一个 sheet 的最后一行。

我已经尝试了一些其他的建议，但现在它们都适用于我的代码，它破坏了我不得不重写的原始代码。

1.Find 基于 A 列数据的复制范围中最后使用的行

  lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row

2.Find 基于 A 列数据的目标范围中的第一个空行

   'Offset property moves down 1 row
    lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

3.Copy & 粘贴数据

  wsCopy.Range("A2:H" & lCopyLastRow).Copy _
          wsDest.Range("A" & lDestLastRow)

我只想将 wsCopy 上的最后一行粘贴到 wsDest 上的下一个可用行。我一直从 wsCopy 获取所有行。

Answer 1

wsCopy.Range("A" & lCopyLastRow & ":H" & lCopyLastRow).Copy _
      wsDest.Range("A" & lDestLastRow)

或

wsCopy.Rows(lCopyLastRow).Range("A1:H1").Copy _
      wsDest.Range("A" & lDestLastRow)'Range A1:H1 here is *relative* to the row

或

wsCopy.Cells(lCopyLastRow, "A").Resize(1, 8).Copy _
      wsDest.Range("A" & lDestLastRow)

Copy the last row ONLY from a Sheet and paste it to another sheets last row