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

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

使用「插入/刪除單元格」功能插入或刪除部分列
使用 VBA 程式碼插入或刪除部分列

使用「插入/刪除單元格」功能插入或刪除部分列

例如，您想在第 5 列中插入或刪除包含三個單元格的部分列，請按照以下步驟操作。

插入部分列

1. 選擇第 5 列中的三個單元格（所選單元格數應等於要插入的單元格數），然後點擊「開始」標籤下的「插入」 > 「插入單元格」。參見截圖：

2. 在「插入」對話框中，選擇「向右移動單元格」或「 向下移動單元格」選項，然後點擊「確定」按鈕。

接著，如下方截圖所示，插入了包含三個單元格的部分列。

刪除部分列

1. 選擇要刪除的部分列後，點擊「開始」標籤下的「刪除 > 刪除單元格」。

2. 在「刪除」對話框中，根據需要選擇「向左移動單元格」或「向上移動單元格」，然後點擊「確定」按鈕。參見截圖：

然後，所選的部分列即被刪除。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用 VBA 程式碼插入或刪除部分列

您還可以應用以下 VBA 程式碼來在 Excel 中插入或刪除部分列。

1. 選擇要在某列中插入部分列的任意單元格，然後按下 Alt + 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 鍵運行程式碼，然後會彈出一個 Kutools for Excel 對話框，請輸入所需的列數，然後點擊「確定」按鈕。

如果您在框中輸入 3，點擊「確定」按鈕後，三列包含三個單元格的部分列將插入到工作表的指定位置。

若要刪除部分列，您可以運行以下 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

運行程式碼後，也會彈出一個 Kutools for Excel 對話框，提醒您要刪除多少部分列，請輸入數字並點擊「確定」按鈕。然後指定的部分列將立即被刪除。