如何快速刪除 Excel 中的每隔一行？

Author Kelly Last modified 2025-08-23

如果您想快速刪除 Excel 中的每隔一行或列，關鍵在於如何快速選擇每隔一行或列，然後對其進行刪除操作。本文將向您展示一些技巧，介紹如何先選擇每隔一行或列，然後快速刪除它們。

使用篩選命令刪除 Excel 中的每隔一行

使用 VBA 程式碼刪除 Excel 中的每隔一行

使用 Kutools for Excel 刪除 Excel 中的每隔一行或列

使用篩選命令刪除 Excel 中的每隔一行

Microsoft Excel 的篩選命令可以幫助您快速篩選每隔一行，然後一次性刪除它們，請按照以下步驟操作：

1. 在原始數據旁邊的空白列中輸入 0,1,0,1…,0,1。在此情況下，我們將數字輸入到輔助列 C 中。請參見以下截圖：

enter 0,1 numbers in a helper Column

2. 選擇列 C，然後點擊「資料」標籤下的篩選按鈕。接著點擊 C1 旁邊的箭頭按鈕，並僅勾選「全選」選項下的 0。請參見截圖：

check the 0 from the filter feature

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 code to select the data range

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」>「選擇」>「選擇間隔行和列…」應用此工具。

click Select Interval Rows & columns feature of kutools

2. 在「選擇間隔行和列」對話框中，指定如下截圖所示的設置，然後點擊「確定」按鈕以首先選擇每隔一行。

set operations in the dialog box

3. 然後選擇範圍內的每隔一行將被選擇並高亮顯示。請參見截圖：

every other row in the selection is selected

4. 然後您可以通過點擊「開始」>「刪除」>「刪除工作表行」快速刪除所選的每隔一行，以刪除所有這些行。請參見截圖：

使用此功能，您還可以根據需要刪除每隔第 n 行或列。

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

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多