Excel插入多行VBA实现

我们还可以利用 VBA（Visual Basic for Applications）宏语言，在 Excel 中写一个 VBA 宏来自动插入多行数据。这种方法可以方便我们自定义需要插入的行数和插入位置。下面是编写 VBA 宏的步骤：

1、按下Alt + F11快捷键，打开 Excel 的 VBA 编辑器。

2、在 VBA 编辑器中，点击插入（Insert）-> 模块（Module）菜单，新建一个 VBA 模块。

3、在新建的 VBA 模块中，写入插入多行的代码。下面是插入多行数据的示例代码，可以根据需要自行输入插入行数：

代码如下：

Sub 插入多行()
    ' 定义变量
    Dim i As Integer
    Dim hang As Integer
    hang = InputBox("请输入插入行数", "行数", "20")
    '从当前选择的行开始，批量插入多行数据
    For i = 1 To hang '5
        Selection.EntireRow.Insert '插入整行
    Next i
End Sub

4、编写完成后，在 VBA 编辑器中按下F5即可运行该宏。

5、运行宏后，返回 Excel 表格，选择需要在哪一行下面插入多行数据，然后点开 Excel 的宏（Macro）列表，选择刚刚编写的宏即可批量插入多行数据。

参考来源

Excel 快速插入多行的方法|极客笔记 (deepinout.com)https://deepinout.com/excel/excel-tutorials/j_quick-methods-to-insert-multiple-rows-in-excel.html【VBA】 数据输入 Inputbox 基本语法 - 知乎 (zhihu.com)https://zhuanlan.zhihu.com/p/42568534

特此记录

anlog

2024年5月20日