OfficeType

VBA~行をコピーしよう~Excel

VBAで行をコピーしたい時はRange.Copyメソッドでコピーできます。

単一行のコピー

単一行をコピーしたい時はRows(行番号).Copy Rows(貼り付け先の行番号)でコピーできます。

下のコードを実行すると行2が行7にコピーされます。

Sub test1()

Rows(2).Copy Rows(7)

End Sub

image-01

image-02

連続行のコピー

連続行をコピーしたい時はRows("開始行の行番号:終了行の行番合").Copy Rows(貼り付け先の一番上の行番号)でコピーできます。

下のコードを実行すると行2から行4が行7から行9にコピーされます。

Sub test2()

Rows("2:4").Copy Rows(7)

End Sub

image-03

image-04

非連続行のコピー

非連続行をコピーしたい時はRange("一つ目の行番号:一つ目の行番号,二つ目の行番号:二つ目の行番号").Copy Rows(貼り付け先の一番上の行番号)でコピーできます。カンマで区切ることでさらに複数の行をコピーできます。

下のコードを実行すると行2と行4が行7,行8にコピーされます。

Sub test3()

Range("2:2,4:4").Copy Rows(7)

End Sub

image-05

image-06