احتاج مساعدة ضرورية في تحويل dataset من عمود الى سجل

[Thamer383]

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

 

انا اقوم بعمل دراسة بحثية على مجموعة بيانات ولكن الجهه التي صدرت لي البيانات صدرتها لي بطريقة لا تتناسب مع طريقة البحث  حيث ان رقم الطالب مكرر 5 مرات بعدد المواد  لذلك اريد تحويله الى سجل واحد

 

هذا شكل البيانات التي لدي

 

اريد تحويلها الى هذا الشكل بحيث يكون سجل واحد فيه كل المعلومات الخاصة بالطالب

[أ / محمد صالح]

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

يفضل إرفاق مثال من الملف للعمل عليه

وسيراعي الكود زيادة عدد الصفوف

[Thamer383]

@ أ / محمد صالح  .. شكرا لسرعة تجاوبك وتم ارفاق مثال من الملف

EXAMPLE.xlsx

[أ / محمد صالح]

تفضل 

إن شاء اللّه يفيدك هذا المرفق

EXAMPLE.xlsb

[Thamer383]

@ أ / محمد صالح

شكرا لك استاذ محمد , فعلا حليت لي المشكلة بارك الله في علمك وعملك .. تقبل شكري وتقدري

 

 

[lionheart]

Sub Test()
    Dim cn As Object, rs As Object, i As Long
    With Worksheets("Data")
        Set cn = CreateObject("ADODB.Connection")
        Set rs = CreateObject("ADODB.Recordset")
        cn.Open ConnectionString:="Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;"""
        rs.Open "Transform First(Grade) Select ID, Gender, College, GPA, GPA2 From `" & .Name & "$A1:G` Where ID Is Not Null Group By ID, Gender, College, GPA, GPA2 Pivot Subject;", cn, 3
        With Worksheets("Report").Range("A1")
            .CurrentRegion.ClearContents
            .Range("A2").CopyFromRecordset rs
            For i = 0 To rs.Fields.Count - 1
                .Cells(1, i + 1) = rs.Fields(i).Name
            Next i
        End With
    End With
    Set cn = Nothing: Set rs = Nothing
End Sub

 

[أ / محمد صالح]

آمين ولك بالمثل ويزيد