VBA code to delete blank Columns in table example will helps to delete empty Columns in specific table range from excel worksheet. We can use Delete method of Columns to delete the Columns in a table. In this example we will see how to delete the Columns from a table in excel worksheet using VB. Excel VBA Macro code for deleting Columns in a table should work for all the version of Microsoft Excel 2003, Excel 2007, Excel 2010, and Excel 2013.

VBA Delete blank Columns in table Excel Macro Example Code

VBA code to delete Columns in a table


Here is the Example VBA syntax and Example VBA Macro to delete Columns in table from excel worksheets. This will help you to know how to delete specific Columns in a table from Excel workbook using VBA.

VBA delete blank Columns in table: Syntax


Following is the VBA syntax and sample VBA code to delete Columns in a table from worksheet using VBA. We are using the Delete method of the Columns object of worksheet.


If Application.WorksheetFunction.CountA(Columns(ColumnNumber)) = 0 Then Columns(ColumnNumber).EntireColumn.Delete

Here Application.WorksheetFunction.CountA will check if the Column is blank. And the Columns.delete method will delete the Column if Column is blank.

Delete blank Columns in Table: Examples


The following VBA code is to delete blank Columns in Table1 in the active sheet if Columns are blank.

Sub sbVBS_To_Delete_Blank_Columns_In_Table()
Dim iCntr As Long
Dim rng As Range

Set rng = ActiveSheet.ListObjects("Table1").Range

For iCntr = rng.Column + rng.Columns.Count - 1 To rng.Column Step -1
        If Application.WorksheetFunction.CountA(Columns(iCntr)) = 0 Then Columns(iCntr).EntireColumn.Delete
    Next
End Sub 

Instructions to run the VBA code to delete blank Columns in table


Please follow the below steps to execute the VBA code to delete blank Columns in Table1 from Excel worksheets.
Step 1: Open any Excel workbook
Step 2: Press Alt+F11 – This will open the VBA Editor
Step 3: Insert a code module from then insert menu
Step 4: Copy the above code and paste in the code module which have inserted in the above step
Step 5: Enter some sample data and insert table. And leave some blank Columns for testing purpose.
Step 6: Now press F5 to execute the code

Now you can observe that the all blank Columns are deleted from worksheet in in Table1.

Explained VBA Code to Delete Columns in Table


Start writing the Excel VBA Macro to delete blank Columns in a particular range.
Sub sbVBS_To_Delete_Blank_Columns_In_Table()

‘Declaring a variable iCntr as Long to store the Column number iteration to use in for loop.
Dim iCntr As Long
‘Declaring range variable rng to set the range
Dim rng As Range

‘Assigning the range A10 to D20 to rng range object
Set rng = ActiveSheet.ListObjects(“Table1”).Range

‘Looping through the Columns in the table tange from last to frist. Here step statement will helps.
For iCntr = rng.Column + rng.Columns.Count – 1 To rng.Column Step -1
‘Checking the Column if it is blank.
‘And deleting the Column if it is blank.
If Application.WorksheetFunction.CountA(Columns(iCntr)) = 0 Then Columns(iCntr).EntireColumn.Delete
Next

End Sub
Ending the sub procedure to delete blank Columns in a table range.

120+ Professional Project Management Templates!
Save Up to 85% LIMITED TIME OFFER

A Powerful & Multi-purpose Templates for project management. Now seamlessly manage your projects, tasks, meetings, presentations, teams, customers, stakeholders and time. This page describes all the amazing new features and options that come with our premium templates.

Browse All Templates
Excel VBA Project Management Templates

All-in-One Pack
120+ Project Management
Premium Templates
View Details

Essential Pack
50+ Project Management
Premium Templates
View Details
50+ Excel
Project Management
Templates Pack
View Details
50+ PowerPoint
Project Management
Templates Pack
View Details
25+ MS Word
Project Management
Templates Pack
View Details
Ultimate Project Management Template
View Details
Ultimate Resource Management Template
View Details
Project Portfolio Management Templates
View Details
By Last Updated: June 17, 2022Categories: VBATags:

Share This Story, Choose Your Platform!

Leave A Comment