كيفية تحويل قائمة الأعمدة إلى قائمة مفصولة بفواصل في Excel؟

عند العمل مع بيانات Excel، قد تحتاج غالبًا إلى تحويل قائمة عمودية من العناصر إلى سلسلة نصية واحدة مفصولة بفواصل. سواء كنت تعد مدخلات لقاعدة بيانات، أو تُعد تقريرًا، أو ببساطة تقوم بترتيب ورقة العمل الخاصة بك، هناك عدة طرق لتحقيق ذلك. أدناه، سنستعرض أربع طرق مُحسّنة:

تحويل قائمة العمود إلى قائمة مفصولة بفواصل باستخدام الصيغ

• الصيغة 1: دالة TEXTJOIN (Excel 2019 والإصدارات الأحدث، Office 365)
• الصيغة 2: دوال CONCAT وIF (جميع إصدارات Excel)

تحويل قائمة العمود إلى قائمة مفصولة بفاصلة باستخدام Kutools لـ Excel

تحويل قائمة العمود إلى قائمة مفصولة بفاصلة باستخدام كود VBA

تحويل قائمة العمود إلى قائمة مفصولة بفواصل باستخدام الصيغ

Excel لا يحتوي على وظيفة تحويل العمود إلى قائمة مفصولة بفواصل، لكن يمكنك تحقيق ذلك بسهولة: استخدم TEXTJOIN في Office 365/2019+، أو CONCAT+IF في أي إصدار آخر لتبسيط بياناتك.

الصيغة 1: دالة TEXTJOIN (Excel 2019 والإصدارات الأحدث، Office 365)

باعتبارها أكثر دوال الترابط تطوراً في Excel، تُبسط TEXTJOIN العملية بوظائفها المزدوجة - اختيار الفاصل بشكل مرن وإدارة الخلايا الفارغة تلقائيًا - مما يوفر الحل الأسهل للمستخدمين الحاليين في Excel.

1. حدد الخلية التي تريد أن تظهر فيها القائمة المفصولة بفواصل، وأدخل الصيغة التالية:

=TEXTJOIN(", ", TRUE, A2:A10)

2. اضغط Enter للحصول على القيمة المفصولة بفواصل.

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A10))

الصيغة 2: دوال CONCAT وIF (جميع إصدارات Excel)

قبل ظهور TEXTJOIN، كان بإمكانك دمج CONCAT مع دالة IF لتجميع قائمة ثم إزالة الفاصل الأولي.

1. حدد الخلية التي تريد أن تظهر فيها القائمة المفصولة بفواصل، وأدخل الصيغة التالية:

=CONCAT(IF(A2:A10<>"", A2:A10 & ", ", ""))

2. اضغط Ctrl + Shift + Enter معًا للحصول على النتيجة.

تحويل قائمة العمود إلى قائمة مفصولة بفاصلة باستخدام Kutools لـ Excel

يحتوي Kutools لـ Excel على أداة قوية تدعى دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم التي تتيح لك دمج محتويات عمود كامل في خلية واحدة بنقرات قليلة. عن طريق تحديد نطاق المصدر واختيار فاصل - سواء كان فاصلة، نقطة فاصلة، فراغ، أو أي رمز مخصص - يمكنك إنتاج قائمة مدمجة ومفصولة فورًا دون نسخ ولصق كل عنصر يدويًا. الأداة توفر أيضًا خيارات لتجاوز الخلايا الفارغة، الحفاظ على التنسيق الأصلي، مما يجعلها حلًا مثاليًا لتحويل البيانات العمودية إلى قوائم مرتبة ومفصولة بفواصل.

1. حدد قائمة العمود التي ستقوم بتحويلها إلى قائمة مفصولة بفاصلة، وانقر فوق Kutools > دمج وتقسيم > دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم.

2. في مربع الحوار الذي يفتح دمج الأعمدة أو الصفوف، تحتاج إلى:

• (1) اختر الخيار دمج في خلية واحدة ضمن قسم دمج النطاق المحدد وفقًا للخيارات التالية.
• (2) في قسم تحديد فاصل، اختر خيار فاصل آخر، واكتب الفاصلة ", ".
• (3.) اختر كيفية التعامل مع بيانات الخلايا الأصلية. (يمكنك الاحتفاظ بمحتويات الخلايا الأصلية أو حذف محتوياتها من الخلايا الأصلية).
• (4.) حدد الخلية المخرجة، تحت قسم وضع النتائج في، اختر خيار خلية أخرى وانقر لتحديد خلية لإخراج النتيجة.
• (5.) أخيرًا، انقر فوق زر موافق.
  

النتيجة يتم إدراجها في الخلية الهدف المحددة.

تحويل قائمة العمود إلى قائمة مفصولة بفاصلة باستخدام كود VBA

بدلاً من ذلك، إذا كنت تفضل أتمتة المهمة أو تحتاج إلى التعامل مع نطاقات أكبر تتغير ديناميكيًا، يمكنك كتابة ماكرو VBA يقوم بتكرار كل خلية في العمود المحدد، ويضيف قيمة غير فارغة متبوعة بفاصلة (أو أي فاصل تختاره)، يقطع الفاصل الإضافي في النهاية، ثم يخرج السلسلة المدمجة والمفصولة بفواصل بالكامل في الخلية المستهدفة.

1. اضغط معًا Alt و F11 على لوحة المفاتيح لفتح نافذة Microsoft Visual Basic for Application.

2. انقر فوق إدراج > وحدة، وقم بنسخ VBA إلى الوحدة.

VBA: تحويل قائمة العمود إلى قائمة مفصولة بفواصل

Sub ChangeRange()
    ' Updateby Extendoffice
    Dim rng As Range
    Dim InputRng As Range, OutRng As Range
    Dim outStr As String
    Dim xTitleId As String
    xTitleId = "KutoolsforExcel"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Select source range:", xTitleId, InputRng.Address, Type:=8)
    Set OutRng = Application.InputBox("Output to (single cell):", xTitleId, Type:=8)
    outStr = ""
    For Each rng In InputRng
        If Len(Trim(rng.Value)) > 0 Then
            If outStr = "" Then
                outStr = rng.Value
            Else
                outStr = outStr & ", " & rng.Value
            End If
        End If
    Next rng
    OutRng.Value = outStr
End Sub

3. انقر فوق زر التشغيل أو اضغط F5 لتشغيل VBA. سيظهر مربع حوار على الشاشة، ويمكنك تحديد قائمة العمود التي تريد تحويلها. شاهد لقطة الشاشة:

4. انقر فوق موافق، ثم يظهر مربع حوار آخر لك لاختيار خلية. شاهد لقطة الشاشة:

5. انقر فوق موافق، وتم تحويل جميع القيم في قائمة العمود إلى قائمة مفصولة بفاصلة في خلية.

الاستنتاج:

• من أجل البساطة والأداء، استخدم TEXTJOIN في Excel 2019/365.
• من أجل التوافق، تعمل طريقة CONCAT + IF في جميع الإصدارات.
• لمهام لمرة واحدة بدون صيغ، Kutools يوفر حلاً بنقرة واحدة.
• من أجل الأتمتة الكاملة أو القواعد المعقدة، ماكرو VBA هو الأكثر مرونة.

اختر الطريقة التي تتماشى مع إصدار Excel الخاص بك، وتكرار المهمة، ومستوى راحتك مع الإضافات أو VBA. باستخدام هذه التقنيات المُحسّنة في مجموعة أدواتك، يصبح تحويل أي عمود إلى قائمة مرتبة ومفصولة بفواصل أمرًا سهلاً. إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel، فإن موقعنا يقدم آلاف الدروس لمساعدتك على إتقان Excel.

مقالات ذات صلة:

• تحويل اسم الشهر إلى رقم في Excel
• تحويل الوقت العسكري إلى الوقت القياسي
• تحويل خلية واحدة إلى خلايا/صفوف متعددة في Excel