【マクロ・VBA】行や列など指定した範囲にセルを挿入する

Insert メゾットを利用してセルや行を挿入します。その際、シフト方向を指定したり、挿入するセルに指定した書式を適用する事もできます。

• 右方向にシフト：.Insert shift:=xlShiftToRight
• 下方向にシフト：.Insert shift:=xlShiftDown
• 行全体：.EntireRow.Insert
• 列全体：.EntireColumn.Insert

列の挿入

Sub 列の挿入()

Columns("A:A").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A2").Select

Range("A1") = "No"

MsgBox "完了"
End Sub

範囲を指定して挿入する

指定したセル範囲にセルを挿入

Sub セルの挿入()
 Range("A1:A4").Insert
End Sub