セル範囲を挿入（Insert）、削除（Delete）

タイトルのマクロは、以下

' セル範囲を挿入（Insert）、削除（Delete）
Private Sub Range_Insert_Delete()
    With Sheet1
        ' セル範囲B4からD4を削除する
        .Range("B4:D4").Delete
        ' 行番号4から5までの行を挿入する
        .Rows("4:5").Insert
        ' 列Dを挿入する
        .Columns("D").Insert
    End With
End Sub

実行前のシート

実行後のシート

コードの説明

1. サブルーチンの宣言:
   • このサブルーチンは、指定したセル範囲を削除および挿入する操作を行います。
2. シートへの参照:
   • Sheet1 を対象とした操作を With ステートメント内で行います。
3. セル範囲の削除:
   • セル範囲 B4:D4 を削除します。
   • .Delete メソッドは、指定したセル範囲を削除し、下のセルが上にシフトされます。
4. 行の挿入:vbaコードをコピーする' 行番号4から5までの行を挿入する .Rows("4:5").Insert
   • 行番号 4 と 5 の間に新しい行を挿入します。
   • .Insert メソッドは、指定した範囲に新しい行を挿入します。
5. 列の挿入:
   • 列 D の前に新しい列を挿入します。
   • .Insert メソッドは、指定した範囲に新しい列を挿入します。

補足説明

• .Delete メソッド:
  • .Delete メソッドは、指定したセル範囲を削除し、下のセルを上にシフトします。指定した範囲が列の場合、右のセルが左にシフトされます。
  • 例えば、.Range("B4:D4").Delete を実行すると、4行目のB列からD列までのセルが削除され、5行目のセルが4行目にシフトされます。
• .Insert メソッド:
  • .Insert メソッドは、新しい行や列を挿入します。挿入される場所によって、既存のセルがシフトされます。
  • 例えば、.Rows("4:5").Insert を実行すると、4行目と5行目の間に新しい行が挿入され、既存の4行目と5行目が下にシフトされます。
  • .Columns("D").Insert を実行すると、D列の前に新しい列が挿入され、既存のD列が右にシフトされます。

このコードを実行すると、指定したセル範囲 B4:D4 が削除され、4行目と5行目の間に新しい行が挿入され、D列の前に新しい列が挿入されます。

Follow me!