列を挿入するマクロ

列を挿入する位置を指定して、ワークシートに列を挿入します。

列を挿入する

セルを指定して挿入

A1、A2,A3などのようにA列のセルを指定すれば、A列に列を挿入することができます。

Range(“A2″).EntireColumn.Insert 
[color color=”Blue”] ’A列に挿入[/color] 
Range(“B3″).EntireColumn.Insert 
[color color=”Blue”] ’B列に挿入[/color]

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside]
Sub サンプル2740()
    
    Range("A2").EntireColumn.Insert

    'Range("B3").EntireColumn.Insert

End Sub

コード説明
Range(“A2″).EntireColumn.Insert 
[color color=”Blue”] ’A列に列を挿入[/color]  
Range(“B3″).EntireColumn.Insert 
[color color=”Blue”] ’B列に列を挿入[/color] 

Columnsプロパティで挿入

Columnsプロパティは、Columnsの引数にColumns(1)やColumns(“A”)のようにすることで列を挿入できます。

Columns(1).Insert  
[color color=”Blue”] ’A列に挿入[/color]   
Columns(“A”).Insert 
[color color=”Blue”] ’A列に挿入[/color] 
Columns(2).Insert  
[color color=”Blue”] ’B列に挿入[/color]
サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside]
Sub サンプル2745()
    
    Columns(1).Insert

    'Columns("A").Insert
    
    'Columns(2).Insert

End Sub

列の範囲を指定して列を挿入する

列の範囲を指定して、列を挿入することができます。

Range(“B:C”).Insert
[color color=”Blue”] ’B列からC列に挿入[/color] 
Range(“B:B”).Insert
[color color=”Blue”] ’B列に挿入[/color] 
Range(Columns(2), Columns(3)).Insert
[color color=”Blue”] ’B列からC列に挿入[/color]

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside]
Sub サンプル2750()
    
    Range("B:C").Insert

    'Range("B:B").Insert
    
    'Range(Columns(2), Columns(3)).Insert

End Sub

マクロ例

このサンプルでは結果を確認するために、挿入した列を赤で塗りつぶしています。

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside]
Sub サンプル2755()
    
    Range("A:A").Select
    
    Selection.Insert
    
    Selection.Interior.ColorIndex = 3

    'Range("B1:D1").Select
    'Selection.EntireColumn.Insert
    'Selection.EntireColumn.Interior.ColorIndex = 3
    
End Sub

コード説明
Range(“A:A”).Select       
[color color=”Blue”] ’列Aの前に列を挿入[/color] 
Selection.Insert         
[color color=”Blue”] ’列を挿入[/color] 
Selection.Interior.ColorIndex = 3 
[color color=”Blue”] ’挿入した列を赤にする[/color]

●マクロの実行前の画像

●マクロの実行結果

指定したシートの列に挿入する

シートを指定して列を挿入する

シート2(Sheet2)を指定するには、Worksheets(“Sheet2”) または Worksheets(2) とします。

サンプルコードは、Sheet2の4列目に挿入します。

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside]
Sub サンプル2760()
 
    Worksheets("Sheet2").Range("D3").EntireColumn.Insert
     
    'Worksheets("Sheet2").Columns(4).Insert
   
End Sub

コード説明
Worksheets(“Sheet2”).Range(“D3″).EntireColumn.Insert  
[color color=”Blue”] ’シート2のD列に挿入[/color] 
Worksheets(“Sheet2″).Columns(4).Insert        
[color color=”Blue”] ’上と同じになります[/color]

●マクロの実行結果
Sheet2を開いてみると、4列目に挿入されています。

以上で「列を挿入するマクロ」の説明を終わります。