質問: false end sub
回答: >sheet1のe2:j1109の範囲のデータをコピーしての別sheet2のe3:j1110の範囲に貼り付けたい。 sub test01() sheets("sheet1").range("e2:j1109").copy sheets("sheet2").range("e3") application.cutcopymode = false end sub >最終行の取得のコードの書き方が分からない sheet2のe列の最終行の次の行に貼り付けるのなら sub test02() dim lastrow as long 'sheet2のe列の最終行を取得 lastrow = sheets("sheet2").cells(rows.count, "e").end(xlup).row + 1 sheets("sheet1").range("e2:j1109").copy sheets("sheet2").cells(lastrow, "e") application.cutcopymode = false end sub