将特定行复制到上一行之后的另一个工作簿

Question

我有一个工作簿(WB1)与一个工作表(Sheet1)与数据(A2:W2)。

我想创建一个VBA，我可以从WB1复制一个特定的行，并将其粘贴到另一个工作簿(WB2/Sheet2)后的最后一行。

有人能帮忙吗?

不幸的是，我只需要一个代码，我的尝试没有任何进展

Answer 1

如果两个工作簿都是打开的，你可以这样做。

Sub CopyRow()
On Error GoTo Err
With Workbooks("Book1").Worksheets("Sheet1") ' like From ThisWorkbook
myrow = 4 ' Row to be copied
colCount = .UsedRange.Columns.Count ' Colums to be copied like From ThisWorkbook

DesRow = "A" & Trim(CStr(Workbooks("Book2").Worksheets("Sheet1-(inBok2)").UsedRange.Rows.Count + 1))
.Range(.Cells(myrow, 1), .Cells(myrow, colCount)).Copy Destination:=Workbooks("Book2").Worksheets("Sheet1-(inBok2)").Range(DesRow)
End With
Exit Sub
Err:
MsgBox ("# Error - Can`t perform the copy. Check sheet names and that bouth workbooks are open.")
End Sub