تحويل البيانات من الطول الى العرض

[mohamed322]

السلام عليكم

برجاء المساعدة فى تحويل البيانات طبقا راس الموضوع على سطرين

تحويل من الطول الى العرض

شكراااا

تحويل من الطول الى العرض.xlsx

[lionheart]

Sub Test()
    Dim r As Long, m As Long
    Application.ScreenUpdating = False
        r = 1: m = 7
        Do
            Cells(m, 4).Resize(, 6).Value = Application.Transpose(Cells(r, 1).Resize(6).Value)
            m = m + 1: r = r + 6
        Loop Until r >= Cells(Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = True
End Sub

 

[mohamed322]

ممكن مساعدة فى الشيت نفسة واسف على الأزعاج شكرااااا على الأهتمام

[lionheart]

Press Alt + F11 to login VBE editor

From Insert menu select Module

Paste the code

Back to the worksheet and press Alt + F8 and click Run th execute the code

[mohamed322]

شكراااااااااااااااااااا جدااااااااااااااا ربنا يبارك فيكم