挿入にはInsertメソッドを、削除にはDeleteメソッドを使います。
セルの挿入 (下方向にシフト)
実行プログラム
|
1 2 3 4 5 |
Sub Sample4_6_1() Range(Cells(2, 2), Cells(2, 3)).Insert Shift:=xlDown End Sub |
実行前
実行後
CopyOriginを省略すると、既定の”xlFormatFromLeftOrAbove”が適用されます。
上のセルの書式でセルが挿入されました。
実行プログラム
|
1 2 3 4 5 |
Sub Sample4_6_2() Range(Cells(2, 2), Cells(2, 3)).Insert Shift:=xlDown, Copyorigin:=xlFormatFromRightOrBelow End Sub |
実行前
実行後
Copyoriginに”xlFormatFromRightOrBelow”を指定すると、元のセルの書式でセルが挿入されました。
セルの削除 (上方向にシフト)
実行プログラム
|
1 2 3 4 5 |
Sub Sample4_6_3() Range(Cells(2, 2), Cells(2, 3)).Delete Shift:=xlUp End Sub |
実行前
実行後
セルの挿入 (右方向にシフト)
実行プログラム
|
1 2 3 4 5 |
Sub Sample4_6_4() Range(Cells(2, 2), Cells(3, 2)).Insert Shift:=xlToRight End Sub |
実行前
実行後
CopyOriginを省略すると、既定の”xlFormatFromLeftOrAbove”が適用されます。
左のセルの書式でセルが挿入されました。
実行プログラム
|
1 2 3 4 5 |
Sub Sample4_6_5() Range(Cells(2, 2), Cells(3, 2)).Insert Shift:=xlToRight, Copyorigin:=xlFormatFromRightOrBelow End Sub |
実行前
実行後
Copyoriginに”xlFormatFromRightOrBelow”を指定すると、元のセルの書式でセルが挿入されました。
セルの削除 (左方向にシフト)
実行プログラム
|
1 2 3 4 5 |
Sub Sample4_6_6() Range(Cells(2, 2), Cells(3, 2)).Delete Shift:=xlToLeft End Sub |
実行前
実行後
