تکمیل کد جهت انجام یک چرخه

[khorasan66]

با سلام
در فایل پیوست ماکرو نوشته شده است که :
اگر سر ستون آن مساوی صفر و یا تهی باشد آن ستون حذف شود .
برای انجام امر فوق ماکرو را باید چند بار انجام داد تا تمامی ستون های صفر یا تهی حذف شود
چون با Loop While تا به حال کار نکرده ام
لطفا ماکرو تکمیل نمائید

[amir_ts]

با سلام
این کد رو جایگزین کد خودتون بکنید.


Sub DEL_1()
Dim lColumn As Long
Dim i As Long
Dim f As Integer
Application.ScreenUpdating = False
f = 1
lColumn = 32
For i = lColumn To 7 Step -1
If IsEmpty(Range(Cells(f, i), (Cells(f, i)))) = True Or Range(Cells(f, i), (Cells(f, i))).Value = 0 Then
Columns(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub