vbaで最終行に張り付け

質問

Excelマクロについて教えてください。
sheet2にsheet1から選択した範囲を貼り付けております
sheet2のC列が連続した値になっておりそれを軸に貼り付けをしたいのです。

sheet1のA1:g40の範囲をcutしたものを

sheet2のC列の最終入力行の一段下の行に
A列から貼り付けしたいのです。
よろしくお願いします

回答No.2

keithin

sub macro1()
worksheets("Sheet1").range("A1:G40").cut destination:=worksheets("Sheet2").cells(worksheets("Sheet2").range("C65536").end(xlup).offset(1).row, "A")
end sub
みたいな。

＃参考
sub macro1r1()
　dim LastRow as long
　lastrow = worksheets("Sheet2").cells(rows.count, "C").end(xlup).row
　worksheets("Sheet1").range("A1:G40").cut _
　　destination:=worksheets("Sheet2").cells(lastrow + 1, "A")
end sub
とかのほうが，勿論見通しが良くて良いです。

回答No.1

tom04

こんにちは！
＞sheet2のC列の最終入力行の一段下の行に
というコトですので・・・

Sub Sample1()
Worksheets("Sheet1").Range("A1:G40").Cut _
Worksheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Offset(1, -2)
End Sub

という感じではどうでしょうか？m（_ _）m