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 code

Delete every other row or column in Excel with Kutools for Excel


Select every other or nth rows, columns and then delete them at once:

Kutools for Excel's Select Interval Rows & Columns utilty can help you to find and select every other or nth rows or columns, and then you can do some operations as you need.


arrow blue right bubble Delete every other row in Excel with Filter command

Hint


Microsoft Excel's Filter command can help you quickly filter every other row and then delete them at once, please do as follows:

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

2. Select the column C, and click the Filter button under Data tab. Then click the arrow button beside C1, and only check the 0 under the Select All option. See screenshot:

3. Then all rows with 1 are hidden. Select the visible 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:

doc-delete-every-other-row5 -2 doc-delete-every-other-row12

4. At last, you can delete the helper column C as you need.


arrow blue right bubble Delete every other row in Excel with VBA code

Actually, VBA macro is also a good choice to resolve this problem.

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

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

VBA code: Delete every other row in selection:

Sub DeleteEveryOtherRow()
'Updateby20160122
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. Press the F5 key to run this macro. Then a dialog pops up for selecting a range. See screenshot:

4.  Then click OK, every other row in the selected range from the second row is deleted at once, see screenshot:

doc-delete-every-other-row5 -2 doc-delete-every-other-row12

arrow blue right bubble Delete every other row or column in Excel with Kutools for Excel

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

Kutools for Excel : with more than 120 handy Excel add-ins, free to try with no limitation in 60 days. 

After installing Kutools for Excel, please do as follows:( Free Download Kutools for Excel Now! )

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

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

3. Then every other row in the selection is selected and highlighted. See screenshot:

4. Then you can quickly delete the selected every other rows by clicking the Home > Delete > Delete sheet rows to delete all of these rows. See screenshots:

doc-delete-every-other-row5 -2 doc-delete-every-other-row12

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

With this feature, you can also delete every nth rows or columns as you need.

Free Download Kutools for Excel Now!


Is your problem solved?

Recommended Productivity Tools

The following tools will greatly save your time and effort, which one do you prefer?
Office Tab: Using handy tabs in your Office, as the way of Chrome, Firefox and New Internet Explorer.
Kutools for Excel: 120 powerful new functions for Excel, Increase your productivity in 5 minutes. Save two hours every day!
Classic Menu for Office: Bring back familiar menus to Office 2007, 2010, 2013 and 365, as if it were Office 2000 and 2003.

Kutools for Excel

gold star1 Amazing! Increase your productivity in 5 minutes. Don't need any special skills, save two hours every day!

gold star1 More than 120 powerful advanced functions which designed for Excel:

  • Merge Cell/Rows/Columns without Losing Data.
  • Combine and Consolidate Multiple Sheets and Workbooks.
  • Compare Ranges, Copy Multiple Ranges, Convert Text to Date, Unit and Currency Conversion.
  • Count by Colors, Paging Subtotals, Advanced Sort and Super Filter,
  • More Select/Insert/Delete/Text/Format/Link/Comment/Workbooks/Worksheets Tools...

Screen shot of Kutools for Excel

btn read more     btn download     btn purchase

Add comment


Security code
Refresh