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

假设“Shadow”是Sheet1而“Database”是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

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

1 个答案:

修改