How to quickly delete every other row in Excel?

If you want to quickly delete every other row or column in Excel, the main point is how can you quickly select every other row or column first and then apply the delete operation to them. And this article will show you some tricky things about how to select every other row or column first and then delete them quickly.

Delete every other row in Excel with Filter command

Delete every other row in Excel with VBA

Delete every other row in Excel with Kutools for Excel

Supposing you have some data as follows screenshot shows, now you need to delete every other row in it.

Amazing! Using Tabs in Excel like Firefox, Chrome, Internet Explore 10!

Learn more Free download

Delete every other row in Excel with Filter command

Microsoft Excel's Filter command can help you quickly remove every other row with the following steps:

Step 1: In a blank column besides original data, enter 0,1,0,1…,0,1. In this case, we enter the numbers in Column C. See the following screenshot:

Step 2: Select the column C, and click the Filter button under Data tab.

Step 3: Click the arrow button besides C1, and uncheck Select all option in the list and check the 0 option.

Step 4: Then all rows with 1 are hidden. Select all of rows with 0, and click the Home > Delete > Delete sheet rows to delete these rows. Then it deletes every other row, and you need to click Filter button again to show only the rows with 1. See screenshots:

Delete every other row in Excel with VBA

There are too many steps to delete every other row with Filter command. Actually, VBA macro is also a good choice to resolve this problem.

Step 1: Hold down the Alt + F11 keys in Excel, and it opens the Microsoft Visual Basic for Applications window.

Step 2: Click Insert > Module, and paste the following macro in the Module Window.

VBA for deselecting every other row in Excel

Sub DELETE_DATA_ODD_ROWS_OVERALL_REPORT()
Dim rng As Range
Application.ScreenUpdating = False
Columns("A:A").Insert
Set rng = Range("A1:A999")
With rng
.FormulaR1C1 = "=IF(MOD(ROW(),2)=0,1,"""")"
.SpecialCells(xlCellTypeFormulas, 2).EntireRow.ClearContents
End With
Columns("A:A").Delete
Application.ScreenUpdating = True
End Sub

Step 3: Press the F5 key to run this macro. Then the content of every other row from the 1st row to the 999th row is cleared, leaving blanking rows. See screenshots:

Notes:

1. This VBA is only able to clear the content of every other row, but not delete the every other row.

2. You can replace the A1:A999 with required ranges in the VBA, such as A1:A100.

Delete every other row in Excel with Kutools for Excel

For a starter user of Microsoft Excel, using VBA macro is a littler bit complicated. The Select Interval Rows & Columns utility of Kutools for Excel can help you delete every other row quickly.

Kutools for Excel includes more than 120 handy Excel tools. Free to try with no limitation in 30 days. Get it Now.

Step 1: Select the range that you want to delete every other rows, and then applying this utility by clicking the Kutools > Select Tools > Select Interval Rows & columns….

Step 2: In Select Interval Rows & Columns dialog box, specify the settings as following screenshot shows, and click OK button to select every other rows first.

Step 3: Then every other row in the selection is selected and highlighted. You can quickly delete the selected every other rows by pressing the Delete key or clicking the Home > Delete > Delete sheet rows to delete all of these rows.

Click to know more about this Select Interval Rows & Columns feature.

Kutools for Excel

More than 120 Advanced Functions for Excel 2013, 2010, 2007 and Office 365.