Excel2000 VBA 記入されている最終行の範囲を最終行の下に複製する

Excel2000 VBA　記入されている最終行の範囲を最終行の下に複製する

Sub 最終行複製()

'記入されている最終行をしらべる
lastrow = Cells(Rows.Count, "D").End(xlUp).Row

'Range cells で範囲指定

Range(Cells(lastrow, "D"), Cells(lastrow, "Z")).Select

'セレクト範囲をコピー

   Selection.Copy

'記入されている最終行＋１（最終行のすぐ下）を選択

   Cells(lastrow + 1, "D").Select

'貼り付け

   ActiveSheet.Paste

End Sub

 

再生できない場合、ダウンロードは🎥こちら