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

برنامج Excel التعليمي: دمج الأعمدة، الصفوف، الخلايا

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

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

محتويات هذا الدليل

1 دمج الأعمدة/الصفوف في خلية واحدة

1.1 دمج الأعمدة/الصفوف في خلية واحدة باستخدام مسافة أو فاصلة أو فواصل أخرى

1.11 استخدام رمز العطف (&)

1.12 استخدام دالة CONCATENATE (Excel 2016 أو الإصدارات الأقدم)

1.13 استخدام دالة CONCAT أو دالة TEXTJOIN (Excel 2019 أو Excel 365)

1.14 استخدام المفكرة (Notepad) (لدمج الأعمدة فقط)

الامتداد: دمج الأعمدة/الصفوف في خلية واحدة باستخدام فاصل سطر جديد

1.2 دمج الأعمدة/الصفوف في خلية واحدة دون خلايا فارغة

1.21 استخدام دالة TEXTJOIN (Excel 2019 أو Excel 365)

1.22 استخدام رمز العطف (&)

1.23 الإضافة في نهاية الخلايا باستخدام كود VBA

1.3 دمج الأعمدة/الصفوف/الخلايا في خلية واحدة دون فقدان البيانات

1.4 دمج عمودين إذا كانت إحداهما فارغة

1.41 استخدام دالة IF

1.42 استخدام VBA

2. دمج الصفوف التي تشترك في نفس المعرّف (ID)

2.1 دمج الصفوف ذات نفس المعرّف (ID) ومفصولة بفاصلة أو فواصل أخرى

2.11 استخدام VBA

2.12 استخدام دالة IF لإضافة أعمدة مساعدة

2.13 استخدام أداة مفيدة – دمج متقدم للصفوف

2.2 دمج الصفوف ذات نفس المعرّف (ID) مع إجراء بعض العمليات الحسابية

2.21 استخدام ميزة التوحيد (Consolidate)

2.22 استخدام VBA

2.23 استخدام أداة مفيدة – دمج متقدم للصفوف

2.3 دمج الصفوف المجاورة ذات القيمة نفسها

2.31 استخدام VBA

2.32 استخدام أداة مفيدة – دمج الخلايا المتشابهة

3. دمج الخلايا

3.1. دمج صفوف وأعمدة متعددة في خلية واحدة

3.11 استخدام رمز العطف (&)

3.12 استخدام دالة CONCATENATE (Excel 2016 أو الإصدارات الأقدم)

3. استخدام دالة CONCAT أو دالة TEXTJOIN (متوفرة في Excel 2019 أو Excel 365)

3.14 استخدام دمج الأعمدة/الصفوف/الخلايا في خلية واحدة دون فقدان البيانات

3.2. دمج الخلايا في عمود واحد أو صف واحد

3.21 تسمية النطاق واستخدام دالة INDEX (للأعمدة الفردية فقط)

3.22 VBA (للأعمدة الفردية فقط)

3.23 استخدام أداة مفيدة – تحويل النطاق

3.3 تكديس الأعمدة في عمود واحد دون تكرار

3.31 النسخ واللصق وإزالة التكرارات

3.32 استخدام VBA

3.4. دمج الخلايا مع الحفاظ على تنسيقها

3.41 تضمين دالة TEXT في الصيغة

3.42 استخدام Microsoft Word

3.43 استخدام أداة مفيدة – الدمج دون فقدان البيانات

3.5 دمج الخلايا لتكوين تاريخ

3.51 استخدام دالة DATE

 

في هذا البرنامج التعليمي، أعددتُ بعض الأمثلة لتوضيح الطرق؛ ويمكنك تعديل المرجعيات وفقًا لاحتياجاتك عند استخدام رمز VBA أو الصيغ أدناه، أو يمكنك تنزيل ملفات الأمثلة لتجربة هذه الطرق مباشرةً.

عينة مستندانقر لتنزيل ملف العينة


1 دمج الأعمدة/الصفوف في خلية واحدة

1.1 دمج الأعمدة/الصفوف في خلية واحدة باستخدام مسافة أو فاصلة أو فواصل أخرى

يُعدّ دمج الأعمدة أو الصفوف في خلية واحدة وفصل النتيجة بفاصلة أو مسافة أو أي فواصل أخرى—كما يظهر في لقطة الشاشة أدناه—من أكثر الطرق استخدامًا في Excel.

دمج الأعمدة في خلية واحدة
دمج الأعمدة في خلية واحدة
دمج الصفوف في خلية واحدة
دمج الصفوف في خلية واحدة

1.11 باستخدام رمز العطف (&)

في Excel، يُستخدم رمز العطف (&) عادةً لدمج النصوص بسلاسة.

مثال: دمج الاسم الأول (العمود A) والاسم الأخير (العمود B) في الاسم الكامل

حدد خلية تريد وضع النتيجة المدمجة فيها، ثم اكتب صيغة كالتالي:

=A2&« »&B2

أيقونة معلوماتفي الصيغة، يُستخدم الرمز & لدمج النصوص، حيث يمثّل A2 وB2 النصين المراد دمجهما، ويكون الفاصل بينهما مسافةً مُعرَّفة بـ « ». وإذا رغبت في استخدام فاصلة كفاصل بدلًا من المسافة، فاكتبها محصورة بين علامتي اقتباس مزدوجتين هكذا: "،".

اضغطEnter للحصول على النتيجة المدمجة، ثم اسحب مقبض التعبئة التلقائية لأسفل للحصول على نتائج الدمج.

مثال: دمج رقم التسلسل (الصف 15) والاسم (الصف 16) في خلية واحدة

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

1.12 باستخدام دالة CONCATENATE (Excel 2016 أو الإصدارات السابقة)

إذا كنت تستخدم Excel 2016 أو إصدارًا أقدم، فإن دالة CONCATENATE هنا لمساعدتك!

صيغة دالة CONCATENATE
CONCATENATE (text1,[text2],…)

لمزيد من التفاصيل حول دالةCONCATENATE، يُرجى زيارة الصفحة المخصصة لها.

مثال: دمج الأسماء (العمود F) والعنوان (العمود G) في عمود واحد

حدد خلية تريد وضع النتيجة المدمجة فيها، ثم اكتب صيغة كالتالي:

=CONCATENATE(F2,",",G2)

أيقونة معلوماتفي الصيغة، يُستخدم F2 وG2 كنصّين يتم دمجهما، بينما تُستخدم الفاصلة "،" كفاصل بينهما في خلية النتيجة. وإذا رغبتَ في استخدام مسافةٍ فاصلةً بدلًا من ذلك، فاكتب مسافةً محصورة بين علامتي اقتباس مزدوجتين هكذا: « ».

اضغطEnter للحصول على النتيجة المدمجة، ثم اسحب مقبض التعبئة التلقائية لأسفل للحصول على نتائج الدمج.
استخدام دالة CONCATENATE لدمج الأعمدة

لدمج الصفوف، عدّل مراجع الخلايا والفاصل حسب الحاجة، ثم اسحب مقبض التعبئة التلقائي إلى اليمين.
استخدام دالة CONCATENATE لدمج الصفوف

1.13 باستخدام دالة CONCAT أو دالة TEXTJOIN (Excel 2019 أو Excel 365)

إذا كنت تستخدم Excel 2019 أو Excel 365، فإن دالتَي CONCAT وTEXTJOIN قد تكونان الخيار الأفضل لك.

صيغة دالة CONCAT
CONCAT (text1,[text2],…)

لمزيد من التفاصيل حول دالةCONCAT، يُرجى زيارة الصفحة المخصصة لها.

تتطابق دالة CONCAT تمامًا مع دالة CONCATENATE. ولدمج الاسم الأول والاسم الأخير من عمودين منفصلين في عمود واحد، تُستخدم الصيغة التالية:

=CONCAT(A21,« »,B21)

أيقونة معلوماتفي الصيغة، يُدمَج النصان A21 وB21 معًا، حيث تكون المسافة « » هي الفاصل بينهما في خلية النتيجة. إذا رغبت في استخدام فاصل آخر، فاكتب هذا الفاصل محصورًا بين علامتي اقتباس مزدوجتين «».

اضغط مفتاح Enter للحصول على النتيجة المدمجة، ثم اسحب مقبض التعبئة التلقائية لأسفل لتطبيق الدمج على باقي الخلايا.
استخدام دالة CONCAT لدمج الأعمدة

بخلاف دمج الأعمدة، عند دمج الصفوف، بعد إدخال الصيغة الأولى، اسحب مقبض التعبئة التلقائي إلى اليمين للحصول على جميع نتائج الدمج.

صيغة دالة TEXTJOINT
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

لمزيد من التفاصيل حول دالةTEXTJOIN، يُرجى زيارة الصفحة المخصصة لها.

لـ دمج الأعمدة أو الصفوف باستخدام TEXTJOIN:

=TEXTJOIN(",",TRUE,E21:G21))

أيقونة معلوماتفي الصيغة، يُعد النطاق E21:G21 نطاقًا مستمرًا يجب دمجه، ويُستخدم « » (المسافة) كفاصل بين النصوص في خلية النتيجة. إذا رغبت في استخدام فاصل آخر، اكتبه محصورًا بين علامتي اقتباس مزدوجتين «». وتشير القيمة المنطقية TRUE إلى تجاهل الخلايا الفارغة أثناء الدمج؛ أما إذا أردت تضمين الخلايا الفارغة في عملية الدمج، فاستبدل TRUE بـ FALSE.

اضغط مفتاح Enter للحصول على النتيجة المدمجة، ثم اسحب مقبض التعبئة التلقائية لأسفل لعرض نتائج الدمج.

تجاهل الخلايا الفارغة
استخدام دالة TEXTJOIN لدمج الأعمدة مع تجاهل الخلايا الفارغة
تضمين الخلايا الفارغة
استخدام دالة TEXTJOIN لدمج الأعمدة متضمنةً الخلايا الفارغة

1.14 باستخدام المفكرة (Notepad) (للأعمدة فقط)

1. يمكن استخدام المفكرة (Notepad) أيضًا لدمج الأعمدة (وهو ما لا يؤثر على دمج الصفوف).

حدد النطاق الذي تريد دمج أعمدته في خلية واحدة، ثم اضغطCtrl+C لنسخه.
نسخ نطاق البيانات

2. افتحالمفكرة (Notepad)، ثم اضغطCtrl+V للصق النطاق المنسوخ.
افتح المفكرة (Notepad) والصق البيانات

3. حدد تبويبًا بين نصين في المفكرة، ثم اضغطCtrl+H لتمكين ميزةاستبدال (Replace)، وسيُملأ مربعالبحث عن (Find what)تلقائيًا برمز التبويب.
اضغط Ctrl + H لتمكين ميزة الاستبدال

4. في مربعاستبدال بـ (Replace with)، اكتب الفاصل الذي تريد استخدامه لفصل النصوص المدمجة، ثم انقراستبدال الكل (Replace All). بعد ذلك، أغلق مربع حواراستبدال (Replace).
اكتب المحدد (الفاصل) لفصل النصوص المدمجة في مربع نص الاستبدال

5. الآن، حدد النصوص في المفكرة واضغطCtrl+C لنسخها، ثم انتقل إلى Excel وحدد خلية واضغطCtrl+V للصق نتائج الدمج.
تم دمج الأعمدة في خلية واحدةتم دمج الأعمدة في خلية واحدة

إضافة: دمج الأعمدة/الصفوف في خلية واحدة باستخدام فاصل سطر جديد

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

أولاً، يجب أن تدرك أنه في Excel، يمكنك استخدام دالةCHAR() لإدخال أحرف يصعب كتابتها مباشرةً في الصيغ، مثلCHAR(10) التي تُرجع فاصل سطر جديد.

ثم استخدم CHAR(10) في الصيغ المذكورة أعلاه لـ دمج الأعمدة أو الصفوف باستخدام فاصل سطر جديد:

رمز العطف (&):

=A49&CHAR(10)&B49

دالة CONCATENATE:

=CONCATENATE(A49,CHAR(10),B49)

دالة CONCAT

=CONCAT(A49,CHAR(10),B49)

دالة TEXTJOIN

=TEXTJOIN(CHAR(10),TRUE,A49:B49)

بعد إدخال إحدى الصيغ أعلاه، حدد النتائج، ثم انقرالصفحة الرئيسية (Home) > التفاف النص (Wrap Text).
انقر الصفحة الرئيسية > التفاف النص

الآن تم دمج الأعمدة في خلية واحدة، مع فصلها بفاصل سطر جديد.
تم دمج الأعمدة في خلية واحدة وفصلها بفاصل سطر

أيقونة تلميحإذا كنت ترغب فقط في دمج الصفوف من عمود واحد في خلية واحدة، فإن ميزةالتبرير (Justify)في Excel ستفيدك! ما عليك سوى تحديد العمود الذي يحتوي على الصفوف المتعددة، ثم النقر علىالصفحة الرئيسية > تعبئة > تبريروستُدمج الصفوف تلقائيًا في الخلية العلوية للنطاق، باستخدام المسافة كفاصل.

انقر الصفحة الرئيسية > تعبئة > تبريرتم دمج الصفوف في الخلية العلوية مع مسافة

1.2 دمج الأعمدة/الصفوف في خلية واحدة دون خلايا فارغة

في هذا الجزء، يقدم البرنامج التعليمي الطرق الخاصة بـ دمج الأعمدة أو الصفوف في خلية واحدة وتجاهل الخلايا الفارغة كما هو موضح في لقطة الشاشة أدناه:
دمج الأعمدة أو الصفوف مع تخطي الخلايا الفارغة

1.21 استخدام دالة TEXTJOIN (Excel 2019 أو Excel 365)

إذا كنت تستخدم Excel 2019 أو Excel 365، فبكل سرور، تُسهّل الدالة الجديدة TEXTJOIN إنجاز هذه المهمة بسلاسة.

صيغة دالة CONCATENATE
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

لمزيد من التفاصيل حول دالة TEXTJOIN، يُرجى زيارة:TEXTJOIN.

مثال: ادمج الاسم (العمود A) ورقم التعريف (العمود B) والنطاق (العمود C) في خلية واحدة لإنشاء عنوان بريد إلكتروني، مع ملاحظة أن بعض قيم رقم التعريف قد تكون فارغة.

حدد خليةً سيتم استخدامها لوضع النتيجة المدمَجة، ثم اكتب الصيغة على النحو التالي:

=TEXTJOIN(«»,TRUE,A2:C2)

أيقونة معلوماتفي الصيغة، يمثّل A2:C2 النطاق الذي يحتوي على النصوص التي يجب دمجها، و«» هو الفاصل (لا شيء) الذي يفصل بين النصين في الخلية الناتجة. إذا أردت استخدام فاصل بين النصوص، فاكتب الفاصل محصورًا بين علامتي اقتباس مزدوجتين «»، مثل "،". ويشير النص المنطقي «TRUE» إلى تجاهل خلايا فارغة أثناء الدمج، أما إذا أردت دمج الخلايا الفارغة، فاستبدل TRUE بـ FALSE.

اضغط على مفتاحEnter للحصول على النتيجة الأولى، ثم اسحب مقبض الملء التلقائي لأسفل أو لليمين حسب الحاجة لتوليد جميع النتائج.
دالة TEXTJOIN لدمج الأعمدة مع تخطي الخلايا الفارغة

1.22 استخدام رمز العطف (&)

إذا كنت تستخدم Excel 2016 أو إصدارًا أقدم، فاستخدم رمز العطف (&) لدمج النصوص واحدًا تلو الآخر، مع تخطي الخلايا الفارغة يدويًّا.

حدد خلية تريد وضع النتيجة المدمجة فيها، ثم اكتب صيغة كالتالي:

=A10&C10

أيقونة معلوماتفي الصيغة، يُستخدم & لربط النصوص، وA10 وC10 هما النصان اللذان يجب دمجهما. إذا أردت استخدام فاصلة كفاصل، فاكتب فاصلة محصورة بين علامتي اقتباس مزدوجتين مثل "،" واستخدم & لربط النصوص معًا.

اضغط على مفتاحEnter للحصول على النتيجة المدمَجة، ثم غيّر مراجع الصيغة للحصول على النتيجة المدمَجة التالية.
رمز العطف (&) لدمج الأعمدة مع تخطي الخلايا الفارغة

1.23 استخدام دالة معرّفة

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

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

2. انقر علىإدراج > وحدة نمطيةلإدراج وحدة نمطية جديدة.
انقر إدراج > وحدة لإدراج وحدة جديدة

3. انسخ والصق الكود أدناه في الوحدة النمطية الجديدة، ثم احفظها.

VBA: دمج الخلايا تجاهل الخلايا الفارغة

Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice
  For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "_"): Next
  Concatenatecells = Left(nn, Len(nn) - 1)
End Function

انسخ والصق الكود في الوحدة

4. ارجع إلى ورقة العمل، وحدد الخلية التي ترغب في وضع النتيجة المدمَجة فيها، ثم أدخل الصيغة التالية:

=Concatenatecells(A15:C15)

أيقونة معلوماتفي الصيغة، يمثل A15:C15 النطاق الذي يحتوي على النصوص التي يجب دمجها. وفي كود VBA، يشير «_» إلى الفاصل المستخدم لفصل النصوص في النتيجة المدمَجة، ويمكنك تغيير هذا الفاصل حسب حاجتك.
أدخل صيغة للحصول على النتيجة


1.3 دمج الأعمدة/الصفوف/الخلايا في خلية واحدة دون فقدان البيانات

إذا كنت قد ثبّتَKutools لـ Excelفي Excel، فإن ميزةدمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيمتُعدّ حلاً مثاليًا لإنجاز مختلف مهام الدمج بسلاسة وفعالية.

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

1. حدد الخلايا التي تريد دمجها والخلايا التي تريد وضع نتائج الدمج فيها.
حدد الخلايا المراد دمجها والخلايا التي ستوضع فيها النتائج المدمجة

2. انقر علىKutools > دمج وتقسيم > دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم.
انقر ميزة دمج الصفوف أو الأعمدة أو الخلايا دون فقدان البيانات

3. في مربع الحوار الظاهر، اختر الخيارات كما يلي:
تعيين الخيارات في مربع الحوار

1) حدد ما إذا كنت ترغب في دمج الأعمدة، أو الصفوف، أو جميع الخلايا في خلية واحدة.

دمج الأعمدة: مثال.دمج الصفوف: مثال.دمج في خلية واحدة مثال.
دمج الأعمدة دمج الصفوفدمج في خلية واحدة

2) حدد الفاصل الذي سيتم استخدامه بين النصوص في النتيجة المدمَجة.

3) حدّد موقع النتيجة المدمَجة (غير مفعّل عند اختيار خيار دمج في خلية واحدة)

عند اختيار خيار دمج الأعمدة، يمكنك تحديد وضع النتيجة في الخلية الواقعة إلى يسار نطاق التحديد أو في الخلية الواقعة إلى يمينه.

الخلية على اليسار مثال.الخلية على اليمين مثال.
وضع النتيجة المدمجة في الخلية اليسرىوضع النتيجة المدمجة في الخلية اليمنى

عند اختيار خياردمج الصفوف، يمكنك تحديد مكان ظهور النتيجة: إما في الخلية العلوية ضمن النطاق المحدد أو في الخلية السفلية منه.

الخلية أعلاه مثالٌ توضيحي.الخلية أدناه مثال.
وضع النتيجة المدمجة في الخلية العلويةوضع النتيجة المدمجة في الخلية السفلية

4) حدّد العملية المتعلقة بـ نتائج الدمج.

4. انقر علىموافقأوتطبيقلإنهاء عملية الدمج.

الاحتفاظ بمحتوى هذه الخلايا
الاحتفاظ بمحتويات الخلايا المدمجة
حذف محتوى هذه الخلايا
حذف محتويات الخلايا المدمجة
دمج هذه الخلايا
دمج الخلايا المدمجة

لمزيد من التفاصيل حول هذه الميزة، يُرجى زيارةدمج الأعمدة والصفوف والخلايا دون فقدان البيانات.

لمزيد من التفاصيل حولKutools لـ Excel، يُرجى زيارة صفحتنا.

لتجربة مجانية لمدة 30 يومًا من Kutools لـ Excel، يُرجىتنزيلهالآن.


1.4 دمج عمودين إذا كانت إحداهما فارغة

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

1.41 استخدام دالة IF

تُستخدم دالة IF لاختبار شرط معين. هنا يمكنك استخدام دالة IF لاختبار ما إذا كانت الخلية فارغة، ثم ملء الخلايا الفارغة بالمحتويات من عمود آخر.

صيغة دالة IF
IF (logical_test, [value_if_true], [value_if_false])

لمزيد من التفاصيل حول دالة IF، يُرجى زيارة:IF

حدد الخلية أعلاه العمود الذي تريد وضع نتائج الدمج فيه، ثم انسخ أو أدخل الصيغة التالية:

=IF(A2=«»,B2,A2)

ثم اضغط على مفتاحEnter للحصول على النتيجة الأولى، واسحب مقبض الملء التلقائي لأسفل لعرض جميع النتائج.
استخدام دالة IF لدمج عمودين إذا كانت الخلية فارغة

الآن، تم ملء الخلايا الفارغة في العمود A تلقائيًا بمحتويات العمود B.

1.42 استخدام VBA

هنا يوجد كود VBA يمكنه أيضًا تنفيذ هذه المهمة.

1. اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications، ثم انقر علىإدراج > وحدة نمطيةلإنشاء وحدة نمطية فارغة جديدة.

2. انقل والصق الكود أدناه في الوحدة النمطية الجديدة.

VBA: دمج عمودين إذا كانت الخلية فارغة

Sub MergebyBlank()
'UpdatebyExtendoffice20220506
Dim xRg1, xRg2, xRgUser As Range
Dim xRg As Range
Dim xWsh As Worksheet
Dim xCount, xFNum  As Integer
Set xRg1 = Range("A:A")
Set xRg2 = Range("B:B")
Set xWsh = xRg1.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg1 = Intersect(xRgUser, xRg1)
Set xWsh = xRg2.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg2 = Intersect(xRgUser, xRg2)
xCount = xRg1.Count
If (xCount > xRg2.Count) Then
    xCount = xRg2.Count
End If
For xFNum = 1 To xCount
    If (xRg1.Item(xFNum).Value = "") Then
        If (xRg2.Item(xFNum).Value <> "") Then
            xRg1.Item(xFNum).Value = xRg2.Item(xFNum).Value
        End If
    ElseIf (xRg2.Item(xFNum).Value = "") Then
            If (xRg1.Item(xFNum).Value <> "") Then
            xRg2.Item(xFNum).Value = xRg1.Item(xFNum).Value
        End If
    End If
Next
End Sub

انسخ والصق الكود في الوحدة

أيقونة معلوماتفي الكود، يمثل A:A وB:B العمودين اللذين سيتم دمجهما، فقط غيّرهما حسب حاجتك.

3. بعد ذلك، اضغط على مفتاحF5 أو انقر على زرتشغيلزر التشغيل، وسيتم حينها ملء العمود A بالقيم من العمود B إذا كانت القيمة في العمود A فارغة.


2 دمج الصفوف بنفس المعرّف

لنفترض أن لديك جدولًا يحتوي على أعمدة متعددة، أحدُها يحتوي على قيم معرّفات (ID) تتضمّن عناصر مكرَّرة. يقدم لك هذا البرنامج التعليمي طرقًا فعّالة لدمج صفوف الجدول بناءً على المعرّف نفسه، مع إجراء بعض العمليات الحسابية بسلاسة.
بيانات عينة

2.1 دمج الصفوف ذات نفس المعرّف (ID) ومفصولة بفاصلة أو فواصل أخرى

في هذا الجزء، يتم تقديم طرق لدمج الصفوف التي تحمل نفس المعرّف وفصلها بفواصل كما هو موضح في لقطة الشاشة أدناه:
دمج الصفوف ذات المعرّف نفسه وفصلها بفواصل

2.11 استخدام VBA

هنا يتم تقديم كود VBA يمكنه تنفيذ هذه المهمة

1. اضغطAlt+F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات، ثم انقرإدراج > وحدةلإنشاء وحدة فارغة جديدة.

2. انسخ والصق الكود أدناه في الوحدة الجديدة.

VBA: دمج الصفوف بنفس المعرّف

Sub Combine_Rows()
'UpdatebyExtendoffice20220506
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Text
Else
xRg(I, K) = xRg(I, K).Text & "," & xRg(J, K).Text 'here uses comma as separator, you can change it to others as you need
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

انسخ والصق الكود في الوحدة

3. بعد ذلك، اضغط على مفتاحF5 أو انقر على زرتشغيلحدد جدولًا يحتاج إلى دمج صفوفه التي تحمل نفس المعرّف، وسيظهر حينها مربع حوار Kutools لـ Excel لتتمكن من تحديد الجدول الذي تريد دمج صفوفه التي تحمل نفس المعرّف.
حدد جدولًا يحتاج إلى دمج صفوفه التي تحمل نفس المعرّف

4. انقرموافق. الآن تم دمج صفوف الجدول المحدد استنادًا إلى نفس المعرّف.

2.12 استخدام دالة IF لإضافة أعمدة مساعدة

إذا كان هناك عمودان فقط، وترغب في دمج الصفوف التي تحمل نفس المعرّف، مع فصل قيم العمود الآخر بفاصلة كما يظهر في لقطة الشاشة أدناه، فإن دالة IF يمكن أن تساعدك في ذلك.
دمج الصفوف ذات المعرّف نفسه، وقيم العمود الآخر مفصولة بفواصل

1. رتّب المعرّف من الألف إلى الياء: حدد عمود المعرّف، ثم انقربيانات > تصاعدي.
بيانات > فرز من أ إلى ي

2. بعد ذلك، في مربع الحوارتحذير الفرز، حدد خيارتوسيع التحديد، ثم انقرفرز.
حدد خيار توسيع التحديد، ثم انقر فرز

الآن تم تجميع المعرّفات المتماثلة معًا.
تم فرز المعرّفات المتماثلة معًا

3. في العمود المجاور، استخدم دالة IF كما يلي:

=IF(A17=A18,C17&", "&B18,B18)

أيقونة معلوماتفي الصيغة، A17 وA18 هما الخليتان المجاورتان في عمود المعرّف (A17 هو رأس عمود المعرّف)، وB18 هي الخلية المقابلة للخلية A18. "، " يشير إلى فصل القيم بفاصلة. يمكنك تغيير المرجعيات والفاصل حسب الحاجة.

4. اضغط مفتاحEnter للحصول على أول نتيجة، ثم اسحب مقبض الملء التلقائي لأسفل لعرض جميع النتائج.
أدخل صيغة للحصول على النتيجة

5. انتقل إلى العمود المجاور، ثم أدخل الصيغة بالشكل التالي:

=IF(A18<>A19,«Merged»,«»)

أيقونة معلوماتفي الصيغة، A18 وA19 هما الخليتان المجاورتان في عمود المعرّف؛ فإذا لم تكن الخليتان المجاورتان متساويتين، فستُرجع القيمة «Merged»، وإلا فستُرجع خلية فارغة.

6. اضغط مفتاحEnter للحصول على أول نتيجة، ثم اسحب مقبض الملء التلقائي لأسفل لعرض جميع النتائج.
أدخل صيغة للتحقق من الخلايا المدمجة

7. حدد عمود الصيغة الأخير بما في ذلك الرأس، ثم انقربيانات > تصفية.
 انقر بيانات > تصفية

8. انقر زرالتصفية، وحدد خانة الاختيارMerged في قائمة الإسقاط، ثم انقرموافق.
ضع علامة على خانة الخلايا المدمجة في قائمة التصفية

الآن تم تصفية الصفوف المدمجة فقط، انسخ البيانات المُرشّحة والصقها في مكان آخر.
انسخ البيانات المُرشَّحة والصقها في مكان آخر

لمزيد من التفاصيل حول دالةIF، يُرجى زيارة الصفحة المخصصة لها.

2.13 استخدام أداة مفيدة – دمج متقدم للصفوف

إذا كنت قد ثبّتَKutools لـ Excelفي Excel، فإن ميزةالدمج المتقدم للصفوفيمكنها إنجاز هذه المهمة بسهولة.

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

1. حدد الجدول، ثم انقرKutools > دمج وتقسيم > دمج متقدم للصفوف.
انقر ميزة دمج الصفوف المتقدم من kutools

2. في مربع الحواردمج متقدم للصفوف، يُرجى اتباع الخطوات التالية:

1) اختر عمود المعرّف، وعيّنه كـمفتاح رئيسي;

2) اختر العمود الذي تريد دمج قيمه باستخدام فاصل، ثم انقردمجواختر فاصلًا واحدًا.

3)انقرموافق.

الآن تم دمج الصفوف حسب نفس المعرّف.
تم دمج الصفوف حسب المعرّف نفسه

ميزة دمج متقدم للصفوف ستُعدّل البيانات الأصلية، لذا يُرجى حفظ نسخة من البيانات قبل استخدامها.

لمعرفة المزيد عن هذه الميزة، يُرجى زيارةدمج متقدم للصفوف.

لمزيد من التفاصيل حول Kutools لـ Excel، يُرجى زيارةKutools لـ Excel.

لتجربة مجانية لمدة 30 يومًا من Kutools لـ Excel، يُرجىتنزيلهاالآن.

2.2 دمج الصفوف ذات نفس المعرّف (ID) مع إجراء بعض العمليات الحسابية

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

2.21 استخدام ميزة التوحيد (Consolidate)

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

1. حدد الخلية التي تريد وضع النتيجة المدمجة فيها، ثم انقربيانات > دمج.
انقر بيانات > توحيد

2. في مربع الحواردمج، اتبع الخطوات التالية:

1) اخترالدوالحسب حاجتك؛

2) انقر على السهم لتحديد الجدول؛

3) انقرإضافةلإضافة تحديد النطاق إلى قائمةجميع المراجع;

4) حدد خانات الاختيار لـأعلى صفوأقصى عمود على اليسار;

5) انقرموافق.

الآن تم جمع الجدول بناءً على نفس المعرّف.
تم جمع قيم الجدول استنادًا إلى المعرّف نفسه

2.22 استخدام VBA

هناك كود VBA يمكنه أيضًا دمج الصفوف ذات المعرّف نفسه ثم جمع القيم.

1. اضغط مفاتيحAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات، ثم انقرإدراج > وحدة برمجيةلإنشاء وحدة فارغة جديدة.
انقر إدراج > وحدة لإنشاء وحدة فارغة جديدة

2. في الوحدة الجديدة، انسخ ولصق كود VBA أدناه فيها.

VBA: دمج صف مكرر وجمع

Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. بعد ذلك، اضغط مفتاحF5 أو انقر زرتشغيلزر التشغيل، ثم يظهر مربع حوار لاختيار الجدول الذي تستخدمه، وبعد ذلك انقرموافق.

الآن تم دمج نطاقات القيم المتماثلة وجمعها.

زر الملاحظةسيقوم كود VBA بتعديل البيانات الأصلية، لذا ننصحك بحفظ نسخة احتياطية منها قبل استخدامه.

2.23 استخدام أداة مفيدة – دمج متقدم للصفوف

إذا كان هناك أكثر من عمودين في الجدول الذي تريد دمجه وتنفيذ عمليات حسابية عليه، على سبيل المثال، هناك ثلاثة أعمدة: الأول يحتوي على أسماء منتجات مكررة تحتاج إلى دمجها معًا، والثاني يحتوي على أسماء المتاجر التي تحتاج إلى دمجها وفصلها بفاصلة، والعمود الأخير يحتوي على أرقام تحتاج إلى جمعها استنادًا إلى صف مكرر في العمود الأول، كما يظهر في لقطة الشاشة أدناه، فإن ميزة Kutools لـ Excel’s دمج متقدم للصفوف يمكن أن تساعدك.
دمج وإجراء عمليات حسابية

1. حدد الجدول، ثم انقرKutools > دمج وتقسيم > دمج متقدم للصفوف.
انقر ميزة دمج الصفوف المتقدم من kutools

2. في مربع الحواردمج متقدم للصفوف، يُرجى اتباع الخطوات التالية:

1) اختر عمود المعرّف، وعيّنه كـمفتاح رئيسي;

2) اختر العمود الذي تريد دمج قيمه باستخدام فاصل، ثم انقردمجواختر فاصلًا واحدًا.

3) اختر العمود الذي تريد تنفيذ العملية الحسابية عليه، ثم انقرحسابواختر نوع الحساب.

4)انقرموافق.

الآن تم دمج الصفوف المتماثلة وحسابها.

زر الملاحظةستقوم ميزة دمج متقدم للصفوف بتعديل البيانات الأصلية، لذا يُرجى حفظ نسخة من البيانات قبل استخدامها.

لمعرفة المزيد عن هذه الميزة، يُرجى زيارةدمج متقدم للصفوف.

للمزيد من التفاصيل حولKutools لـ Excel، يُرجى زيارته.

لتجربة مجانية لمدة 30 يومًا من Kutools لـ Excel، يُرجىتنزيلالبرنامج الآن.

2.3 دمج الصفوف المجاورة ذات القيمة نفسها

إذا كان لديك جدول يحتوي على أعمدة متعددة، ويحتوي أحد أعمدته على قيم مكررة، وترغب الآن في دمج الصفوف المجاورة التي تشترك في نفس القيمة في هذا العمود—كما يظهر في لقطة الشاشة أدناه—فكيف يمكنك تنفيذ هذه المهمة؟
دمج الصفوف المجاورة ذات القيمة نفسها

2.31 باستخدام VBA

لا توجد ميزة مضمنة في Excel تُنفِّذ هذه المهمة مباشرةً، لكننا نقدِّم لك هنا كود VBA capable of handling it.

1. اضغطAlt+F11لتمكين نافذةمايكروسوفت فيجوال بيسك للتطبيقات، ثم انقرإدراج>وحدةلإنشاء وحدة جديدة فارغة.

2. في الوحدة الجديدة، انسخ والصق كود VBA أدناه فيها.

VBA: دمج الصفوف المجاورة ذات القيمة نفسها

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

انسخ والصق الكود في الوحدة

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

الآن، تم دمج الصفوف المجاورة التي تشترك في نفس القيمة في العمود الأول ضمن نطاق التحديد.

زر الملاحظةسيؤدي كود VBA إلى تعديل البيانات الأصلية، لذا يُرجى حفظ نسخة من البيانات قبل استخدامه. وسيقوم هذا الكود أيضًا بدمج القيم المتماثلة في العمود الأول من الجدول المحدد.

2.32 باستخدام أداة مفيدة – دمج الخلايا المتشابهة

إذا كان لديكKutools لـ Excelمثبّتًا في Excel، فإن ميزةدمج الخلايا المتشابهةمن Kutools لـ Excel يمكنها حل هذه المهمة في خطوة واحدة!

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

حدد العمود الذي تريد دمج القيم المتماثلة فيه، ثم انقر علىKutools > دمج وتقسيم > دمج الخلايا المتشابهة.
انقر ميزة دمج الخلايا المتماثلة من kutools

الآن تم دمج الخلايا المجاورة ذات القيم نفسها.

فك دمج الخلايا المدمجة وتعبئة القيم مجددًاإذا كنت ترغب في فك دمج الخلايا واستعادة القيم، يمكنك استخدام ميزةفك دمج الخلايا واستعادة القيم.
تطبيق ميزة فك الدمج وتعبئة القيم

لمعرفة المزيد عن هذه الميزة، يُرجى زيارةدمج الخلايا المتشابهة.

لمعرفة المزيد حول هذه الميزة، يُرجى زيارةفك دمج الخلايا.

للمزيد من التفاصيل حول Kutools لـ Excel، يُرجى زيارةKutools لـ Excel.

لتجربة مجانية لمدة 30 يومًا من Kutools لـ Excel، يُرجىتنزيلالبرنامج الآن.


3 دمج الخلايا

3.1. دمج صفوف وأعمدة متعددة في خلية واحدة

لدمج نطاق يحتوي على صفوف وأعمدة متعددة في خلية واحدة، إليك أربع طرق فعّالة.

مثال: نطاق الدمج A1:C3
دمج صفوف وأعمدة متعددة في خلية واحدة

3.11 باستخدام رمز العطف (&)

في Excel، يُستخدم رمز العطف (&) عادةً لدمج النصوص بسلاسة.

حدد الخلية التي تريد وضع الناتج المدمج فيها، ثم اكتب صيغة كالتالي:

=A1&", "&B1&", "&C1&", "&A2&", " &B2&", "&C2&", "&A3&", "&B3&", "&C3

أيقونة معلوماتفي الصيغة، يُستخدم الرمز & لربط النصوص، و"، " هو المحدد (فاصلة + مسافة) الذي يفصل بين النصين في الخلية الناتجة. إذا أردت استخدام محدد آخر، فما عليك سوى كتابة الفاصل محصورًا بين علامتي اقتباس مزدوجتين.

اضغط على مفتاحEnter للحصول على الناتج المدمج.

3.12 باستخدام دالة CONCATENATE (Excel 2016 أو الإصدارات السابقة)

إذا كنت تستخدم Excel 2016 أو إصدارًا سابقًا، يمكن أن تساعدك دالة CONCATENATE.

صيغة دالة CONCATENATE
CONCATENATE (text1,[text2],…)

للمزيد من التفاصيل حول دالة CONCATENATE، يُرجى زيارة:CONCATENATE

حدد الخلية التي تريد وضع الناتج المدمج فيها، ثم اكتب صيغة كالتالي:

=CONCATENATE(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", ",C3)

أيقونة معلوماتفي الصيغة، A1 وB1… وC3 هي النصوص التي تريد دمجها. و"، " هو المحدد (فاصلة + مسافة) الذي يفصل بين النصين في الخلية الناتجة. إذا أردت استخدام محدد آخر، فما عليك سوى كتابة الفاصل محصورًا بين علامتي اقتباس مزدوجتين.

ثم اضغط على مفتاحEnter للحصول على الناتج المدمج.

3. 13 باستخدام دالة CONCAT أو دالة TEXTJOIN (المتاحتين في Excel 2019 أو Excel 365)

إذا كنت تستخدم Excel 2019 أو Excel 365، فقد تكون دالتا CONCAT وTEXTJOIN هما الخيار الأفضل.

صيغة دالة CONCAT
CONCAT (text1,[text2],…)

للمزيد من التفاصيل حول دالةCONCAT، يُرجى زيارة الصفحة المخصصة لها.

تُستخدم دالة CONCAT بطريقة مشابهة لدالة CONCATENATE. ولدمج الاسم الأول والاسم الأخير الموجودين في عمودين منفصلين ضمن عمود واحد، تُطبَّق الصيغة التالية:

=CONCAT(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", ",C3)

أيقونة معلوماتفي الصيغة، A1 وB1… وC3 هي النصوص التي تريد دمجها. و"، " هو المحدد (فاصلة + مسافة) الذي يفصل بين النصين في الخلية الناتجة. إذا أردت استخدام محدد آخر، فما عليك سوى كتابة الفاصل محصورًا بين علامتي اقتباس مزدوجتين.

ثم اضغطEnter للحصول على النتيجة المدمَجة.

صيغة دالة TEXTJOIN
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

لمزيد من التفاصيل حول دالة TEXTJOIN، يُرجى زيارة:TEXTJOIN.

لدمج دمج الأعمدة أو الصفوف باستخدام TEXTJOIN:

=TEXTJOIN(", ",TRUE,A1:C3)

أيقونة معلوماتفي الصيغة، يُعد A1:C3 النطاق المستمر الذي سيتم دمجه، و"، " هو المحدد (فاصلة متبوعة بمسافة) الذي يفصل بين النصوص في الخلية الناتجة. إذا رغبت في استخدام محدد مختلف، اكتبه محصورًا بين علامتي اقتباس مزدوجتين «». وتشير القيمة المنطقية «TRUE» إلى تجاهل الخلايا الفارغة أثناء الدمج؛ أما إذا أردت تضمين الخلايا الفارغة في عملية الدمج، فاستبدل TRUE بـ FALSE.

ثم اضغطEnterللحصول على النتيجة المدمَجة.

زر التلميحإذا أردت استخدام فاصل سطر جديد كمحدد، استخدم CHAR(10) في الصيغة، مثل =TEXTJOIN(CHAR(10)،TRUE،A1:C3)، ثم قم بتنسيق الخلية الناتجة بتفعيل خيار التفاف النص (Wrap Text).
تنسيق خلية النتيجة كـ "التفاف النص"

3.14 دمج دمج الأعمدة/الصفوف/الخلايا في خلية واحدة دون فقدان البيانات

إذا كان لديك Kutools لـ Excel مثبّتًا في Excel، فإن ميزةدمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيميمكنها إنجاز هذه المهمة بسرعة.

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

2. في مربع الحوار المنبثق، حدد الخياردمج في خلية واحدةوفاصلًا حسب الحاجة، ثم انقر علىموافق.
تحديد الخيارات في مربع الحوار

الآن تم دمج الخلايا في خلية واحدة باستخدام محدد معين. إذا كانت محتويات الخلية كثيرة جدًّا بحيث لا تظهر كاملةً في الخلية المدمجة، فانقر علىتفاف النصضمن تبويبالرئيسيةلعرضها بالكامل.
تم دمج الخلايا في خلية واحدة باستخدام محدد معين

للمزيد من التفاصيل حول هذه الميزة، يُرجى زيارةدمج الأعمدة، الصفوف، والخلايا دون فقدان البيانات.

للمزيد من التفاصيل حول Kutools لـ Excel، يُرجى زيارةKutools لـ Excel.

لتجربة مجانية لمدة 30 يومًا من Kutools لـ Excel، يُرجىتنزيلالبرنامج الآن.

3.2 دمج صفوف وأعمدة متعددة في عمود واحد/صف واحد

تحويل الخلايا إلى عمود واحد
 تحويل الخلايا إلى عمود واحد
تحويل الخلايا إلى صف واحد
 تحويل الخلايا إلى صف واحد
 

3.21 تسمية النطاق واستخدام دالة INDEX (للأعمدة الوحيدة فقط)

إذا أردت تحويل نطاق الخلايا إلى عمود واحد، يمكنك تسمية النطاق ثم استخدام دالة INDEX.

1. حدد نطاق الخلايا، ثم انقر بزر الماوس الأيمن لفتح قائمة السياق، واخترتحديد اسم.
 انقر بزر الماوس الأيمن على نطاق البيانات، ثم انقر تعريف اسم

2. في مربع الحوار المنبثقاسم جديد، اكتب اسمًا في مربع النصالاسم، ثم انقر علىموافق.
اكتب اسمًا في مربع نص الاسم

3. بعد تسمية النطاق، حدد الخلية التي تريد وضع البيانات المحولة فيها، واستخدم دالة INDEX كالتالي:

=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)

للمزيد من التفاصيل حول دالة INDEX، يُرجى زيارةهنا.

4. اضغط على مفتاحEnter، ثم اسحب مقبض الملء التلقائي لأسفل لملء الصيغة حتى تظهر قيمة الخطأ #REF!.
أدخل صيغة واسحب الصيغة لأسفل

5. احذف قيمة الخطأ، ليتم دمج نطاق الخلايا في عمود واحد.

3.22 VBA (للأعمدة الوحيدة فقط)

لدمج الخلايا في عمود واحد، إليك كود VBA القادر على تنفيذ هذه المهمة أيضًا.

1. اضغطAlt+F11لتمكين نافذةمايكروسوفت فيجوال بيسك للتطبيقات، ثم انقرإدراج>وحدةلإنشاء وحدة فارغة جديدة.

2. انسخ ولصق كود VBA أدناه في الوحدة النمطية الفارغة.

VBA: نطاق التحويل إلى عمود

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

انسخ والصق كود VBA في الوحدة

3. ثم اضغط مفتاحF5 أو انقر على زرتشغيلحدد نطاق خلايا، وسيظهر مربع حوار لاختيار نطاق الخلايا؛ انقرموافق.
حدد نطاق خلايا

4. سيظهر مربع حوار آخر لاختيار الخلية التي تريد وضع النتيجة فيها، ثم انقرموافق.
حدد خلية لوضع النتيجة فيها

3.23 باستخدام أداة مفيدة – تحويل النطاق

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

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

1. حدد نطاق الخلايا، ثم انقر علىKutools > نطاق > تحويل النطاق.
انقر ميزة تحويل النطاق من kutools

2. في مربع حوارتحويل النطاق، اختر الخيار الأنسب لاحتياجك: نطاق إلى عمود واحدأونطاق إلى صف واحد، ثم انقرموافق.
حدد الخيار الذي تحتاجه

3. سيظهر مربع حوار لاختيار الخلية التي تريد وضع النتيجة فيها، انقرموافق.
حدد خلية لوضع النتيجة فيها

الآن تم تحويل نطاق تم تحويل الخلية بنجاح إلى صف أو عمود.

لمزيد من التفاصيل حول هذه الميزة، يُرجى زيارةتحويل النطاق.

لمزيد من التفاصيل حول Kutools لـ Excel، يُرجى زيارةKutools لـ Excel.

للحصول على نسخة تجريبية مجانية لمدة 30 يومًا من Kutools لـ Excel، يُرجىتنزيلهاالآن.

3.3 تكديس الأعمدة في عمود واحد دون تكرار

إذا كانت هناك قيم مكرَّرة في جدول يحتوي على أعمدة متعددة، فكيف يمكنك دمج هذه الأعمدة في عمود واحد دون تضمين التكرارات، كما يظهر في لقطة الشاشة أدناه؟
تكديس الأعمدة في عمود واحد دون تكرار

في هذا الجزء، نقدّم ثلاث طرق مختلفة لأداء هذه المهمة.

3.31 النسخ واللصق وإزالة التكرارات

في Excel، الطريقة العامة لأداء هذه المهمة هي نسخ ولصق الأعمدة واحدة تلو الأخرى، ثم إزالة القيم المكررة.

1. حدد العمود الأول، ثم اضغط على مفاتيحCtrl+C لنسخه. بعد ذلك، حدد خلية الوجهة واضغط على مفاتيحCtrl+V.
انسخ بيانات العمود الأول

2. ثم كرّر الخطوة 1 لنسخ الأعمدة الأخرى ولصقها أسفل العمود الأول.
كرر نسخ بيانات الأعمدة الأخرى أسفل العمود الأول

3. بعد ذلك، حدد العمود المكدّس، ثم انقر علىبيانات > إزالة التكرارات. في مربع حوارإزالة التكرارات، حدد اسم العمود، ثم انقرموافق.
تحقق من اسم العمود في مربع الحوار
تحقق من اسم العمود في مربع الحوار

4. الآن سيظهر مربع حوار لإعلامك بأنه تم إزالة القيم المكررة. انقرموافقلإغلاقه، وسيحتفظ العمود المكدّس بالقيم الفريدة فقط.
تمت إزالة جميع التكرارات

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

حدد نطاق الأعمدة، ثم انقر علىKutools > نطاق > تحويل النطاق.
انقر ميزة تحويل النطاق من kutools

ثم اختر خيارنطاق إلى عمود واحد، وانقرموافقلتحديد الخلية التي تريد وضع العمود المكدّس فيها.
حدد خيار النطاق إلى عمود واحد

ثم طبّق إزالة التكرارات لإزالة القيم المكررة.

لمزيد من التفاصيل حول هذه الميزة، يُرجى زيارةتحويل النطاق.

لمزيد من التفاصيل حول Kutools لـ Excel، يُرجى زيارةKutools لـ Excel.

للحصول على نسخة تجريبية مجانية لمدة 30 يومًا من Kutools لـ Excel، يُرجىتنزيلهاالآن.

3.32 باستخدام VBA

علاوةً على ذلك، إليك كود VBA الذي يُنفِّذ هذه المهمة بسلاسة.

1. اضغطAlt+F11لتمكين نافذةمايكروسوفت فيجوال بيسك للتطبيقات، ثم انقرإدراج>وحدةلإنشاء وحدة فارغة جديدة.

2. انسخ والصق الكود أدناه في الوحدة الجديدة.

VBA: تكديس الأعمدة في عمود واحد دون تكرارات

Sub FindUniques()
'UpdatebyExtendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

انسخ والصق الكود في الوحدة

3. ثم اضغط مفتاحF5 أو انقر على زرتشغيلحدد الأعمدة التي تحتاج إلى تكديسها. بعد ذلك، سيظهر مربع حوار لتحديد الأعمدة التي تريد تكديسها؛ انقر «موافق».
حدد الأعمدة التي تحتاج إلى تكديسها

4. بعد ذلك، في مربع الحوار الثاني الذي يظهر، حدد خلية الوجهة التي تريد وضع العمود المكدّس فيها، ثم انقرموافق.
حدد خلية وجهة لوضع العمود المكدّس

الآن تم تكديس الأعمدة في عمود واحد يحتوي على القيم الفريدة.

3.4. دمج الخلايا مع الحفاظ على تنسيقها

إذا كان هناك عمودان، أحدهما منسّق بتنسيق خاص، مثل التاريخ/الوقت المخصص mm/dd/yyyy، فعند دمج هذين العمودين في عمود واحد باستخدام الطرق العادية، سيتم إزالة التنسيق المخصص كما يظهر في لقطة الشاشة أدناه:
دمج الخلايا مع فقد التنسيق

الآن، في هذا الجزء، سنستعرض بعض الطرق الفعّالة لدمج الخلايا مع الحفاظ على تنسيقها الأصلي.
دمج الخلايا مع الاحتفاظ بالتنسيق

3.41 تضمين دالة TEXT في الصيغة

تُستخدم دالة TEXT لتحويل القيمة إلى النص إلى تنسيق معيّن. هنا يمكننا استخدامها لتحويل الخلية (التي تحتوي على رقم) إلى التنسيق المطلوب أولًا، ثم دمجها مع خلايا أخرى باستخدام الرمز “&” أو دالة CONCATENATE أو دالة CONCAT أو دالة TEXTJOIN.

لمزيد من التفاصيل حول دمج الخلايا في خلية واحدة، يُرجى الرجوع إلى1.1.

صيغة دالة TEXT
TEXT (value, format_text)

لمزيد من التفاصيل حول دالةTEXT، يُرجى زيارة صفحة الدالة.

هنا سنأخذ مثالًا على تضمين دالة TEXT داخل دالة CONCAT.

يرجى نسخ ولصق الصيغة أدناه في الخلية التي ترغب في وضع النتيجة المدمجة فيها:

=CONCAT(TEXT(A2,«mm/dd/yyyy hh:mm»),« »,B2)

أيقونة معلوماتفي الصيغة، A2 هي الخلية التي تريد الحفاظ على تنسيقها، و«mm/dd/yyyy hh:mm» هو التنسيق الذي تستخدمه، وB2 هي الخلية الأخرى التي تُستخدم للدمج. « » يشير إلى فصل القيم بمسافة. يمكنك تغيير المراجع والتنسيق والفواصل حسب الحاجة.

اضغط مفتاحEnter، ثم اسحب مقبض الملء التلقائي لأسفل لملء الخلايا بهذه الصيغة.

3.42 باستخدام Microsoft Word

1. حدد الجدول الذي تريد دمج خلاياه في خلية واحدة، ثم اضغط على مفاتيحCtrl+C لنسخه.
نسخ نطاق البيانات

2. افتح مستندWord فارغ، واضغط على مفاتيحCtrl + V للصقه، ثم انقر على الجدول في المستند—وستظهر الآن أيقونة صليب في الزاوية العلوية اليمنى من الجدول.
الصق النطاق في Word

3. انقر على علامة التبويبتخطيط، ثم انقر علىتحويل إلى نصفي مجموعةبيانات. بعد ظهور مربع الحوارتحويل الجدول إلى نص، حدّد الفاصل المناسب للأعمدة، ثم انقرموافق.
تحديد الفاصل للأعمدة
تحديد الفاصل للأعمدة

الآن تم تحويل محتويات الجدول في Word إلى نصوص.
تم تحويل محتويات الجدول في Word إلى نصوص

4. حدد النصوص المحولة واضغطCtrl + C لنسخها، ثم اعد إلى Excel وحدد خلية فارغة، واضغطCtrl + V للصق النتيجة المدمَجة.
انسخ والصق مجددًا في ملف Excel

3.43 باستخدام أداة مفيدة – الدمج دون فقدان البيانات

الطريقة الأكثر كفاءة هي استخدام أداةKutools for Excel’s دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم، التي تتطلب فقط تحديد خانة الاختياراستخدام القيم المنسقةأثناء تطبيق الميزة، وستحتفظ النتيجة المدمَجة بتنسيق البيانات.

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

2. في مربع الحوار الظاهر، حدد عملية الدمج التي تناسب احتياجاتك، ثم ألغِ تحديد خانة الاختياراستخدام القيم المنسقة (يكون هذا الخيار محددًا افتراضيًا)، وبعد ذلك انقرموافق.
تحديد عملية الدمج في مربع الحوار

الآن تم دمج البيانات مع الحفاظ على التنسيق.
تم دمج البيانات مع الاحتفاظ بالتنسيق

لمزيد من التفاصيل حول هذه الميزة، يُرجى زيارةدمج الأعمدة، الصفوف، الخلايا دون فقدان البيانات.

لمزيد من التفاصيل حول Kutools لـ Excel، يُرجى زيارةKutools لـ Excel.

لتجربة مجانية لمدة {module745} يومًا من Kutools لـ Excel، يُرجىتنزيلهالآن.

3.5 دمج الخلايا لتكوين تاريخ

افترض وجود جدول يحتوي على السنوات والأشهر والأيام في أعمدة منفصلة، والمطلوب هو دمج هذه الأعمدة لإنشاء تاريخ كما هو موضح في لقطة الشاشة أدناه:
دمج الخلايا لإنشاء تاريخ

3.51 باستخدام دالة DATE

تُستخدم دالة DATE لإنشاء تاريخٍ مكوَّن من السنة والشهر واليوم.

صيغة دالة DATE
DATE( year, month, day )

لمزيد من التفاصيل حول دالة DATE، يُرجى زيارة صفحة دالة DATE.

انسخ والصق الصيغة أدناه في الخلية التي ستعرض التاريخ:

=DATE(A2,B2,C2)

أيقونة معلوماتفي الصيغة، A2 وB2 وC2 هي الخلايا التي تحتوي على قيم السنة والشهر واليوم.

اضغطEnter للحصول على أول تاريخ، ثم اسحب مقبض التعبئة التلقائية لأسفل لملء جميع التواريخ تلقائيًا.
استخدام دالة التاريخ للحصول على النتيجة


مزيد من دروس Excel:

دمج ملفات ومصنفات عمل متعددة في ملف واحد
يغطي هذا الدليل جميع سيناريوهات الدمج التي قد تواجهها، ويقدّم لك الحلول الاحترافية المناسبة لها.

تقسيم خلايا النصوص والأرقام والتواريخ (فصلها إلى أعمدة متعددة)
يُقسَّم هذا البرنامج التعليمي إلى ثلاثة أجزاء: تقسيم خلايا النصوص، وتقسيم خلايا الأرقام، وتقسيم خلايا التواريخ. ويقدّم كل جزء أمثلة متنوعة لمساعدتك على تعلُّم كيفية التعامل مع مهمة التقسيم عندما تواجه المشكلة نفسها.

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

مقارنة عمودين للعثور على التطابقات والاختلافات في Excel
يغطي هذا المقال معظم السيناريوهات الشائعة التي قد تواجهها عند مقارنة عمودين، ونأمل أن يساعدك على حلها بسهولة!


  • محرر متعدد الأسطر فائق الكفاءة من شريط الصيغة (يمكّنك من تحرير أسطر نصية متعددة والمعادلات بسهولة)؛وضع القراءة (ليُسهّل عليك قراءة وتحرير عدد كبير من الخلايا)؛لصق إلى نطاق التصفية...
  • نسخ صفوف أو أعمدة تحتوي على خلايا مدمجةمع الاحتفاظ بالبيانات؛ تقسيم محتوى الخلايا؛دمج خلايا الصفوف المكررة وحساب المجموع أو المتوسط... منع إدخال قيم مكررة في الخلايا؛مقارنة النطاقات...
  • تحديد الصفوف المكررة أو الفريدة؛تحديد الصفوف الفارغة (جميع الخلايا فارغة)؛البحث المتقدم والعثور على المشابهعبر العديد من ملفات العمل؛ تحديد عشوائي...
  • إدخال محتوى متعدد الخلايا من النسخ الدقيقدون تغيير مراجع الصيغ؛إنشاء مراجع تلقائيةلأوراق عمل متعددة؛إدراج رموز التعداد النقطي، ومربعات الاختيار والمزيد...
  • احفظ الصيغ المفضلة وأدخلها بسرعة، والنطاقات، والرسوم البيانية، والصور؛شفر الخلايابكلمة مرور؛أنشئ قائمة بريد إلكترونيوأرسل رسائل البريد الإلكتروني...
  • استخراج النص، وإضافة نص، وحذف الأحرف من موقع معين،وإزالة المسافات؛ وإنشاء إحصاءات صفحة البيانات وطباعتها؛والتحويل بين محتوى الخلايا والتعليقات...
  • مرشح متقدم (لحفظ مخططات التصفية وتطبيقها على أوراق عمل أخرى)؛ترتيب متقدمحسب الشهر أو الأسبوع أو اليوم، والتكرار، وغير ذلك؛تصفية خاصةحسب التنسيق العريض أو المائل...
  • ادمج ملفات العمل وأوراق العمل؛ واجمع الجداول استنادًا إلى العمود الرئيسي؛وقسّم البيانات إلى أوراق عمل متعددة؛وحَوِّل ملفات XLS وXLSX وPDF دفعةً واحدة...
  • تجميع حسب جدول البيانات المحوريرقم الأسبوع، ويوم الأسبوع والمزيد... عرض الخلايا غير المؤمَّنة وقفل التحديدبألوان مختلفة؛تمييز الخلايا التي تحتوي على صيغة أو اسم...
kte tab 201905
  • تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، بالإضافة إلى Publisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50% ويوفّر عليك مئات نقرات الفأرة كل يوم!
officetab bottom