如何使用宏在Excel中插入带有保留公式的表格下方行？

我们经常需要在指定表格的底部添加空白行，以扩展表格并添加新内容。本文将介绍如何使用宏在指定表格下方插入新行，并保留上方单元格中的公式。

使用宏在Excel中插入表格下方的行

使用宏在Excel中插入表格下方的行

请按照以下步骤操作，在指定表格下方通过宏插入空白行。

1. 同时按下 Alt + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块 以打开模块窗口。然后复制并将以下 VBA 代码粘贴到窗口中。

VBA代码：使用宏在指定表格下方插入空白行

Sub AddRows()
'Updated by Extendoffice 2017/9/12
    Dim xLastRow As Long
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xLastRow = xRg.Row + xRg.Rows.Count
    xRg.Rows(xLastRow).FillDown
    xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

3. 按下 F5 键运行代码。随后会弹出一个 Kutools for Excel 对话框，请选择要添加空白行的特定表格区域，然后点击 确定 按钮。参见截图：

然后您可以看到在指定表格的底部新增了一行空白行。并且上方单元格中的公式也保留在新插入的行中，如下图所示：