セルを挿入する（Insert メソッド）
2015/08/26
Insert メソッド
Insert メソッドで、指定した場所に新規の空白セルを挿入することができます。このとき、元のセルは右方向または下方向へ移動（シフト）します。
Object.Insert ( [ shift, copyorigin ] )
引数・戻り値
- object ・・・ 対象となるRange オブジェクト
- shift ・・・ シフト方向を表す定数（下表参照）を指定します。省略すると、セル範囲の形状に適応した方向にシフトされます。
- copyorigin ・・・ 挿入したセルに書式設定をコピーする場合、どの方向（左・上方向 ／ 右・下方向）のセルの書式をコピーするかを指定します（指定する定数は、下表参照）。省略すると、左・上方向を表す定数が指定されます。
引数 shift に指定する値（シフト方向を表す定数：XlInsertShiftDirection 列挙）
| 定数 | 値 | 内容 |
| xlShiftToRight | -4161 | 右方向 |
| xlShiftDown | -4121 | 下方向 |
| 省略 | セル範囲の形に応じてシフト方向が自動的に決定 |
引数 copyorigin に指定する値（書式をコピーする方向を表す定数：XlInsertFormatOrigin 列挙）
| 定数 | 値 | 内容 |
| xlFormatFromLeftOrAbove | 0 | 左または上方向のセルの書式をコピー（規定値） |
| xlFormatFromRightOrBelow | 1 | 右または下方向のセルの書式をコピー |
Insert メソッドの使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub Sample_Insert() 'セル「E3」から「E6」にセルを挿入 Range("E3:E6").Insert '4、5行目にセルを挿入（下方向へシフト、下のセルの書式をコピー） Range("4:5").Insert xlShiftDown, xlFormatFromRightOrBelow End Sub |
実行結果
サンプルVBA実行前
サンプルVBA実行前（コピー元シート）
サンプルVBA実行
関連記事
-
-
オートフィルタ（日付フィルタ）AutoFilter メソッド
日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …
-
-
セルを参照する（Range プロパティ）
Range プロパティ 任意のセルにアクセスするには Range プロパティを使 …
-
-
指定した条件に一致するセルを取得（SpecialCells メソッド）
SpecialCells メソッド SpecialCells メソッドは、指定し …
-
-
セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）
MergeArea プロパティ MergeArea プロパティは、指定したセルが …
-
-
指定した行数・列数移動したセル・セル範囲を参照（Offset プロパティ）
Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …
-
-
セルの高さ・幅を取得（Height プロパティ・Width プロパティ）
Height プロパティ・Width プロパティ Height プロパティは、指 …
-
-
オートフィルタ（日付・時刻のグループ化）AutoFilter メソッド
グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …
-
-
セル・セル範囲をコピーする（Copy メソッド）
Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …
-
-
対象のセルを参照している全てのセルを取得（Dependents プロパティ）
Dependents プロパティ Dependents プロパティは、対象のセル …
-
-
セル範囲を結合・結合を解除（Merge メソッド・UnMerge メソッド）
Merge メソッド・UnMerge メソッド セルを結合するには、指定したセル …