[Excal VBA] セルを挿入する。 – Range.Insert メソッド-
公開日:
:
カテゴリ: 03-5_ExcelVBA_メモ・小技集
タグ: Excel VBA, Range オブジェクト, Range.Insert メソッド, セルの操作, メソッド
動作確認環境
Windows7
Excel: 2007, 2013
説明
指定された範囲に、空白のセルまたはセル範囲を挿入します。
構文
Object.Insert(Shift, CopyOrigin)
Shift: 省略可能 バリアント型 (Variant)
セルをシフトする方向を指定します。以下の値を入力します。
XlInsertShiftDirectionクラス
・xlShiftToRight: 右方向にシフト
・xlShiftDown: 下方向にシフト
CopyOrigin: 省略可能 バリアント型 (Variant)
コピーする書式を指定します。以下の値を入力します。
・xlFormatFromLeftOrAbove: 左、又は上部の書式をコピー
・xlFormatFromRightOrBelow: 右、又は下部の書式をコピー
サンプル
例1
例1_1
1 2 3 4 5 |
Sub セルを挿入する_例1_1() ' C3にセルを挿入し、下にシフト。上の書式をコピーします。 Range("C3").Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub |
例1_2
1 2 3 4 5 |
Sub セルを挿入する_例1_2() ' C3にセルを挿入し、右にシフト。左の書式をコピーします。 Range("C3").Insert Shift:=xlShiftToRight, CopyOrigin:=xlFormatFromLeftOrAbove End Sub |
例2
例2_1
B3~D3セルに挿入し、下にシフト。上の書式をコピーします。
1 2 3 4 5 |
Sub 複数列を挿入する_例2_1() ' B3~D3セルに挿入し、下にシフト。上の書式をコピーします。 Range("B3", "D3").Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub |
例2_2
C2~C4セルに挿入し、右にシフト。左の書式をコピーします。
1 2 3 4 5 |
Sub 複数列を挿入する_例2_2() ' C2~C4セルに挿入し、右にシフト。左の書式をコピーします。 Range("C2", "C4").Insert Shift:=xlShiftToRight, CopyOrigin:=xlFormatFromLeftOrAbove End Sub |
広告
関連記事
-
-
[Excel VBA] 印刷時の余白、ヘッダー、フッター等を設定する。
動作確認環境 Windows7 Excel: 2007、2013 説明 余白、ヘッダー、
-
-
[Excel VBA] 改ページプレビュー、ノーマルビュー(標準)、ページレイアウト表示を切り替える -Window.Viewプロパティ-
動作確認環境 Windows7 Excel: 2007、2013 説明 ウィンドウに表示
-
-
[Excel VBA] セルの行列番号、参照範囲(アドレス)を取得する(Range.Address プロパティ) – Excel VBA
動作確認環境 Windows7 Excel: 2007 構文 対象範囲: Rang
-
-
[Excel VBA] メッセージボックスを使う
動作確認環境 Windows10 Excel: 2016 説明 メッセージボックスを使う
-
-
[Excal VBA] セルやセル範囲を選択する – Range.Select メソッド-
動作確認環境 Windows7 Excel: 2007 説明 セルやセル範囲を選択します
-
-
実行中のマクロを中断する – Excel VBA
動作確認環境 Windows7 Excel: 2007 手順 Ctrl + Pause
-
-
[Excal VBA] セルに値を入れる – Range.Value プロパティ-
動作確認環境 Windows7 Excel: 2007 説明 セルに値をいれます。
-
-
[Excal VBA] セルをアクティブにする。 – Range.Activate メソッド-
動作確認環境 Windows7 Excel: 2007, 2013 説明 1つのセルをア
-
-
[Excel VBA] セルの検索(Range.Findメソッド)
動作確認環境 Windows7 Excel: 2007 構文 ・検索範囲の