تحويل العامود بشرط

[yasseru]

محتاج احول بيانات العامود الي صفوف تحت بعض كما هو في اول مثالين

E Invoicing2.xlsx

[محمد هشام.]

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

تفضل اخي

Sub MH_copy()
Dim i As Long
lastro = Feuil1.Cells(Rows.Count, 3).End(xlUp).Row + 1

Application.ScreenUpdating = False
     With Cells(1).CurrentRegion
     For i = 1 To .Rows.Count Step 15

.Rows(i).Resize(15).Copy
 Range("c" & Rows.Count).End(xlUp)(2).PasteSpecial Transpose:=True
 
        Next
    End With
     
    Application.ScreenUpdating = True
   
End Sub

 

E Invoicing2_mh.xlsm

[yasseru]

شكراً على المجهود الرائع