excel - 将数据从 1 个 excel 传输到另一个 excel 的宏

Question

我是 VBA 宏的新手。我创建了一个宏，可以将数据从一个 excel 文件传输到另一个文件。但是，我已经在其他 excel 中存在数据，宏应该将数据粘贴到现有数据下方。但是我的代码正在替换我不想替换的现有数据。下面是我的代码和一些截图。

下面是数据传输到的目标 excel 文件。现在，那里已经存在数据，所以我的宏应该粘贴或传输现有数据下方的数据。但是，我的宏替换了我不想要的现有数据。请帮助我解决这个问题......

我的代码：-

Dim shSF As Worksheet, sh1 As Worksheet
Dim wb As Workbook, LastRow As Long
Dim wt As Worksheet
Dim i As Long


 Set shSF = Worksheets("Sheet2")
 
 
 LastRow = shSF.Range("A" & Rows.Count).End(xlUp).Row

 Set wb = Workbooks.Open("C:DestinationPath.xlsm")
 Set sh1 = wb.Worksheets("Sheet2")
 
 shSF.Range("A1:C" & LastRow).Copy Destination:=sh1.Range("A1")
 
 Set wt = Worksheets("Sheet1")

 wt.Range("A2:B" & LastRow).ClearContents


 wb.Save

End Sub

标签： excelvba

Answer 1

更改为这些行

Set sh1 = wb.Worksheets("Sheet2")
Dim lr As Long
lr = sh1.Cells(Rows.Count, 1).End(xlUp).Row + 1
shSF.Range("A1:C" & LastRow).Copy Destination:=sh1.Range("A" & lr)