KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

3 طرق لدمج الصفوف في خلية واحدة بناءً على المجموعة في Excel

المؤلفصنتاريخ التعديل

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

لقطة شاشة لعمودين يحتويان على الفصول وأسماء الطلاب، وأسماء الطلاب المدمجة حسب الفصول

تجميع ودمج الصفوف باستخدام الصيغ ودالة التصفية

يمكنك استخدام صيغ Excel مع دالة «تصفية» لدمج الصفوف استنادًا إلى عمود واحد. يُرجى اتباع الخطوات التالية:

ملاحظة: تأكد من أن بياناتك مرتبة حسب عمود التجميع، مثل «الفصل» في هذه الحالة.
  1. في عمود جديد، أدخل الصيغة التالية لدمج الأسماء، ثم اضغط على «Enter». بعد ذلك، اسحب لأسفل لتطبيقها على كامل العمود.
    =IF(A2=A1,C1&", "&B2,B2)
  2. في عمود جديد، أدخل الصيغة التالية، ثم اضغط على «Enter» واسحبها لأسفل.
    =IF(A2<>A3,"Last","")
  3. حدد نطاق البيانات بالكامل، بما في ذلك أعمدة المساعدة. ثم اختر «بيانات» > "Filter" لإضافةFilter icons إلى بياناتك.
    لقطة شاشة لزر التصفية في شريط أدوات إكسل
  4. انقر على«Filter icon» في آخر عمود مساعد، وحدد فقط خانة الاختيار "Last"«، ثم انقر على »موافق".
    لقطة شاشة تُظهر فقط الصفوف الأخيرة المفلترة في كل مجموعة في إكسل

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

لقطة شاشة للنتائج النهائية المجمَّعة والمدمَجة في إكسل

تجميع ودمج الصفوف باستخدام Kutools لـ Excel بسهولة

يقدّم «Kutools لـ Excel» حلاً بسيطًا وفعالًا يُسمى «دمج متقدم للصفوف»، يمكّنك من دمج الصفوف المجمّعة في خلية واحدة بنقرات قليلة فقط، مع إضافة فواصل مخصصة تلقائيًا—مثل الفواصل أو المسافات أو فواصل الأسطر—لتلبية احتياجات عرض البيانات المتنوعة.

Kutools لـ Excel – مزوَّد بأكثر من 300 أداة أساسية لبرنامج Excel! اجعل مهامك في Excel أسرع، وأسهل، وأكثر كفاءة.حمِّل الآن!

  1. حدّد الخلايا التي تحتوي على بياناتك، ثم انتقل إلى "Kutools > دمج وتقسيم > دمج متقدم للصفوف".
  2. في نافذة "Advanced Combine Rows"، يُرجى التهيئة كما يلي:
    1. انقر على العمود الذي تريد دمج الصفوف وفقًا له، وعيّنه كـ«مفتاح رئيسي».
    2. بالنسبة للعمود الذي تريد دمجه، مثل عمود «الأسماء» في هذه الحالة، اختر «حدد الفاصل» في قسم «الدمج» ضمن حقل «العملية» لهذا العمود.
    3. انقر على زر «موافق».

النتيجة: سيقوم Kutools تلقائيًا بدمج البيانات وفقًا للمجموعة في خلية واحدة باستخدام محدد معين.

ملاحظة: يُوصى بإنشاء نسخة من البيانات الأصلية قبل تطبيق الأداة.

Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن

تجميع ودمج الصفوف باستخدام كود VBA

يمكنك أيضًا استخدام VBA لدمج الصفوف ديناميكيًا وفقًا لمجموعة معيّنة.

  1. اضغط مفاتيح "Alt« + »F11" لتمكين نافذة "Microsoft Visual Basic for Applications".
  2. في محرر الكود، انقر على "Tools" > "References" لتمكين مربع حوار "References"، وحدد "Microsoft Scripting Runtime" ثم احفظ التغييرات.
  3. انتقل إلى «إدراج» > «وحدة برمجية» والصق كود VBA التالي في نافذة الوحدة.
    VBA: دمج الصفوف في خلية واحدة بناءً على المجموعة
    Sub ConcatenateCellsIfSameValues()
'UpdatebyExtendoffice20180201
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xRgKey As Range
    Dim xRgVal As Range
    Dim xStr As String
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
    If xRgKey Is Nothing Then
        MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
    End If
    Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
    For I = 1 To xRgKey.Count
        If I > xRgKey.Count Then Exit For
        xStr = ""
        For J = 1 To xRgVal.Columns.Count
            xStr = xStr & " " & xRgVal(I, J)
        Next
        If xDic.Exists(xRgKey(I).Text) Then
            xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
            xRgKey(I).EntireRow.Delete
            I = I - 1
       Else
            xDic.Add xRgKey(I).Text, xStr
        End If
    Next
    For I = 1 To xRgVal.Count
        xRgVal(I).Value = xDic(xRgKey(I).Text)
    Next
End Sub
    لقطة شاشة تُظهر كود VBA الملصق في نافذة الوحدة
  4. اضغط على مفتاح "F5" لتشغيل السكربت، واتبع أي إرشادات لتحديد نطاق البيانات وتحديد العمود الرئيسي.
    لقطة شاشة لمربع إدخال VBA الذي يطلب تحديد النطاق في إكسللقطة شاشة لمربع إدخال VBA الذي يطلب تحديد عمود المفتاح

النتيجة تظهر كما يلي:
لقطة شاشة تُظهر النتائج المدمَجة بعد تشغيل سكربت VBA

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

عرض توضيحي: تجميع ودمج الصفوف باستخدام دمج متقدم للصفوف من Kutools لـ Excel

 
Kutools لـ Excel: أكثر من 300 أداة مفيدة بين يديك! استمتع بميزات مدعومة بالذكاء الاصطناعي لإنجاز عملك بذكاء وسرعة أكبر!حمّل الآن!

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

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

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

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

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

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

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

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