Excel VBA:插入新單元格或區域——Range.Insert 方法

Range.Insert 方法

在工作表或宏表中插入一個單元格或單元格區域，其他單元格相應移位以騰出空間。

語法

表達式.Insert(Shift, CopyOrigin)

表達式   一個代表 Range 對象的變量。

參數

名稱	必選/可選	數據類型	說明
Shift	可選	Variant	指定單元格的調整方式。可為以下 XlInsertShiftDirection 常量之一：xlShiftToRight 或 xlShiftDown。如果省略此參數，Microsoft Excel 將根據區域的形狀確定調整方式。
CopyOrigin	可選	Variant	復制的起點。

返回值
Variant

XlInsertShiftDirection 枚舉

指定插入時單元格的移動方向。

名稱	值	說明
xlShiftDown	-4121	向下移動單元格。
xlShiftToRight	-4161	向右移動單元格。

 示例

以下示例在數據表上第四行之前插入新行。

myChart.Application.DataSheet.Rows(4).Insert 

以下示例在數據表上的單元格區域 A1:C5 中插入新單元格，並將該位置上原來的單元格向下移動。

1.  
   Set mySheet = myChart.Application.DataSheet
2.  
   mySheet.Range( "A1:C5").Insert Shift:=xlShiftDown

 source:VBA Help