【VBA】列を挿入する

2022.11.02

列を挿入する方法は
3種類あります！

たいした違いは無いため、どれを使うかは
好みで決めて良いと思います！

VBAコード

ここでは例として
　・シート「sample」の3列目に列を挿入
します。
※3種類の方法で挿入します。計3列分を挿入します。

実行前
実行前
Sub sample()
    
    '3列目に列を挿入①
    Worksheets("sample").Range("C1").EntireColumn.Insert
    '3列目に列を挿入②
    Worksheets("sample").Columns("C").Insert
    '3列目に列を挿入③
    Worksheets("sample").Columns(3).Insert
    
End Sub

「Rangeオブジェクト」の「EntireColumn」プロパティにより、「Rangeオブジェクト」を取得します(4行目)。
※3列目に挿入するため上記では「Range(“C1“)」としています。
※「Range(“C10“)」でも「Range(“C999“)」でも同じ結果になります。

「Rangeオブジェクト」の「Insert」メソッドにより、列を挿入します(4行目)。

「Worksheetオブジェクト」の「Columns」プロパティにより、「Rangeオブジェクト」を取得します(6、8行目)。
※3列目に挿入するため「Columns(“C“)」または「Columns(3)」としています。

「Rangeオブジェクト」の「Insert」メソッドにより、列を挿入します(6、8行目)。

実行結果

列を挿入できました。
※計3列を挿入できました。

実行結果
実行結果

参考

上記で使用した以下の詳細は、公式サイトをご確認ください。

●「Rangeオブジェクト」の「EntireColumn」プロパティ

Range.EntireColumn プロパティ (Excel)
Office VBA リファレンス トピック
learn.microsoft.com


●「Rangeオブジェクト」の「Insert」メソッド

Range.Insert メソッド (Excel)
Office VBA リファレンス トピック
learn.microsoft.com


●「Worksheetオブジェクト」の「Columns」プロパティ

Worksheet.Columns プロパティ (Excel)
Office VBA リファレンス トピック
learn.microsoft.com