Delete column

[carlosjcabral]

The code below deletes a row if. How do you make this delete the column istead of the row if...?


Dim dd As Long, d As Long
dd = Cells(Rows.Count, 2).End(xlUp).Row
For d = 2 To dd
If Cells(d, 8).Value = "" Then Columns(d).Delete = xlToLeft
Next d

 

[Jonmo1]

Try this, based on Row 1.

Dim lc As Long, i As Long
lc = Cells(1, Columns.Count).End(xlToLeft).Column
For i = lc to 1 Step - 1
    If Cells(1, i).Value = "" Then Rows(i).Delete
Next i

 

[Jonmo1]

Also, if your blanks are TRUE blanks, and not the end result of a formula returning "", then it can be done as a one liner...


Delete Rows based on Blanks in Column H.

Range("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete


Delete Columns based on Blanks in Row 1

Range("1:1").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete



Hope that helps.