如何使用巨集在 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 對話框，請選擇您要在其下方新增空白行的特定表格範圍，然後點擊 確定 按鈕。詳見截圖：

然後您可以看到在指定表格的底部新增了一個新的空白行，並且上方儲存格中的公式也保留在新插入的行中，如下方截圖所示：