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

「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