تكرار أول صف بعد كل تسلسل

[مهند الزيدي]

السلام عليكم .. 

ممكن عمل كود بحيث يقوم بتكرار أول صف بعد كل صف تسلسل كما مبين في المرفق حيث ان الشيت 1 هي الصفحة الرئيسية والشيت 2 هي النتيجة او المطلوب كما مبين في الصورة المرفقة ايضا 

مع شكري وتقديري

تكرار اول صف بعد كل تسلسل.rar

[سليم حاصبيا]

جرب هذا الماكرو

على اساس ان البيانات تبدأ من الخلية A1 وحتى العامود D

Sub InsertRowsAfter()
    Dim rg, MyCell, First_rg As Range
    Dim lr, x As Integer
    lr = Cells(Rows.count, 1).End(3).Row
    Set rg = Range("a1:a" & lr)
    Set First_rg = Range("a1:d1")

For i = 2 To lr * 2
   
        If Cells(i, 1).Value <> "" Then
            Cells(i, 1).Offset(1, 0).EntireRow.Insert
        End If
        
    Next

    x = Cells(Rows.count, 1).End(3).Row
    For i = 2 To x
    If IsEmpty(Cells(i, 1)) Then
     Range(Cells(i, 1), Cells(i, 4)).Value = First_rg.Value
     End If
     Next
    Cells(x + 2, 2) = "المجموع"
    t = "=SUM(D2:D" & x & ")"
     Cells(x + 2, 4) = Evaluate(t)
End Sub

 

[ابن بنها]

Sub InsertRowsAfter()
    Dim rg, MyCell, First_rg As Range
    Dim lr, x As Integer
    lr = Cells(Rows.count, 1).End(3).Row
    Set rg = Range("a1:a" & lr)
    Set First_rg = Range("a1:d1")

اليس بهذا الكود حددنا صف البدايه .. وكذلك صف النهايه

هل فهمي صح يا استاذ سليم

وصف النهايه متغير

[ياسر خليل أبو البراء]

بعد إذن أخي الكريم سليم وإثراءً للموضوع إليك الرابط التالي فيه حل لمشكلتك إن شاء الله

الرابط من هنا

تقبل تحياتي