كيف يمكن تحويل الأعمدة إلى قائمة مفصولة بفواصل في 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. في مربع الحواردمج الأعمدة أو الصفوف (Rows)الذي يظهر، قم بما يلي:

• (1) فعّل خيار «دمج في خلية واحدة» في قسم دمج النطاق المحدد بالطريقة التالية.
• (2) في قسم الفاصل، فعّل خيار «فاصل آخر» (Other separator)، ثم أدخل فاصلة متبوعة بمسافة: "، ".
• (3.) اختر الطريقة التي تود بها التعامل مع بيانات الخلايا الأصلية: يمكنك إما الاحتفاظ بمحتوياتها أو حذفها.
• (4.) حدد خلية الإخراج، ثم في قسم «وضع القيم المدمجة في»، اختر خيار «خلية أخرى (Other Cell)» وانقر لتحديد الخلية التي ترغب في إخراج النتيجة إليها.
• (5.) أخيرًا، انقر على زر «موافق».
  

تُعرض النتيجة في خلية الهدف التي حددتها.

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

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

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

2. انقر علىإدراج (Insert) > وحدة (Module)، ثم انسخ كود 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. انقر على زرتشغيل (Run)أو اضغط علىF5 لتشغيل كود VBA. سيظهر مربع حوار على الشاشة يتيح لك تحديد الأعمدة التي تريد تحويلها. انظر لقطة الشاشة:

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

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

الخاتمة:

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

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

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

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

أفضل أدوات الإنتاجية لمكتبتك

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...