ماشاء الله ربنا يكرمك
Sub شكلتلقائي1_نقر()
Dim m As Integer
'نكتب فى جملة for من 1 الى رقم آخر طالب فى الكشف مضروبا فى 2
' هنا العدد فى هذا الكشف 10
' اذا العدد فى جملة if = 10*2 = 20
For m = 1 To 20 Step 2
' تم اختيار الخلية a12 وهى أول خلية فى الشيت تبدأ باسم أول طالب
Range("A12").Offset(m, 0).Select
Selection.EntireRow.Insert
Next
End Sub
كود رائع