本示例在单元格A1前插入一个单元格,原A1单元格数据向下移动。

Range("A1").Select

Selection.Insert Shift:=etDown