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

[محمود1980]

الزملاء المحترمين ، بعد التحية 

هل ممكن نسخ معلومات من عدة اعمدة ووضعها في عامود واحد ، بطريقة اخرى تحويل عدة اعمدة الى عامود واحد 

مرفق ملف اكسل لتوضيح السؤال 

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

 

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

محاولة للحل

 

 

تم تعديل يونيو 17, 2016 بواسطه سليم حاصبيا

[محمود1980]

الاخ سليم 

شكرا على جهودكم ، ولكن المطلوب هو ايجاد طريقة تمكنني من اعادة ترتيب هذه الاعمدة بشكل عمودي وبنفس التسلسل ، بدلاً من ان تكون بشكل افقي ، 

حاليا انا اقوم بنسخ كل عمود بشكل منفصل ومن ثم لصقه 

مرفق صورة للتوضيح .

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

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

جرب هذا الملف

العمل في الصفحة My_shet

 

Trans_To One_col macro.rar

تم تعديل يونيو 17, 2016 بواسطه سليم حاصبيا

[محمود1980]

شكرا اخ سليم على المساعدة ، هذه الطريقة فعالة جداً 

ولكن من اجل زيادة المعرفة ، اليس هناك طريقة يدوية ، اي نقوم بتحديد كل الاعمدة المتجانبة ثم نسخها ومن ثم لصقها في مكان آخر بشكل عمودي 

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

[ياسر خليل أبو البراء]

أخي الكريم محمود

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

Sub Test()
    Dim X As Integer
    Dim Lr As Long

    Application.ScreenUpdating = False
        Range("H2").Resize(1, 2).Value = Array("الرقم", "الطول")
        
        For X = 1 To 6 Step 2    'Columns A:F
            Lr = Cells(Rows.Count, X).End(xlUp).Row
            
            Range(Cells(3, X), Cells(Lr, X + 1)).Copy
            Range("H" & Cells(Rows.Count, 8).End(xlUp).Row + 1).PasteSpecial xlPasteValues
        Next X
        
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub