[書式の説明]
Range.Insert(shift:=セルのシフト方向,CopyOrigin:=書式元のセル位置）
| 挿入：定数（Shift） | 移動方向 |
|---|---|
| .Insert shift:=xlShiftToRight | 右方向にシフト |
| .Insert shift:=xlShiftDown | 下方向にシフト |
| .EntireRow.Insert | 行全体 |
| .EntireColumn.Insert | 列全体 |
| 挿入：定数（CopyOrigin） | 書式のコピー元 |
|---|---|
| CopyOrigin:=xlFormatFormLeftOrAbove | 左か上の書式をコピー |
| CopyOrigin:=xlFormatFromRightOrBelow | 右が下の書式をコピー |
Sub insert_Cells01() ' 下方向にシフトかつ右が下の書式をコピー
Range("B5:E5").Insert shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow
Range("2:10").Rows.AutoFit '2～10行までの行を自動調整
End Sub
Sub insert_Cells02() ' 右方向にシフトかつ右か下の書式をコピー
Range("D2:D8").Insert shift:=xlShiftToRight, CopyOrigin:=xlFormatFromRightOrBelow
Columns("B:H").AutoFit 'B～H列までの幅を自動調整
End Sub
Sub insert_Cells03() '行全体 .EntireRow.Insert
Rows("5:5").EntireRow.Insert '５行目に挿入（1行分）
'Rows("5:6").EntireRow.Insert '５行目に挿入（2行分）
'Rows("5:5").Insert shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow
End Sub
Sub insert_Cells04() '列全体 .EntireColumn.Insert
Columns("D:D").EntireColumn.Insert 'Dの列に挿入（1列分）
'Columns("D:E").EntireColumn.Insert 'D～Eの列に挿入（2列分）
'Columns("D:D").Insert shift:=xlShiftToRight, CopyOrigin:=xlFormatFromRightOrBelow
End Sub
| 削除：定数（Shift） | 移動方向 |
|---|---|
| .Delete shift:=xlToLeft | 左方向にシフト |
| .Delete shift:=xlShiftUp | 上方向にシフト |
| .EntireRow.Delete | 行全体 |
| .EntireColumn.Delete | 列全体 |
Sub Delete_Cells01()
Range("D2:D8").Delete shift:=xlToLeft ' 削除して左方向にシフト
Columns("B:H").AutoFit 'B～H列までの幅を自動調整
End Sub
Sub Delete_Cells02() ' 削除して上方向にシフト
Range("B5:E5").Delete shift:=xlShiftUp ' 削除して上方向にシフト
End Sub
Sub Delete_Cells03() '行全体の削除
Rows("5:5").EntireRow.Delete '５行目を削除（1行分）
'Rows("5:6").EntireRow.Delete '５～６行目を削除（2行分）
End Sub
Sub Delete_Cells04() '列全体の削除
Columns("D:D").EntireColumn.Delete 'Dの列を削除（1列分）
'Columns("D:E").EntireColumn.Delete 'D～E列を削除（2列分）
End Sub
