حذف چند سطر از چند شیت به طور همزمان

[Amir Ghasemiyan]

بله شد
ممنونم ازتون که همیشه سریع پاسخ پرسش های من رو میدین..
خیلی سپاسگزارم

دوست عزیز اگر پاسختون رو دریافت کردین تاپیک رو حل شده کنید لطفا

[سوده68]

با سلام
این کد رو با زدن کلید alt+f11 و قرار دادن در یک Module امتحان کنید.

[LEFT]
Sub Delete_17Rows()
Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Worksheets
         ws.Range("a1:a17").EntireRow.Delete
         Next ws
End Sub
[/LEFT]

بله شد
ممنونم ازتون که همیشه سریع پاسخ پرسش های من رو میدین..
خیلی سپاسگزارم

[amir_ts]

با سلام
این کد رو با زدن کلید alt+f11 و قرار دادن در یک Module امتحان کنید.

[LEFT]
Sub Delete_17Rows()
Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Worksheets
         ws.Range("a1:a17").EntireRow.Delete
         Next ws
End Sub
[/LEFT]

[سوده68]

سلام خسته نباشید
من توی یک فایل اکسل 1000تا شیت دارم که میخوام توی هرکدوم ازین شیت ها 17 سطر اول رو حذف کنم
خیلی سخته که دونه دونه این کارو بکنم
راهی هست که سریع بتونم این کارو بکنم؟