如何在 Excel 中快速刪除每隔一列？

作者Kelly修改日期2024-08-21

想在 Excel 中快速刪除每隔一列或一欄？關鍵在於先精準選取這些間隔的列或欄，再執行刪除操作。本文將為您介紹幾種巧妙方法，助您輕鬆選取並迅速刪除它們！

使用篩選指令在 Excel 中刪除每隔一列

使用 VBA 程式碼在 Excel 中刪除每隔一列

使用 Kutools for Excel 在 Excel 中刪除每隔一列或一欄

使用篩選指令在 Excel 中刪除每隔一列

Microsoft Excel 的篩選功能可協助您快速篩選出每隔一列，並一次全部刪除！請依照下列步驟操作：

1. 在原始資料旁的空白欄位中，輸入 0,1,0,1……、0，1. 在此範例中，我們於輔助欄 C 輸入這些數字。請參閱下圖：

在輔助欄位中輸入 0、1 數字

2. 選取欄位 C，然後點擊篩選按鈕（位於）資料頁籤下）。接著點擊 C1 儲存格旁的下拉箭頭，僅勾選 0（位於）全選選項下方）。請參閱截圖：

使用篩選功能勾選 0

3. 此時所有包含 1 的列會被隱藏。請選取可見的 0 列，然後點擊開始> 刪除> 刪除工作表列，即可刪除這些列。如此便輕鬆完成每隔一列的刪除！接著再次點擊篩選按鈕，即可僅顯示包含 1 的列。請參閱截圖：

4. 最後，您可依需求刪除輔助欄 C。

選取每隔一列（或第 n 列）、欄，然後一次全部刪除

Kutools for Excel 的選擇間隔行／列工具，可協助您快速找出並選取每隔一列（或第 n 列）或欄，隨即依需求執行相關操作！立即下載 Kutools for Excel！

使用 VBA 程式碼在 Excel 中刪除每隔一列

事實上，VBA 巨集也是解決此問題的絕佳選擇。

1. 在 Excel 中按住 Alt+F11 鍵，即可立即開啟 Microsoft Visual Basic for Applications 視窗！

2. 點擊插入＞模組，並將下列巨集貼到模組視窗中。

VBA 程式碼：刪除選取範圍中每隔一列：

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵執行此巨集，隨即彈出對話方塊供您選取範圍。請參閱截圖：

用於選取資料範圍的 VBA 程式碼

4. 接著點擊確定，系統將立即從第二列開始，於選擇區域中每隔一列刪除資料。請參閱截圖：

使用 Kutools for Excel 在 Excel 中刪除每隔一列或一欄

對於 Microsoft Excel 新手來說，使用 VBA 巨集稍嫌複雜；而選擇間隔行/列功能（屬於）Kutools for Excel）能幫您快速刪除每隔一列，輕鬆提升效率！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請依照下列步驟操作：

1. 選取您要刪除每隔一列的範圍，然後點擊 Kutools> 選取> 選擇間隔行/列…… 即可套用此功能。

點擊 Kutools 的「選擇間隔列與欄」功能

2. 在選擇間隔行/列對話方塊中，依照下圖所示設定選項後，點擊確定按鈕，即可先選取每隔一列。

在對話框中設定操作

3. 此時，選取範圍內每隔一列將被選取並醒目提示。請參閱截圖：

選取範圍內每隔一列已被選取

4. 接著，請點擊開始> 刪除> 刪除工作表列，即可快速刪除所有已選取的每隔一列。截圖如下：

透過此功能，您還能根據需求刪除每隔第 n 列或欄。

立即下載並免費試用 Kutools for Excel！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多