Excel VBA：将单行复制到另一个工作表中，而每次复制偏移量减少一个

Question

我今天刚开始学习 VBA，完全是菜鸟。我基本上只是按照这个人的指示做了奇迹：www.excelcampus.com/vba/copy-paste-another-workbook/。但是，现在我想反过来做。这意味着从 Sheet1 复制“A2:IG2”并将其粘贴到“A2:IG2”Sheet2，然后复制“A3:IG3”并将其粘贴到“A2:IG2”Sheet2。我想保持这个循环，直到我从 Sheet1 复制了所有值。

Sub Copy_Paste_Below_Last_Cell()
'Find the last used row in both sheets and copy and paste data below existing data.

  'Open method requires full file path to be referenced.
  Workbooks.Open "C:\Users\xxxx\OneDrive\Desktop\Sheet2.xlsx"

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long

  'Set variables for copy and destination sheets
  Set wsCopy = Workbooks("Sheet2.xlsx").Worksheets("Sheet2")
  Set wsDest = Workbooks("Sheet1.xlsx").Worksheets("Sheet1")

  '1. Find last used row in the copy range based on data in column A
  lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Offset(1).Row

  '2. Find first blank row in the destination range based on data in column A
  'Offset property moves down 1 row
  lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row

  '3. Copy & Paste Data
  wsCopy.Range("A2:IG2" & lCopyLastRow).Copy _
    wsDest.Range("A" & lDestLastRow)
  Workbooks("Sheet2").Close SaveChanges:=True
End Sub

上面的代码是一个我认为可以工作的修改版本，但它不是专门复制“A2:IG2”，而是复制范围 A:IG 和偏移行上的所有可用日期。

Answer 1

只改变最后一部分

'3. Copy & Paste Data
wsCopy.Range("A2:IG2").Copy _
wsDest.Range("A" & lDestLastRow + 1)
Workbooks("Sheet2").Close SaveChanges:=True