تحويل الجدول العمودي الى افقي مع السحب الى الاسفل يقوم بالتعبئة الى النهاية

[مستخدم الاوفس]

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

اخواني الاعزاء لدي مشكلة في تحويل البيانات من الترتيب في العمود الى الصفوف 

انا اعرف اكثر من طريقة (استخدام ددالة Transpose واللصق الخاص وتبديل الوضع اثناء اللصق) ولكن هذه الطرق لا تلبي الغرض كثرة البيانات بحيث تحتاج الى ترتيب وكما مبين في المثال المرفق 

وفقكم الله لكل خير 

 

 

 

المصنف1.xlsx

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

جرب هذا الشيء

الكود

Option Explicit
Sub transform_To_Table()
With Salim
    Dim My_rg As Range
    Dim I%, R%, Col%, M%: M = 5
    Dim ro%: ro = 5
  Col = .[M2]
  .Range("e5").CurrentRegion.ClearContents
  R = .Cells(Rows.Count, 1).End(3).Row
   For I = 2 To Range("a2:a" & R).Rows.Count - 1
      .Cells(ro, M) = .Range("a" & I)
      M = M + 1
      If M > Col + 4 Then M = 5: ro = ro + 1
    Next
 End With
End Sub

الملف مرفق

My_table.xlsm

[مستخدم الاوفس]

الله يوفقك اخي العزيز وهو المطلوب 

لكن ممكن طريقة باستخدام المعادلات انا احاول الابتعاد عن الاكواد 

وشكرا لك

 

[Ali Mohamed Ali]

بارك الله فيك استاذ سليم عمل رائع 

ولإثراء الموضوع هذا ملف بالمعادلات

 

المصنف1.xlsm

[مستخدم الاوفس]

شكرا لكم وفقكم الله 

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

ملف اخر بالمعادلات بعد اذن الاخ علي طبعاً

انظر الى الصفحة Salim _formula

 

My_table1.xlsm

[مستخدم الاوفس]

شكرا لكم جميعا "