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

Question

我编写的代码将第一张纸上的所有行复制并粘贴到另一张纸上的最后一行。

我尝试了其他一些建议，但是现在其中的一些建议可以使用我已有的代码，并且破坏了我的原始代码，必须重写。

1。根据A列中的数据查找复制范围中最后使用的行

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

2。根据A列中的数据查找目标范围内的第一行空白

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

3。复制和粘贴数据

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

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

Answer 1

{xor}

或

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