Deleting every other column with a macro

Adrian1

Board Regular
Joined
Dec 30, 2003
Messages
126
Hi,

I have a problem...

I have a frequent task of cleaning up data on a spreadsheet. Starting from column E, I need to delete every other column as it contains irrelevant data. After all of the irrelevant columns have been deleted there musn't be any gaps left in the remaining columns. EG, sheet contains data in column D, F, H, J that I want to keep, but I want columns E, G, and I removing from the sheet and all the columns shifting over to the left.

Please help.

Thanks
 

Some videos you may like

Excel Facts

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.

Sean Stevens

Board Regular
Joined
Jul 24, 2003
Messages
123
You could use the following crude macro and just include all the columns that need deleting.

Sub DeleteColumns()

Range("E:E,G:G,I:I").Select
Selection.Delete Shift:=xlToLeft
End Sub

Regads.
 

jimboy

Well-known Member
Joined
Apr 11, 2002
Messages
2,314
do you want to do this by a macro?

try this;

Code:
    Range("E:E,G:G,I:I").Delete Shift:=xlToLeft
 

Watch MrExcel Video

Forum statistics

Threads
1,114,053
Messages
5,545,738
Members
410,703
Latest member
yaronjoseph
Top