VBAに行を挿入することは、VBAに列を挿入することとは多少異なります。列では、列全体メソッドを使用しましたが、行を挿入するには、insertコマンドでworksheetメソッドを使用して行を挿入し、挿入する場所に行参照も提供します。列に似た別の行。
VBAExcelで行を挿入
VBAコーディングを使用すると、実行するほとんどすべてのアクションを実行できます。VBA言語を使用して、コピー、貼り付け、削除、その他多くのことを実行できます。「行の挿入」は、Excelでよく行う方法の1つです。この記事では、VBAで行の挿入メソッドを実行する方法を示します。
Excel VBAに行を挿入する方法は?
以下は、VBAを使用してExcelに行を挿入するさまざまな方法です。
方法1–挿入方法の使用
VBAで行を挿入するには、Excelワークシートで使用したのと同様の手法を使用する必要があります。VBAでは、範囲オブジェクトを使用して行を挿入する必要があります。
たとえば、以下のコードを見てください。
コード:
Sub InsertRow_Example1()Range( "A1")。Insert End Sub
このコードは、セルA1からB1に移動し、唯一のセルを挿入します。
これは、データの処理に関して非常に多くの問題を引き起こします。これにより、言及されたセルが下に移動し、他のすべての関連する列は同じままになります。
方法2–行全体のプロパティを使用する
一番上の挿入行では、実際にいくつかの方法を使用できます。以下のメソッドは、選択したセルの上に行全体を挿入します。
ステップ1:最初にセルアドレスに言及します。
コード:
Sub InsertRow_Example2()Range( "A1")。エンドサブ
ステップ2:単に使用する代わりに、「行全体」プロパティを選択します。
コード:
Sub InsertRow_Example2()Range( "A1")。EntireRow。エンドサブ
ステップ3:行プロパティ全体にアクセスした後、insertメソッドを使用します。
コード:
Sub InsertRow_Example2()Range( "A1")。EntireRow.Insert End Sub
これにより、セルA1の上に行が挿入されます。A1は最初の行であるため、A1セルを下ってB1に移動します。
上の画像でできるように、単一のセルではなく、行全体を挿入する必要があります。
方法3–行番号の使用
上記の例では、単一セルのアドレスを使用して行を挿入しました。ただし、行番号を使用して挿入することもできます。
5番目の行の下に行を挿入するとします。最初に、RANGEオブジェクトを使用して行番号を指定する必要があります。
コード:
Sub InsertRow_Example3()Range( "6:6")。エンドサブ
行全体を6:6と記述したので、ここでは行全体のプロパティを使用する必要があるため、「INSERT」メソッドを直接使用できます。
コード:
Sub InsertRow_Example3()Range( "6:6")。Insert End Sub
これにより、単一のセルではなく行全体も挿入されます。
5行目の下に2行を挿入する場合は、最初に2行を選択してから、INSERTメソッドを使用する必要があります。
Sub InsertRow_Example3()Range( "6:7")。Insert End Sub
これにより、5行目の下に2行が挿入されます。
このように、ワークシートにできるだけ多くの行を挿入できます。
方法4–アクティブセルプロパティの使用
Active CellVBAプロパティを使用して行を挿入できます。アクティブセルは、現在選択されているセルに他なりません。
セルB5にいて、アクティブセルプロパティを使用できる上に行を挿入するとします。
Sub InsertRow_Example4()ActiveCell.EntireRow.Insert End Sub
これにより、アクティブセルの上に行が挿入されます。
方法5–オフセット関数でアクティブセルプロパティを使用する
アクティブセルの2行の後に行を挿入するとします。オフセット関数を使用して、行数をオフセットする必要があります。
あなたがB5セルにいると仮定します。
アクティブセルの2行目の後に行を挿入する場合は、以下のコードを使用できます。
コード:
Sub InsertRow_Example5()ActiveCell.Offset(2、0).EntireRow.Insert End Sub
これにより、6行目の後に行が挿入されます。
代替行を挿入
代替行を挿入することは、私が何度も遭遇することがよくあります。以下のデータ画像をご覧ください。
次に、代替行を挿入する必要があります。ループを使用して、すべての代替行を挿入する必要があります。
コード:
Sub InsertRow_Example6()Dim K As Integer Dim X As Integer X = 1 For K = 1 To 4 Cells(X、1).EntireRow.Insert X = X + 2 Next K End Sub
これにより、このような行が挿入されます。
このVBA挿入行Excelはここからダウンロードできます。VBA挿入行Excelテンプレート