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

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

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

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

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

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

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

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

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

3. 然後所有帶有 1 的行都會被隱藏。選擇顯示為 0 的可見行，然後點擊「開始」>「刪除」>「刪除工作表行」以刪除這些行。這樣就刪除了每隔一行，並且您需要再次點擊篩選按鈕來只顯示帶有 1 的行。請參見截圖：

4. 最後，您可以根據需要刪除輔助列 C。

使用 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 鍵運行此宏。然後會彈出一個對話框供您選擇範圍。請參見截圖：

4. 接著點擊「確定」，所選範圍內從第二行開始的每隔一行將立即被刪除，請參見截圖：

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

對於 Microsoft Excel 的初學者來說，使用 VBA 宏有點複雜。Kutools for Excel 的「選擇間隔行和列」工具可以幫助您快速刪除每隔一行。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 選擇要刪除每隔一行的範圍，然後通過點擊「Kutools」>「選擇」>「選擇間隔行和列…」應用此工具。

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

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

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

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

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