如何在Excel中插入或刪除部分行？

在Excel中從工作表中插入或刪除整行很容易。 但是，如何只插入或刪除工作表中的部分行呢？ 本文將為您提供幫助。

使用插入/刪除單元格功能插入或刪除部分行
使用VBA代碼插入或刪除部分行

---

使用插入/刪除單元格功能插入或刪除部分行

例如，您要在第5行中插入或刪除包含三個單元格的部分行，請執行以下操作。

插入部分行

1.在第5行中選擇三個單元格（所選單元格應等於插入的單元格），然後單擊 插入 > 插入單元格 下 首頁 標籤。 看截圖：

2。 在裡面 插入 對話框中選擇 向右移動單元格 or 下移單元格 選項，然後單擊 OK 按鈕。

然後插入具有三個單元格的部分行，如下圖所示。

刪除部分行

1.選擇要刪除的部分行後，單擊刪除> 刪除單元格 下 首頁 標籤。

2。 在裡面 刪除 對話框中選擇 左移單元格 or 向上移動單元格 根據需要，然後單擊 OK 按鈕。 看截圖：

然後刪除所選的部分行。

---

使用VBA代碼插入或刪除部分行

您還可以應用以下VBA代碼在Excel中插入或刪除部分行。

1.在特定行中選擇要插入部分行的任何單元格，然後按 其他 + F11 打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口中，單擊 插入 > 模塊。 然後將以下VBA代碼複製並粘貼到 推薦碼 窗口。

VBA代碼：在Excel中插入部分行

Sub InsertRow()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub

備註：在VBA代碼中，數字1表示將從第一列​​插入部分行，數字3表示將在列之間插入三個單元格。 您可以根據需要進行更改。

3。 按 F5 鍵來運行代碼，然後 Excel的Kutools 彈出對話框，請輸入所需的必要行數，然後單擊 OK 按鈕。

如果您在框中輸入3，請點擊 OK 按鈕，將在工作表的指定位置插入具有三列的三個部分行。

要刪除部分行，可以運行下面的VBA代碼。

VBA代碼：在Excel中刪除部分行

Sub DelActiveCell_Row()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub

運行代碼後，還有一個 Excel的Kutools 彈出對話框，提醒您要刪除的部分行，請輸入數字，然後單擊 OK 按鈕。 然後立即刪除指定的部分行。