Today we are going to explore various ways to delete every other row or delete every other column in Excel. VBA macro code is included to help you on your way if that is the path you choose.<\/p>\n\n\n\n

Additionally, we will also cover how to delete every third\/fourth\/fifth row or column in Excel.<\/p>\n\n\n\n

To delete alternate rows, you can use a helper column and use a formula that helps you identify alternate rows. This could be done by using the ISEVEN function that checks each row number and returns TRUE if the row is even and false if it isn’t.<\/p>\n\n\n\n

Once you have this, you can easily filter the rows with FALSE in the helper columns and delete these.<\/p>\n\n\n\n

In case you want to delete every third row, you need to use the MOD function to identify every third row. Once you have it, you can easily filter and delete every third row or every fourth row.<\/p>\n\n\n\n

I also cover a method to use a simple VBA code to delete alternate rows in Excel.<\/p>\n\n\n\n

Below is that VBA CODE TO DELETE ALTERNATE ROWS:<\/p>\n\n\n\n

Sub Delete_Every_Other_Row()\nDim Rng As Range\nSet Rng = Application.InputBox(\"Select the Range (Excluding headers)\", \"Range Selection\", Type:=8)\nFor i = Rng.Rows.Count To 1 Step -2\nIf i Mod 2 = 0 Then\nRng.Rows(i).Delete\nEnd If\nNext i\nEnd Sub<\/code><\/pre>\n\n\n\n
When it comes to deleting alternate columns, you cannot filter these. You can instead sort and bring all those columns together that you want to delete.<\/p>\n\n\n\n
I cover a simple method that uses the MOD function to identify alternate columns and then sort these from left-to-right to bring these together. Once you have these in one place, you can select and delete these.<\/p>\n\n\n\n
And there is also a VBA code that you can use to delete alternate columns.<\/p>\n\n\n\n
Below is the VBA CODE TO DELETE ALTERNATE COLUMNS<\/p>\n\n\n\n
Sub Delete_Every_Other_Column()\nDim Rng As Range\nSet Rng = Application.InputBox(\"Select the Range (Excluding headers)\", \"Range Selection\", Type:=8)\nFor i = Rng.Columns.Count To 1 Step -2\nIf i Mod 2 = 0 Then\nRng.Columns(i).Delete\nEnd If\nNext i\nEnd Sub<\/code><\/pre>\n\n\n\n
<\/p>\n\n\n\n
Subscribe to this YouTube channel to get updates on Excel Tips and Excel Tutorials videos – https:\/\/www.youtube.com\/c\/trumpexcel<\/p>\n\n\n\n
<\/p>\n\n\n\n
You can find a lot of useful Excel resources on the following site: https:\/\/trumpexcel.com\/<\/p>\n\n\n\n
#Excel #ExcelTips #ExcelTutorial<\/p>\n\n\n\n