VBA编程，在Excel中任意插入单元格，这个方法帮你完成

NO.1

Excel工作表中，如何插入单元格，通常单击鼠标右键可以找到相应快捷键，这是个十分简单的操作。

本节主要讲一下Range对象下的Insert方法插入单元格操作。

NO.2

说明

在工作表或宏表中插入一个单元格或单元格区域，其他单元格相应移位以腾出空间。

方法

Range.Insert(Shift,CopyOrigin)

Shift 和 CopyOrigin参数如下图所示。

NO.3

也可以忽略参数，Microsoft Excel 将根据区域的形状确定调整方式。

单元格插入有四种种情形：

1. 被选单元格的上边行插入。
2. 被选单元格的下边行插入。
3. 被选单元格的左边列插入。
4. 被选单元格的右边行插入。

Insert方法给出了对应的插入方式参数Shift：参数值 xlShiftDown和xlShiftToRight两个，分别指向下移动和向右移动单元格。

CopyOrigin参数指定单元格复制的格式，也就是说这个参数指定了插入后的单元格具有什么样的格式：参数值xlFormatFromRightOrBelow和xlFormatFromLeftOrAbove，分别指"从右或下方复制单元格"和"从左或上方复制单元格"。

如下图：

NO.4

代码举例

Range("A5").Insert shift:=xlShiftDown '从单元格下面插入表格Range("A5").Insert shift:=xlShiftToRight '从单元格右侧插入表格Range("b2").Insert copyorigin:=xlFormatFromRightOrBelow '从右或下方复制单元格Range("b5").Insert copyorigin:=xlFormatFromLeftOrAbove '从左或上方复制单元格

NO.5

Range.Insert方法运用好了，对于插入单元格操作很有帮助。

可以做到随心所欲对表格内容增删改操作。