تحويل صفوف إلى أعمدة

[MOHDS200]

ارجوا منكم ايجاد دالة تقوم بحويل بعض الصفوف الي اعمدة

Book1.xls

[MAHMOUD ALI YOUSSEF]

دالة تقوم بحويل بعض الصفوف الي اعمدة

[MOHDS200]

اشكرك علي اهتمامك 

ولكن ليس هذا المطلوب 

المطلوب هو هناك عمود واحد به ٣ خلايا

خلية للاسم وخلية للتليفون وخليةللعنوان

وانا عاوز تحويل كل خلية في العمود لصف

بمعني لو فرضنا العمود a

هايبقي a1 للاسم عميل ١

a2 للعنوانللعميل ١

a3 للتليفون للعميل ١

a4 للاسم للعميل ٢

a5 للعنوان للعميل ٢

a6 للتليفون للعميل ٢

وتحويلها الي b1 c1 d1

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

حرب هذا الكود

Option Explicit

Sub Salim_Transform()
If ActiveSheet.Name <> "Data" Then Exit Sub
Dim i%, k%: k = 3
Dim C%: C = 1
i = 1
Range("c3").CurrentRegion.Offset(1).ClearContents
   Do Until Range("A" & i) = vbNullString
         Cells(C + 1, k) = Range("A" & i)
        k = k + 1
        If k = 6 Then C = C + 1: k = 3
        i = i + 1
   Loop
End Sub

الملف مرفق

 

Salim_transforme.xlsm

[بن علية حاجي]

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

حل آخر بالمعادلات باستعمال الدالة OFFSET...

بن علية حاجي

Book1_1.xls