خلايا رأسية متعددة

[hanafymahmood]

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

المرفق ملف به عمود يحتوى على سجلات الطلاب كل طالب يشغل ستة صفوف والمطلوب جعل هذه الصفوف الستة فى صف واحد علما بأن العمود يشمل على مئات الطلاب

1.xlsx

[محمد هشام.]

تفضل اخي

Sub MH_copy()
Dim i As Long
Application.ScreenUpdating = False
With Cells(1).CurrentRegion
For i = 2 To .Rows.Count Step 6
lastro = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1
.Rows(i).Resize(6).Copy
 Range("c" & Rows.Count).End(xlUp)(2).PasteSpecial Transpose:=True
         Next
    End With
        If Range("c3").Value <> "" Then Range("C2:h" & lastro).Select
    With Range("C2:h" & lastro).Borders.LineStyle = xlNone
    Range("C2:h" & lastro).Borders.LineStyle = xlContinuous
    Range("a1").Select
    Application.ScreenUpdating = True
     End With
End Sub

1.xlsm

[hanafymahmood]

جزاكم الله خيرا اخي الكريم وبارك فيكم ونفع بكم ورضي عنكم وارضاكم