Deleting Multiple Blank Columns

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.

delete blank columns2

#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.

delete blank columns1

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

delete blank columns3

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

delete blank columns4

#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.

delete blank columns5

#6 let’s see the result.

delete blank columns6

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.

delete blank columns7

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

delete blank columns8

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

delete blank columns9

#5 let’s see the result.

delete blank columns10

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.

Get the position of the nth using excel vba1

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

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

convert column number to letter3

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

delete blank columns11

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.

delete blank columns12

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

delete blank columns13

#7 Let’s see the result.

delete blank columns10

 

Comments

So empty here ... leave a comment!

Leave a Reply

Your email address will not be published. Required fields are marked *

Sidebar