عكس اعمدة الجدول مع تجميع خلايا الجدول

[بلانك]

امطلوب بداخل الملف

عكس اعمدة الجدول مع تجميع خلايا الجدول.xlsx

[أبوأحـمـد]

تفضل 

الملف بعد التعديل بدون كود

وهذا الكود إذا كنت تحتاج الكود لملف آخر مع تعديل أرقام الصفوف والأعمدة حسب حاجتك

Sub t()
   For i = 1 To 8
     Range(Cells(1, 9), Cells(30, 9)).Select
    Selection.Cut
    Range(Cells(1, i), Cells(30, i)).Select
    Selection.Insert shift:=xlToRight
    Next
End Sub

 

عكس اعمدة الجدول مع تجميع خلايا الجدول.xlsx

[بلانك]

استاذي ابواحمد بارك الله فيك هذا بالنسبة لعكس الاعمدة .... باقي تجمبع ما بداخل  كل الخلية معا وبتفس الشكل برجاء عمل كود مكمل للكود السابق وللك جزيا الشكر والعرفان

[أبوأحـمـد]

ماذا تقصد بـ 

35 دقائق مضت, بلانك said:

تجمبع ما بداخل  كل الخلية معا وبتفس الشكل

إذا تقصد الدمج ، فأتوقع أن ذلك صعب بالكود لعد انتظام الخلايا فبعضها 3 صفوف وبعضها أربع

والنص غير منتظم  

[بلانك]

بالفعل هذا ما اقصده؟ وما الحل؟

[بلانك]

وجدت هذا الكود الموجود بداخل الملف المرفق لتجميع ودمج محتوى كل خلية بعد اختيارها يدويا ..... ارجوا منك تعديل هذا الكود لدمج الخلايا مباشرا دون تحديدها يدويا

عكس اعمدة الجدول مع تجميع خلايا الجدول.xlsm

تم تعديل أغسطس 14, 2023 بواسطه بلانك

[أبوأحـمـد]

ربما يكون لدى أستاذتي الحل أنا لا أعرف

[بلانك]

شكرا لك على كل حال