How to find dynamically a empty column and delete using VBA?

[Vijaychitra]

Attached the sample data.

 

[vletm]

Vijaychitra
Do You refer based Your sample file columns from A to G which has 'headers'?
There are many empty columns after G-column.
Do You have an idea to delete whole column?
How ( if columns A-G ):
#1 find the last used column
#2 check columns one-by-one from the last column (#1) to the 1st column
... if it's empty ( or there could be something in the 1st row ) then delete it

 

[Vijaychitra]

Do you have a sample code to find the empty column between A and G and delete it ? I am new to VBA.

 

[Marc L]

According to the attachment a VBA demonstration for a beginner starters :​

Sub Demo1()
        Dim C%
        Application.ScreenUpdating = False
    With [A1].CurrentRegion.Columns
        For C = .Count To 1 Step -1
            If Application.CountA(.Item(C)) < 2 Then .Item(C).Delete
        Next
    End With
        Application.ScreenUpdating = True
End Sub

Do you like it ? So thanks to click on bottom right Like !​

​

 

[Vijaychitra]

The code deletes all columns with values...I need to delete only empty column between A:D

I'm looking for a code -

Get the total column in current sheet, iterates on every column, find if the cells in each column is empty or not.
If cells in the column is empty, then delete the column.

In this table - I need to delete the column B & D.

A	B	C	D
1		4

 

[vletm]

Vijaychitra
What was expected result to Your sample file #1 reply?
= which columns would be there after run Your missing code?
Or
Is #5 reply something different than Your original?
... if so then try to modify < 2 to < 1.

#5 reply ... are those A, B, C, D headers too?

 

[Vijaychitra]

A, B, C, D are headers names.

I need to find the count of columns names in the sheet. - Column Count = 4
Need to find columns which have empty data in columns (excluding column header name) - Header 3 column is empty
If a column header have empty data, we need to delete the column. - " Header 3" column needs deletion

Before Running the Macro

Header 1	Header 2	Header 3	Header 4
3			6
5	5		7

After Running the Macro

Header 1	Header 2	Header 4
3		6
5	5	7

 

[vletm]

Vijaychitra
You skipped my three questions.
#4 reply's code works as You've written above.
What is missing?

 

[Marc L]

I need to delete only empty column between A:D

As I wrote « according to your attachment » it is exactly what my VBA demonstration does ‼​

​

Did you try at least with exactly the same attachment ?​

​

 

[Vijaychitra]

According to the attachment a VBA demonstration for a beginner starters :​

Sub Demo1()
        Dim C%
        Application.ScreenUpdating = False
    With [A1].CurrentRegion.Columns
        For C = .Count To 1 Step -1
            If Application.CountA(.Item(C)) < 2 Then .Item(C).Delete
        Next
    End With
        Application.ScreenUpdating = True
End Sub

Do you like it ? So thanks to click on bottom right Like !​

​

Thanks It worked Perfect.. Apologies for the delay...