Delete Multiple Columns

[MattC00]

Hello all, I've no doubt this is so simple it's elsewhere in the forum but I've spent 90 minutes trying to find it and all my searches return something much complicated that I need, understand, or am ready for!!

Basically, I have a direct export setup from a database that comes off with Columns A - IH, and contains a load of rubbish that I don't need for my purposes.

What I'd like is a Macro that just says "delete columns A, C, E, Z, AA, DR" etc, so I can just trim the export down to the data that I actually need.

I have tried something like

Columns("B").Delete
Columns("D:G").Delete
Columns("J").Delete

But that of course recalcualtes, so after it deletes column B, it then starts again and what it now thinks is in Column D was originally in Column E. What I'd like is a macro that does it all based on the "starting point" if that makes sense.

If someone is able to help it would be greatly appreciated! Thanks!

Ps. I can set the macro by "column name" if needs be as they'll always be consistent, but using Column Letter would be preferable.

 

[VoG]

Try

Sub DelCols()
Range("A1,C1,E1,Z1,AA1,DR1").EntireColumn.Delete
End Sub

 

[gsistek]

Why don't you start with the last column and work your way back to column B?

 

[MattC00]

Thanks very much chaps really appreciate the assistance, formula's I'm relatively savvy at, Macros are a whole new world to me!

VoG - works perfect thanks again! I'd tried a couple of ways but hadn't accounted for the "1" and using the entirecolumn bit.

gisistek - That would have also worked and have to confess hadn't even thought about it. Having the solution makes it cleaner though thanks VoG

 

[Chris K]

Hi Guys,

I'm having a similar problem. I used the code:

Range("C:E;G:K;N:S;W:AJ").EntireColumn.Delete

And

Columns("C:E;G:K;N:S;W:AJ").EntireColumn.Delete

And

Columns("C:E;G:K;N:S;W:AJ").EntireColumn.Select
Selection.EntireColumn.Delete

But there is an error. When they do work however, they don't delete the correct ones. Is there a way to delete the columns at the same time? I think it does the same thing as MattC00's code. It deletes a range of colums then recalculates. "It recalcualtes, so after it deletes column B, it then starts again and what it now thinks is in Column D was originally in Column E".

Please help me understand how to do this.

Thank you