如何在 Excel 中通过命令按钮自动插入空白新行？

在许多情况下，您可能需要在工作表的指定位置插入一个空白新行。本文将向您展示如何通过点击 Excel 中的命令按钮自动插入空白新行。

通过命令按钮自动插入空白新行

通过命令按钮自动插入空白新行

您可以运行以下 VBA 代码，通过点击命令按钮插入空白新行。请按照以下步骤操作。

1. 首先，您需要插入一个命令按钮。请点击 开发工具 > 插入 > 命令按钮（ActiveX 控件）。见截图：

2. 然后在需要添加新行的工作表中绘制一个命令按钮，右键单击该命令按钮并从右键菜单中选择 属性。

3. 在 属性 对话框中，在 分类 标签下将命令按钮的显示文本输入到 标题 框中，然后关闭对话框。

您可以看到命令按钮的显示文本已更改，如下截图所示。

4. 再次右键单击命令按钮，然后从右键菜单中选择 查看代码。

5. 接着在 Microsoft Visual Basic for Applications 窗口中，请用以下 VBA 代码替换原始代码，并将其粘贴到 代码 窗口中。

VBA 代码：通过命令按钮自动插入空白新行

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

注意：在代码中，CommanButton1 是您创建的命令按钮的名称。

6. 同时按下 Alt + Q 键以关闭 Microsoft Visual Basic for Applications 窗口。并在 开发工具 选项卡下关闭 设计模式。

7. 点击插入的命令按钮，会弹出一个 Kutools for Excel 对话框。请输入要添加空白新行的特定行号，然后点击 确定 按钮。见截图：

接着，空白新行将插入到工作表的指定位置，如下截图所示。并且它保留了上方单元格的格式。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在 Excel 中使用命令按钮将活动工作表保存为 PDF 文件？
• 如何在 Excel 中将单元格格式化为看起来像 3D 按钮？
• 如何根据指定单元格值在 Excel 中隐藏或取消隐藏命令按钮？