اضافة صفوف باستخدام الاكواد

[محمد ديب]

لدى شيت يحتوى على 100 صف اريد اضافة صف فوق كلا منهما فارغ باستخدام الاكواد

ارجو ارسال الكود مع شرح الكود

تم تعديل مايو 16, 2013 بواسطه دغيدى

[عبدالله باقشير]

السلام عليكم

 

جرب هذا:

Sub kh_Add_Row()
Dim R As Integer
For R = 100 To 1 Step -1
    Cells(R, 1).EntireRow.Insert
Next
End Sub

[محمد ديب]

الف شكلر استاذى العزيز