خذف سطرهای اضافی

[monadi2012]

سلام دوستانمن یه ورک شیت طراحی کردم که یه سری اطلاعات از جایی توی اون وارد میشهمیخوام با بررسی کردن ستون تعداد در صورتی که تعدا اون سطر صفر وارد شده اون سطر حذف بشه و جای خالی با سطر بعدی پر بشهیعنی در حفیفت سطر هایی که ستون تعداد در اونها مقدارش صفر هست را از لیستم حذف کنم

[generalsamad]

با سلام
اول شیت را از حالت protect خارج کنید سپس از ماژول زیر استفاده کنید:




Sub Delete_Rows()
Dim i, LR As Long
LR = Cells(Rows.Count, 6).End(xlUp).Row
For i = LR To 7 Step -1
If Range("F" & i) = 0 Then
Range("F" & i).EntireRow.Delete
End If
Next i
End Sub