bijan ram

نمیدونم چرا باید حداقل ۳ ۴ بار برنامه رو ران کنم تا تمام صفراشو حذف کنه به هر حال مرسی

محیط وی بی ای شیت کجاست؟‌ مرسی

سلام 750 تا ردیف دارم میخوام ردیفایی که ستون هفتمشون برابر 0 هست رو حذف کنم و در ضمن وقتی ردیفها حذق شدند ردیفهای باقیمانده بینشون فاصله نباشه و پشت هم بیان کد وی بی کسی میتونه بنویسهه براش؟ من خودم اینو نوشتم ولی جواب نگرفتم اولا همه صفر ها پاک نشدند و ثانیا بین ردیف های باقیمانده فاصله افتاد Sub sec() For i = 1 To 750 If Cells(i, 7) = 0 Then Rows(i).EntireRow.Delete End If Next i End Sub[/left]