如何使用vba插入多行

您可以使用以下方法使用 VBA 在 Excel 中插入多行：

方法1：在特定范围内插入行

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

这个特定的宏将在名为Sheet1的工作表的第 5到7范围内插入三个空白行，并向下移动所有现有行。

方法 2：根据活动单元格插入行

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

这个特定的宏将从您当前在工作表中选择的单元格开始插入三个空白行，并向下移动所有现有行。

以下示例展示了如何通过 Excel 中的以下电子表格实际使用每种方法：

示例 1：在特定范围内插入行

我们可以创建以下宏，在名为Sheet1的工作表的第 5到7范围内插入三个空白行，并向下移动所有现有行：

 SubInsertMultipleRows ()
Worksheets(" Sheet1 ").Range(" 5:7 ").EntireRow.Insert
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，三个空白行已插入到工作表中的行位置5到7处。

这些行中以前存在的值只是被降低了。

示例 2：根据活动单元格插入行

假设当前在我的电子表格中选择了单元格A3 。

我们可以创建以下宏，从当前选定的单元格开始将三个空白行插入到工作表中：

 SubInsertMultipleRows ()
ActiveCell.EntireRow.Resize(3).Insert Shift:=xlDown
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，已从第 3 行开始将三个空白行插入到工作表中。

这些行中先前存在的值已减少。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何查找最后使用的行
VBA：如何计算范围内的行数
VBA：如何计算使用的列数