Delete blank columns in an exelsheet

Copper Contributor

I tried to delete numerous blank columns in one of my exel programs. I tried  Ablebits as well as

left click columns designate with right click and delete neither one works 

 

Any thoughts 

 

JM

1 Reply

@796408 

 

Try using VBA

 

Option Explicit

Sub nikolino_del()
Dim Spalte As Integer
Application.ScreenUpdating = False
For Spalte = 256 To 1 Step -1
  If Application.CountA(Columns(Spalte)) = 0 Then
     Columns(Spalte).Delete
  End If
Next
Application.ScreenUpdating = True
End Sub

 

 

I would be happy to know if I could help.

 

Nikolino

I know I don't know anything (Socrates)

 

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.