بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
Wael Hamed_1975
-
Posts
54 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
Wael Hamed_1975's post in مساعدة في حذف الصفوف was marked as the answer
تم إيجاد الكود
Sub dd() Dim lr As Integer lr = [a1000].End(xlUp).Row + 1 Rows(lr & ":" & 26).Delete shift:=xlUp End Sub