VBA插入行(示例,代码)|插入行的前5个Excel VBA方法

在VBA中插入行与在VBA中插入列有些不同,在列中我们使用了整列方法,但在插入行中我们使用了工作表方法并通过insert命令插入行,我们还提供了行引用,在该行中我们要插入与列相似的另一行。

使用VBA Excel插入行

我们可以使用VBA编码执行我们在excel中所做的所有大多数动作。我们可以复制,可以粘贴,可以删除,还可以通过VBA语言做更多的事情。 “插入行”是我们经常在excel中使用的这种方法之一。在本文中,我们将向您展示如何在VBA中执行插入行方法。

如何在Excel VBA中插入行?

下面是使用VBA在excel中插入行的各种方法。

方法1 –使用插入方法

在VBA中插入行,我们需要使用在Excel工作表中使用过的类似技术。在VBA中,我们需要使用range对象插入行。

例如,看下面的代码。

代码:

 Sub InsertRow_Example1()Range(“ A1”)。Insert End Sub 

此代码将下移单元格A1到B1并插入唯一的单元格。

就数据处理而言,这将导致许多问题。这只会将提到的单元格向下移动,而所有其他关联的列将保持不变。

方法2 –使用整个行属性

顶部插入行我们实际上可以使用几种方法。下面的方法将整个行插入到所选单元格的上方。

步骤1: 提及 单元地址 第一的。

代码:

 子InsertRow_Example2()范围(“ A1”)。结束子 

第2步: 不仅仅是使用“整行“ 财产。

代码:

 子InsertRow_Example2()Range(“ A1”)。EntireRow。结束子 

第三步: 访问整个行属性后,请使用 插入方法.

代码:

 子InsertRow_Example2()Range(“ A1”)。EntireRow.Insert End Sub 

这将在单元格A1上方插入行。由于A1是第一行,它将向下移动A1单元格到B1。

如上图所示,它必须插入整行,而不是单个单元格。

方法#3 –使用行号

在上面的示例中,我们仅使用了单单元格地址并插入了该行。但是,我们也可以使用行号插入它们。

假设您要在第5行下方插入一行,首先我们需要使用RANGE对象提及行号。

代码:

 子InsertRow_Example3()范围(“ 6:6”)。结束子 

由于我们将整个行都提到为6:6,因此我们需要在此处使用Entire Row属性,因此我们可以直接使用“ INSERT”方法。

代码:

 Sub InsertRow_Example3()Range(“ 6:6”)。Insert End Sub 

这也将插入整行而不是单个单元格。

如果要在第5行下方插入两行,我们需要先选择2行,然后使用INSERT方法。

 Sub InsertRow_Example3()Range(“ 6:7”)。Insert End Sub 

这将在第五行下方插入两行。

这样,我们可以在工作表中插入尽可能多的行。

方法#4 –使用活动单元格属性

我们可以使用Active Cell VBA属性插入行。活动单元不过是当前选择的单元。

假设您位于单元格B5中,并且要在上方插入一行,则可以使用活动单元格属性。

 子InsertRow_Example4()ActiveCell.EntireRow.Insert结束子 

这将在活动单元格上方插入行。

方法#5 –使用带有偏移功能的活动单元格属性

假设您要在活动单元格的2行之后插入一行,我们需要使用Offset函数来偏移行数。

假设您在B5单元中。

如果要在活动单元格的第二行之后插入行,则可以使用以下代码。

代码:

 子InsertRow_Example5()ActiveCell.Offset(2,0).EntireRow.Insert End Sub 

这将在第六行之后插入行。

插入备用行

我经常遇到插入替代行的很多次。对于下面的数据图像。

现在我们需要插入替代行。我们需要使用循环来插入每个备用行。

代码:

 Sub InsertRow_Example6()Dim K作为整数Dim X作为整数X = 1对于K = 1到4个像元(X,1).EntireRow.Insert X = X + 2下一页K End Sub 

这将插入这样的行。

您可以在此处下载此VBA插入行Excel。 VBA插入行Excel模板