Is there an easy way to delete empty columns?

I am using Excel 2007.

I have a spreadsheet that has been exported from an in-house software
database. It has 57 columns and more than 1,000 rows. A lot of the columns
are totally blank. Other than finding them manually is there an easier way
to delete them?
--
Thank you.
Jayne

hi, !

I am using Excel 2007.
I have a spreadsheet that has been exported from an in-house software database.
It has 57 columns and more than 1,000 rows. A lot of the columns are totally blank.
Other than finding them manually is there an easier way to delete them?

1) select the entire row (say) of your titles
2) {F5} (button) special... blank cells accept
3) right-click delete... entire column

hth,
hector.

Sub colkiller()
Set r = ActiveSheet.UsedRange
nLastColumn = r.Columns.Count + r.Column - 1
For i = nLastColumn To 1 Step -1
Set rcol = Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rcol) = 0 Then
rcol.Delete Shift:=xlToLeft
End If
Next
End Sub
--
Gary''s Student - gsnu200803


"Acanesfan" wrote:

I am using Excel 2007.

I have a spreadsheet that has been exported from an in-house software
database. It has 57 columns and more than 1,000 rows. A lot of the columns
are totally blank. Other than finding them manually is there an easier way
to delete them?
--
Thank you.
Jayne