كود لإضافة صفوف فارغة بين كل صف

[rami91]

السلام عليكم:

أريد كود لإضافة صفوف فارغة (وليكن ستة صفوف فارغة ) بين كل صف .

وشكراً جزيلاً لكم.

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أخي الفاضل حفظك الله

راجع الرابط أدناه

http://www.officena....showtopic=38179

أبو أنس

[rami91]

ليس هذا طلبي .

المرفق يوضح طلبي جيداً .

إضافت صفوف فارغة.zip

[عبدالله المجرب]

استعمل هذا الكود

Sub Abu_Ahmed_Twzee3()

R = 1

For i = 1 To [A1000].End(xlUp).Row

Cells(i, 1).Resize(1, 5).Copy Sheets("ورقة2").Range("A" & R)

R = R + 6

Next

End Sub

[rami91]

شكرا ً أخي عبدالله المجرب ونفع الله بك وبعلمك .