Excel - Delete Empty Columns

This macro deletes empty columns in a worksheet.

Excel

6697
1661
0
0

Add to collection

1 Open MS Excel.

2 Create a blank workbook.

3 Go to Developer's tab > click on "Visual Basic" button or hit Alt + F11.

4 Go to Insert tab > click on "Module" or hit M.

5 Copy the VBA code from below.

6 Paste the code in the newly created module.

7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.

8 That's it!

Code

'==========================================
' Delete Empty Columns
'==========================================
Sub deleteEmptyColumns()
    ' Set variables
    Dim i As Long
    Dim lngLastColumn As Long
    ' Get last column
    lngLastColumn = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
    ' Turn off screen updating
    Application.ScreenUpdating = False
    ' Loop from last column cell to 1
    For i = lngLastColumn To 1 Step -1
        ' Check if column has any values
        If Application.WorksheetFunction.CountA(Columns(i)) = 0 Then
            ' Delete column
            Columns(i).Delete
        End If
    Next i
    ' Turn on screen updating
    Application.ScreenUpdating = True
End Sub