【VBA】行列の追加・削除

こんにちは

今日は行と列の追加と削除です。

追加はInsert、削除はDeletを使用します。

追加や削除を行う際にシフトをどうするかを設定する必要があります。

削除

削除にはDleteを使用します。

Range("A1").Delete

こんな感じです。

ただ、このままでは上方向にシフトされてしまうため

Range("A1").Delete　Shift:=xlToLeft

といったように方向を指定してあげましょう。

左にシフト

範囲.Delete Shift:=xlToLeft

上にシフト

範囲.Delete Shift:=xlUp

行全体をシフト

範囲.EntireRow.Delete

列全体をシフト

範囲.EntireColumn.Delete

挿入

挿入はInsertを使用します。

Range("A1").Insert　Shift:=xlToLeft

右にシフト

範囲.Insert Shift:=xlToRight

下にシフト

範囲.Insert Shift:=xlDown

行全体をシフト

範囲.EntireRow.Insert

列全体をシフト

範囲.EntireColumn.Insert

こんな感じです。

削除と挿入ではセルのシフトできる方向が異なるため注意しましょう。