5.11 コピーした行や列の挿入
コピーした行や列を、別な場所へ挿入するときの方法です。コピーは???.Copyメソッドで、コピーした行を挿入するときは???.Insertメソッドで行います。

ちなみに、???の部分はRangeColumnsRowsSelectionなど、行や列を表すオブジェクトです。詳しくは、5.1 セルや行列を扱うための基本をどうぞ。
使用例1/1行をコピーし、別な場所へ挿入する場合
???.Copy???.Insertの使用例を、Rangeを使って説明します。

まずは、1行をコピーして別な場所へ挿入する場合。例では、???.Copyメソッドを使い2行目をコピー、???.Insertメソッドを使い3行目へ貼り付けています。


Sub prcCopyInsertRow()

    '2行目をコピーします
    Range("2:2").Copy
    'コピーした行を挿入します
    Range("3:3").Insert

End Sub
 ※このエクセルマクロはワークシート内へ記述するマクロです
使用例2/複数行をコピーし、別な場所へ挿入する場合
次に、複数の行をコピーし、別な場所へ挿入する場合です。

例では、???.Copyメソッドを使い1〜2行目をコピー???.Insertメソッドを使い4〜5行目にコピーした行を挿入しています。


Sub prcCopyInsertRows()

    '1〜2行目をコピーします
    Range("1:2").Copy
    'コピーした行を4行目に挿入します
    Range("4:4").Insert

End Sub
列のコピー・挿入
列のコピー・挿入は、Rangeの部分を列指定に変えるだけ(5.1 セルや行列を扱うための基本)で、必要なメソッドは同じです。なので、例は省略します…が手抜きではありません(汗)
Copyright(C) 1999-2006 結城圭介。 All rights reserved