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