VBAでセルを挿入
セルの挿入(範囲・行・列)
Range("セル名").Insert
セルを新規挿入する関数です。| 引数 | 定数 | 内容 |
|---|---|---|
| Shift | xlShiftToRight | 右方向にシフト |
| Shift | xlShiftDown | 下方向にシフト |
サンプルコード
'アクティブなシートのセルB1～D3の範囲の挿入(行数=列数なので下方向にシフト)
Range(Cells(1,2),Cells(3,4)).Insert
'アクティブなシートのセルB1～D3の範囲の挿入(行数>列数なので右方向にシフト)
Range("B1:D4").Insert
'Sheet1のセルB1～D3の範囲の挿入(行数<列数なので下方向にシフト)
Worksheets("Sheet1").Range(Cells(1,2),Cells(3,5))
'Sheet1のセルB1～D3の範囲の挿入(行数>列数なので右方向にシフト)
Worksheets("Sheet1").Range("B1:D4").Insert
サンプルコード
'アクティブなシートのセルB1～D3の範囲の挿入(行数=列数なので下方向にシフト)
Range(Cells(1,2),Cells(3,4)).EntireRow.Insert
'アクティブなシートの1～3行目を挿入後、下方向にシフト
Range("B1:D5").EntireRow.Insert
'Sheet1の1～3行目を挿入後、下方向にシフト
Worksheets("Sheet1").Range(Cells(1,2),Cells(3,4)).EntireRow.Insert
'Sheet1の1～3行目を挿入後、下方向にシフト
Worksheets("Sheet1").Range("B1:D3").EntireRow.Insert
サンプルコード
'アクティブなシートの1～3列目を挿入後、右方向にシフト
Range(Cells(1,2),Cells(3,4)).EntireColumn.Insert
'アクティブなシートの1～3列目を挿入後、右方向にシフト
Range("B1:D3").EntireColumn.Insert
'アクティブなシートの1～3列目を挿入後、右方向にシフト
Worksheets("Sheet1").Range(Cells(1,2),Cells(3,4)) .EntireColumn.Insert
'アクティブなシートの1～3列目を挿入後、右方向にシフト
Worksheets("Sheet1").Range("B1:D3").EntireColumn.Insert