Deleting Rows

[Foz1980]

Hi all,

I am using the below code to delete a range of columns.

Range("A:A,C:C,D:D,E:E,F:F,G:G,I:I,K:K,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,T:T").Delete

However, I also want a code to delete a range of rows but am struggling to work this out.

Please can someone help?

Cheers

Chris

 

[Joe4]

Like this:

    Range("10:10,15:15,20:20,25:25").Delete Shift:=xlUp

By the way, this:

Range("A:A,C:C,D:D,E:E,F:F,G:G,I:I,K:K,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,T:T").Delete

can be condensed to this:

Range("A:A,C:G,I:I,K:K,M:T").Delete

(note how continuous columns can be combined)

 

[Foz1980]

Brilliant, cheers Joe.
That's worked perfectly!
Also thanks for helping condense the column deletion too

 

[Joe4]

You are welcome!

You can use the same condense methodology on rows too, if you have consecutive rows to delete.