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

[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