This post will guide you how to quickly delete multiple blank columns in a selected range of cells in Excel. How do I delete blank columns or rows with go to special feature in Excel. How to delete all empty columns in a selected range in Excel.

Assuming that you have imported data from an external source, and it is possible that the data will contain blank columns in your worksheet, and you need to delete all blank columns, how to achieve it. If you just delete these blank columns by manually, it would be a bother. This post will introduce two ways to achieve the result.

Deleting Multiple Blank Columns with Go To Special Feature

---

If you want to delete all blank columns in your worksheet, and you can select these blank columns with Go To Special function, and then click Delete Sheet columns command to delete them. Just do the following steps:

#1 select the range of cells that contain blank columns you want to delete.

#2 go to HOME tab, click Find & Select command under Editing group. And select Go To Special menu from the pop-up menu list. And the Go To Special dialog will open.

#3 check Blanks radio button under Select section. And then click OK button.

#4 all blank columns will be selected in the selected range.

#5 then go to HOME tab, click on the arrow below the Delete command then click on Delete Sheet Columns, and all blank columns are deleted from the selected range.

#6 let’s see the result.

Deleting Multiple Blank Columns with Sort Feature

---

#1 select the range of cells that contain blank columns you want to delete.

#2 go to DATA tab, click Sort command under Sort & Filter group. And the Sort dialog will open.

#3 click Options command, select Sort left to right radio button under Sort options dialog. Click Ok button.

#4 select the first row from the sort by drop-down list. Click Ok button.

#5 let’s see the result.

Deleting Multiple Blank Columns with VBA Macro

---

You can also use an Excel VBA macro to check for blank columns in a selected range and then delete those blank columns. Just do the following steps:

#1 open your excel workbook and then click on “Visual Basic” command under DEVELOPER Tab, or just press “ALT+F11” shortcut.

#2 then the “Visual Basic Editor” window will appear.

#3 click “Insert” ->”Module” to create a new module

#4 paste the below VBA code into the code window. Then clicking “Save” button.

Sub DeleteBlankColumns()

    Dim myRange As Range

    Dim i As Long

    Set myRange = Application.Selection

    Set myRange = Application.InputBox("Select one Range that contain blank columns :", "Delete Blank Columns", myRange.Address, Type:=8)

    For i = myRange.Columns.Count To 1 Step -1

          If Application.CountA(Columns(i).EntireColumn) = 0 Then

               Columns(i).Delete

         End If

    Next

End Sub

#5 back to the current worksheet, then run the above excel macro. Click Run button.

#6 select one range that contain blank columns. Click OK button.

#7 Let’s see the result.