Creating VBA Code to Delete Empty Column in Table

Cosmo · #4 08-07-2014, 12:52 PM

Untested, but I believe you should be able to change the following lines:

Code:

For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Columns(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Columns(i).Delete
Next i

to

Code:

For i = n To 1 Step -1
fEmpty = False
For Each cel In Tbl.Columns(i).Cells
If NOT (Len(cel.Range.Text) > 2) Then
fEmpty = True
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Columns(i).Delete
Next i

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Delete row when 2 column has no value	Rok	Word VBA	1	11-26-2013 01:59 AM
Unable to open or delete an empty folder	Zimm	Windows	4	11-19-2013 05:07 PM
Delete lots of empty space between paragraphs.	FieldTechnician	Word	4	10-25-2013 01:14 PM
Macro to delete rows with all empty cells	ubns	Excel Programming	2	08-14-2012 02:01 AM