教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA セル操作】行または列を挿入(Insert)する方法を教えて!

f:id:m_kbou:20200419130832p:plain

行や列を挿入する方法について説明します。挿入するにはInsertメソッドを使います。作成済みの表へ行や列を挿入する場合に有効です。

 

 

構文

記述方法は以下の通りとなります。

Range(”[行範囲]”).EntireRow.Insert

Range(”[列範囲]”).EntireColumn.Insert

[説明]:

行を挿入するには

 「Range(”[行範囲]”).EntireRow.Insert」

と記述し、列を挿入するには

 「Range(”[列範囲]”).EntireColumn.Insert」

と記述します。

[行範囲] 行を挿入する行範囲を記述します。
※「”」(ダブルクォーテーション)で囲みます。
[列範囲] 列を挿入する列範囲を記述します。
※「”」(ダブルクォーテーション)で囲みます。

[記述例]:

Range("2:2").EntireRow.Insert
Range("B:B").EntireColumn.Insert

 

使い方

使い方について具体的に説明します。

指定した範囲へ行を挿入する方法

指定した範囲へ行を挿入する方法について説明します。

[プログラミング例]:

Sub サンプル()

  Range("2:2").EntireRow.Insert
  MsgBox "挿入しました。"

End Sub

内容は、「2行目に行を挿入し、最後にMsgBoxで”挿入しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210419100343p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①1行目~4行目にデータが入力され表示されています。<実行>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210419100400p:plain

②結果は以下の様になります。2行目に行が挿入され、MsgBoxで「挿入しました。」が表示されます。

f:id:m_kbou:20210419100413p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

指定した範囲へ行を挿入する方法についての説明は以上です。

 

指定した範囲へ列を挿入する方法

指定した範囲へ列を挿入する方法について説明します。

[プログラミング例]:

Sub サンプル()

  Range("B:B").EntireColumn.Insert
  MsgBox "挿入しました。"

End Sub

内容は、「B列に列を挿入し、最後にMsgBoxで”挿入しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210419100518p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①1行目~4行目にデータが入力され表示されています。<実行>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210419100532p:plain

②結果は以下の様になります。B列に列が挿入され、MsgBoxで「挿入しました。」が表示されます。

f:id:m_kbou:20210419100545p:plain

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

指定した範囲へ列を挿入する方法についての説明は以上です。

  

おわりに

今回は選択した範囲へ行または列を挿入する方法について説明しました。類似内容に行や列の削除方法 があります。こちらも是非一緒に覚えておいて下さい。