エクセルマニア

VBAでセルを挿入

TOP > VBA・マクロ >  セルを新規挿入
このエントリーをはてなブックマークに追加

セルの挿入(範囲・行・列)

Range("セル名").Insert

セルを新規挿入する関数です。
引数定数内容
ShiftxlShiftToRight右方向にシフト
ShiftxlShiftDown下方向にシフト

サンプルコード


'アクティブなシートのセル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



このエントリーをはてなブックマークに追加