Vbaを使用して複数の行を挿入する方法

VBA を使用して Excel に複数の行を挿入するには、次の方法を使用できます。

方法 1: 特定の範囲に行を挿入する

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

この特定のマクロは、 Sheet1というシートの5 ～ 7の範囲に 3 つの空白行を挿入し、既存の行をすべて下に移動します。

方法 2: アクティブ セルに基づいて行を挿入する

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

この特定のマクロは、ワークシートで現在選択しているセルから開始して 3 つの空白行を挿入し、既存のすべての行を下に移動します。

次の例は、Excel の次のスプレッドシートで各メソッドを実際に使用する方法を示しています。

例 1: 特定の範囲に行を挿入する

次のマクロを作成して、 Sheet1というシートの5 ～ 7の範囲に 3 つの空白行を挿入し、既存の行をすべて下に移動します。

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

このマクロを実行すると、次の出力が表示されます。

ワークシートの行位置5 ～ 7に 3 つの空白行が挿入されていることに注目してください。

これらのラインに以前存在していた値が単に引き下げられただけです。

例 2: アクティブ セルに基づいて行を挿入する

スプレッドシートでセルA3が現在選択されているとします。

次のマクロを作成して、現在選択されているセルから開始してワークシートに 3 つの空白行を挿入できます。

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

このマクロを実行すると、次の出力が表示されます。

ワークシートの行 3 から始まる 3 つの空白行が挿入されていることに注目してください。

これらの行に以前存在していた値は減少しました。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 最後に使用された行を見つける方法
VBA: 範囲内の行数をカウントする方法
VBA: 使用されている列の数を数える方法