Delete Columns

[billandrew]

Could someone explain why this coed to delete every other column does not work.

Sub delete_every_other_column()

lastcol = Cells(1, columns.Count).End(xlToLeft).Column
For c = lastcol To 2 Step -2
Cells(1, c).EntireColumn.Delete
Next c

End Sub

 

[mumps]

Try:

Sub delete_every_other_column()
    Dim lastcol As Long
    lastcol = Cells(1, Columns.Count).End(xlToLeft).Column
    For c = lastcol To 2 Step -2
        lastcol = Cells(1, Columns.Count).End(xlToLeft).Column
        Cells(1, c).EntireColumn.Delete
    Next c
End Sub

 

[Fluff]

Hi @billandrew
Can you explain why you think that your code is not working, as it does delete every other column.
@mumps
recalculating lastcol every iteration shouldn't make any difference.

 

[mumps]

@Fluff
My apologies, you are perfectly correct!!!!

 

[billandrew]

You are correct.

deletes every other columns if there is data in every column. In my data set the columns are blank every other...

 

[Fluff]

If you mean you want to delete the blank columns.
This will delete those columns where Row 1 is blank

Sub DelBlankCols()
    
    Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
    
End Sub

 

[billandrew]

Yes sir This is what I was intending.

So simple and yet so difficult.

Thank You!

 

[Fluff]

Glad to help & thanks for the feedback