تجميع محتويات الاعمدة في عمود واحد

[بلانك]

المطلوب كما بالملف

تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

[Foksh]

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

رغم ان طلبك غير واضح بشكل كافي . فهل ما تريده هو نقل قيمة الخلية A1 الى النظير لها في الصف P1 وهكذا للصف التالي A2 = P2 ؟؟؟؟

إن كان كذلك فالأحق والأصح هو وضع قيمة في :-

P1 = "=A1"

والسحب الى باقي الخلايا في العمود P وستحصل على القيمة النظيرة لأي خليه من P من المصدر A . جرب ان كان ما فهمته صحيحاً في الملف المرفق بتعديل اي قيمة موجودة في A وستلاحظ انها تغيرت في P النظير لها .

 

تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

[بلانك]

واضح اني لم اوضح الفكرة ... عماً  المطلوب جميع الارقام بالجدول من العمود الاول A حتى العمود M يتم وضعهم في العمود P

[Foksh]

تقصد ان الخلية P1 مثلاً يكون قيمتها =

41-59-36-45-17-12-43-2-55-58-25-24-11

أو مثلاً

4159364517124325558252411

 

[بلانك]

انظر للاسهم للجدول كله هذا مثال

تحويل ارقام جدول الى عمود واحد به جميع الارقام.xlsx

[عبدالله بشير عبدالله]

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

ارفق مثال احر للتوضيح

 

تم تعديل يناير 30 بواسطه عبدالله بشير عبدالله

[بلانك]

هذا مثال للتوضح    تجميع محتويات الاعمدة في عمود واحد

متال.xlsx

[عبدالله بشير عبدالله]

نعم الامر هكذا واضح وقمت بحذف التعليق السابق لعدم اهميته بعد ارفاق ملفك الاخير وبه التوضيح

جرب الكود  

Sub تجميع()
    Dim ws As Worksheet
    Dim آخرصف As Long
    Dim c As Long, r As Long
    Dim صف_الاخراج As Long
    Set ws = ActiveSheet
    صف_الاخراج = 1
    ws.Columns(16).ClearContents
    For c = 1 To 13
        آخرصف = ws.Cells(ws.Rows.Count, c).End(xlUp).Row
        For r = 1 To آخرصف
            If ws.Cells(r, c).Value <> "" Then
                ws.Cells(صف_الاخراج, 16).Value = ws.Cells(r, c).Value
                صف_الاخراج = صف_الاخراج + 1
            End If
        Next r
    Next c
End Sub

 

[بلانك]

تمام ....................... الف شكر .... بارك الله فيك

[Foksh]

3 ساعات مضت, بلانك said:

هذا مثال للتوضح    تجميع محتويات الاعمدة في عمود واحد

الأصل أخي العزيز @بلانك ، وبما أنك عضو مميز أن تقوم بالشرح الوافي لمطلبك ، فقارئ كلماتك لا يسمع صوتك حين كتبتها 😅 ، حتى باختيارك للعنوان لم توفق هذه المرة  .

على العموم حاول أن تهتم بطريقة توصيل المعلومة التي تريدها لاحقاً كي تتلافى هذه المتاهة . ففهم السؤال = ثلثي الإجابة .