Delete Columns if sum is 0
Sub delCol()
Dim lr As Long, sh As Worksheet
Set sh = ActiveSheet
For i = 24 To 9 Step -1
lr = sh.Cells(Rows.Count, i).End(xlUp).Row
If WorksheetFunction.Sum(Range(sh.Cells(1, i), _
sh.Cells(lr, i))) = 0 Then
Columns(i).Delete
End If
Next
End Sub
"beancurd" wrote in message
...
Hi,
I want to delete columns if the total is 0
background: excel file columns I to X want to delete if whole column's
SUM is 0.
|