excel-delete-empty-columns

Excel - Delete Empty Columns

This macro deletes empty columns in a worksheet.

Excel

  • 7309
  • 1852
  • 0
  • 0
Add to collection
© 2025VBAmacros.net

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!


Advertisement

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
Advertisement


Comments
Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!