How to delete empty columns with header in Excel?
If you have a large worksheet which contains multiple columns, but some of the columns only contain a header, and now, you want to delete theses empty columns which with only a header to get the following screenshot shown. Is this can be solved in Excel quickly and easily?
Delete empty columns with a header by using VBA code
Delete multiple empty columns in a range / worksheet / workbook with Kutools for Excel
Delete empty columns with a header by using VBA code
In Excel, there is no direct method to deal with this job excepting delete them one by one manually, but, here, I can introduce a code for you, please do as follows:
1. Hold down the ALT + F11 keys, then it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
VBA code: Delete empty columns with a header:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Then press F5 key to run this code, and a prompt box will pop out to remind you the blank columns with header will be deleted, see screenshot:
4. And then click OK button, all the blank columns with only header in current worksheet are deleted at once.
Note: If there are blank columns, they will be deleted as well.
Delete multiple empty columns in a range / worksheet / workbook with Kutools for Excel
Sometimes, you just only need to delete the blank columns, the Kutools for Excel’s Delete Hidden (Visible) Rows & Columns utility can help you to finish this task with ease.
| Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 30 days. |
After installing Kutools for Excel, please do as follows:
1. Select the columns range which include the blank columns need to be deleted.
2. Then click Kutools > Delete > Delete Hidden (Visible) Rows & Columns, see screenshot:
3. In the Delete Hidden (Visible) Rows & Columns dialog box, you can select the delete scope from the Look in drop down as you need, select Columns from the Delete type section, and then choose Blank columns from the Detailed type section, see screenshot:
4. Then click Ok button, and only the empty columns are deleted at once. See screenshot:
Tips: With this powerful feature, you can also delete blank rows, visible columns or row, hidden columns or rows as you need.
Click Free Download Kutools for Excel Now!
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
