excel - 我正在尝试复制工作表 1 中的第 2 行并将其粘贴到下一个空行的工作表 2 中。

Question

我正在尝试复制工作表 1 中的第 2 行并将其粘贴到下一个空行的工作表 2 中。然后我更改第 2 行中的数据并再次运行宏以将此数据添加到工作表 2 的下一行。

这就是我所拥有的，但它会覆盖表 2 中的数据：

Sub transfer()

Dim LastRow As Integer

'Where is the last cell with data?
LastRow = Worksheets("Database").Range("A65536").End(xlUp).Row

'Transfer data
Sheets("Shadow").Range("A2:N2").Copy Worksheets("Database").Cells(LastRow + 1, "A")
End Sub

Answer 1

假设“阴影”是 Sheet1 而“数据库”是 Sheet2，这似乎对我有用。

编辑

根据我们下面的对话，如果问题与参考有关，您始终可以粘贴确切的值而不是参考。尝试这个：

Sub transfer()

Dim LastRow As Integer

'Where is the last cell with data?
LastRow = Worksheets("Database").Range("A65536").End(xlUp).Row

'Transfer data
Sheets("Shadow").Range("A2:N2").Copy
Worksheets("Database").Range("A" & LastRow + 1 & ":N" & LastRow + 1).PasteSpecial _
    Paste:=xlPasteValues
End Sub