Skip to main content

دليل إكسل: دمج الأعمدة، الصفوف، الخلايا

Author: Sun Last Modified: 2025-05-30

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

تنقلات هذا الدليل

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1.42 استخدام VBA

2. دمج الصفوف التي لها نفس المعرف

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

2.11 استخدام VBA

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

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

2.2 دمج الصفوف التي لها نفس المعرف وإجراء بعض العمليات الحسابية

2.21 استخدام ميزة Consolidate

2.22 استخدام VBA

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

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

2.31 استخدام VBA

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

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

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

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

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

3.13 استخدام دالة CONCAT أو دالة TEXTJOIN (إكسل2019 أو إكسل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 أو الصيغ أدناه، أو يمكنك تحميل عينات لتجربة الطرق مباشرة.

doc sampleانقر لتحميل ملف العينة


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

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

يُستخدم دمج الأعمدة أو الصفوف في خلية واحدة وفصل النتيجة بفاصلة أو مسافة أو فواصل أخرى كما هو موضح في الصورة أدناه بشكل واسع في إكسل.

دمج الأعمدة في خلية واحدة
combine columns into one cell
دمج الصفوف في خلية واحدة
Combine rows into one cell

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

في إكسل، يُستخدم رمز العطف & عادةً لربط النصوص.

مثال: دمج الاسم الأول (العمود A) واسم العائلة (العمود B) للحصول على الاسم الكامل

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

=A2&" "&B2

info iconفي الصيغة، يُستخدم & لربط النصوص، وA2 وB2 هما النصان المراد دمجهما، و" " هو الفاصل (مسافة) الذي يفصل بين النصين في خلية النتيجة. إذا أردت استخدام فاصلة كفاصل، فقط اكتب فاصلة بين علامتي اقتباس ",".

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

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

إذا أردت دمج الصفوف في خلية واحدة، غيّر مراجع الخلايا والفاصل في الصيغة حسب الحاجة، واسحب مقبض التعبئة التلقائية إلى اليمين للحصول على النتائج المدمجة.
 use ampersand symbol to combine rows

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

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

بنية دالة CONCATENATE
CONCATENATE (text1,[text2],…)

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

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

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

=CONCATENATE(F2,",",G2)

info iconفي الصيغة، F2 وG2 هما النصان المراد دمجهما، و"," هو الفاصل (فاصلة) الذي يفصل بين النصين في خلية النتيجة. إذا أردت استخدام مسافة كفاصل، فقط اكتب مسافة بين علامتي اقتباس " ".

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

لدمج الصفوف، فقط غيّر مراجع الخلايا والفاصل حسب الحاجة، واسحب مقبض التعبئة التلقائية إلى اليمين.
use CONCATENATE function to combine rows

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

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

بنية دالة CONCAT
CONCAT (text1,[text2],…)

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

استخدام دالة CONCAT مماثل لدالة CONCATENATE، لدمج الاسم الأول واسم العائلة في عمودين منفصلين في عمود واحد، تُستخدم الصيغة كالتالي:

=CONCAT(A21," ",B21)

info iconفي الصيغة، A21 وB21 هما النصان المراد دمجهما، و" " هو الفاصل (مسافة) الذي يفصل بين النصين في خلية النتيجة. إذا أردت استخدام فواصل أخرى، فقط اكتب الفاصل بين علامتي اقتباس "".

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

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

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

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

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

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

info iconفي الصيغة، E21:G21 هو النطاق المستمر المراد دمجه. " " هو الفاصل (مسافة) الذي يفصل بين النصوص في خلية النتيجة. إذا أردت استخدام فواصل أخرى، فقط اكتب الفاصل بين علامتي اقتباس "". النص المنطقي “TRUE” يعني تجاهل الخلايا الفارغة أثناء الدمج، إذا أردت الدمج مع الفراغات، استبدل TRUE بـ FALSE.

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

تجاهل الفراغات
use TEXTJOIN function to combine columns ignoring blanks
تضمين الفراغات
use TEXTJOIN function to combine columns including blanks

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

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

حدد النطاق الذي تريد دمج أعمدته في عمود واحد، واضغط Ctrl + C لنسخ النطاق.
copy the data range

2. افتح المفكرة، واضغط Ctrl + V للصق النطاق المنسوخ.
Open a Notepad and paste the data

3. حدد علامة التبويب بين نصين في المفكرة واضغط Ctrl + H لتفعيل استبدال الميزة، تم وضع رمز التبويب في البحث عن مربع النص.
press Ctrl + H to enable Replace feature

4. في استبدال بـ مربع النص، اكتب الفاصل الذي تريد استخدامه لفصل النصوص المدمجة، ثم انقر استبدال الكل. ثم أغلق استبدال مربع الحوار.
type the delimiter to separate the combined texts in the replace textbox

5. الآن حدد النصوص في المفكرة، واضغط Ctrl + C لنسخها، ثم انتقل إلى إكسل، وحدد خلية واضغط Ctrl + V للصق النتائج المدمجة.
copy and paste the data back to Excel filethe columns are combined into one cell

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

إذا كنت تريد دمج الأعمدة أو الصفوف في خلية واحدة مع فاصل سطر كما هو موضح في الصورة أدناه:
combine columns or rows into one cell with a line break

أولاً، يجب أن تدرك أنه في إكسل، يمكن استخدام دالة 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)

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

الآن، تم دمج الأعمدة في واحدة وفصلها بفاصل سطر.
the columns are combined into one and separated by a line break

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

click Home > Fill > Justify the rows are combined into the top cell with space

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

في هذا الجزء، يقدم الدليل طرق دمج الأعمدة أو الصفوف في خلية واحدة مع تخطي الخلايا الفارغة كما هو موضح في الصورة أدناه:
combine columns or rows and skip empty cells

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

إذا كنت تستخدم إكسل2019 أو إكسل365، لحسن الحظ، يمكن للدالة الجديدة TEXTJOIN حل هذه المهمة بسهولة.

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

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

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

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

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

info icon في الصيغة، A2:C2 هو النطاق الذي يحتوي على النصوص المراد دمجها، و"" هو الفاصل (لا يوجد) الذي يفصل بين النصوص في خلية النتيجة. إذا أردت استخدام فاصل لفصل النصوص، فقط اكتب الفاصل بين علامتي اقتباس ""، مثل ",". النص المنطقي “TRUE” يعني تجاهل الخلايا الفارغة أثناء الدمج، إذا أردت الدمج مع الفراغات، استبدل TRUE بـ FALSE.

اضغط Enter للحصول على النتيجة الأولى، واسحب مقبض التعبئة التلقائية للأسفل أو لليمين حسب الحاجة لتوليد جميع النتائج.
TEXTJOIN function to combine columns skip blank cells

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

إذا كنت في إكسل2016 أو الإصدارات الأقدم، استخدم رمز العطف & لربط النصوص واحدة تلو الأخرى وتخطي الفراغات يدويًا.

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

=A10&C10

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

اضغط Enter للحصول على النتيجة المدمجة. ثم غيّر مراجع الصيغة للحصول على النتيجة التالية.
ampersand symbol to combine columns skip blank cells

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

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

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

2. انقر على إدراج > وحدة لإدراج وحدة جديدة.
Click Insert > Module to insert a new module

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

copy and paste the code into the module

4. عد إلى ورقة العمل، وحدد خلية لوضع النتيجة المدمجة، واكتب الصيغة

=Concatenatecells(A15:C15)

info icon في الصيغة، A15:C15 هو النطاق الذي يحتوي على النصوص المراد دمجها. في كود VBA، "_" هو الفاصل المستخدم لفصل النصوص في النتيجة المدمجة، يمكنك تغيير الفاصل حسب الحاجة.
enter a formula to get the result


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

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

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

1. حدد الخلايا التي تريد دمجها والخلايا التي تريد وضع النتائج المدمجة فيها.
Select the cells to combine and the cells to place the combined results

2. انقر على Kutools > دمج & تقسيم > دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم.
click Combine Rows, Columns or Cells without Losing Data feature

3. في مربع الحوار المنبثق، حدد الخيارات كما يلي:
set options in the dialog box

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

دمج الأعمدة مثال. دمج الصفوف مثال. دمج في خلية واحدة مثال.
Combine columns Combine rows Combine into single cell

2) حدد الفاصل للنصوص في النتيجة المدمجة.

3) حدد موضع النتيجة المدمجة (يتم تعطيله عند اختيار خيار دمج في خلية واحدة)

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

الخلية على اليسار مثال. الخلية على اليمين مثال.
put the combined result to left cell put the combined result to right cell

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

الخلية أعلاه مثال. الخلية أدناه مثال.
put the combined result to top cell put the combined result to bottom cell

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

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

الاحتفاظ بمحتوى هذه الخلايا
Keep contents of combined cells
حذف محتوى هذه الخلايا
Delete contents of combined cells
دمج هذه الخلايا
Merge the combined cells

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

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

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


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

أحيانًا قد ترغب في دمج عمودين إذا كان أحد الأعمدة يحتوي على خلايا فارغة. لنفترض أن هناك عمودين، العمود A يحتوي على أسماء المستخدمين وبعض الخلايا الفارغة، والعمود B يحتوي على الأسماء. الآن فقط املأ الخلايا الفارغة في العمود A بالمحتوى المقابل في العمود B عند دمج العمودين كما هو موضح في الصورة أدناه:
Combine two columns if blank

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

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

بنية دالة IF
IF (logical_test, [value_if_true], [value_if_false])

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

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

=IF(A2="",B2,A2)

ثم اضغط Enter للحصول على النتيجة الأولى، ثم اسحب مقبض التعبئة التلقائية للأسفل للحصول على جميع النتائج.
use IF function to combine two columns if blank

الآن تم ملء الخلايا الفارغة فقط في العمود 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 

copy and paste the code into the module

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

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


2 دمج الصفوف التي لها نفس المعرف

لنفترض أن هناك جدولاً يحتوي على عدة أعمدة، أحد الأعمدة يحتوي على قيم معرف بها عناصر مكررة. الآن يوفر الدليل طرقًا لدمج صفوف الجدول بناءً على نفس المعرف وإجراء بعض العمليات الحسابية.
sample data

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

في هذا الجزء، يتم تقديم طرق دمج الصفوف التي لها نفس المعرف وفصلها بفواصل كما هو موضح في الصورة أدناه:
Combine rows with same ID and separated by comma

2.11 استخدام VBA

هنا يوجد كود VBA يمكنه معالجة هذه المهمة

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

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

copy and paste the code into the module

3. ثم اضغط F5 مفتاح أو انقر على تشغيل run buttonزر، ثم تظهر نافذة Kutools for Excel لتحديد الجدول الذي يحتاج إلى دمج الصفوف التي لها نفس المعرف.
select a table that needs to be combined rows with the same ID

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

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

إذا كان هناك عمودان فقط، وتريد دمج الصفوف التي لها نفس المعرف، وقيم العمود الآخر مفصولة بفاصلة كما هو موضح في الصورة أدناه، يمكن أن تساعدك دالة IF.
combine the rows with the same ID, and another column values separated by a comma

1. قم بترتيب المعرف من A إلى Z. حدد عمود المعرف، وانقر على البيانات > ترتيب من A إلى Z.
Data > Sort A to Z

2. ثم في تحذير الترتيب مربع الحوار، تحقق من توسيع خيار التحديد، وانقر على ترتيب.
check Expand the selection option, and click Sort

الآن تم ترتيب نفس المعرفات معًا.
the same IDs have been sorted together

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

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

info iconفي الصيغة، A17 وA18 هما خليتان متجاورتان في عمود المعرف (A17 هو رأس العمود)، وB18 هي الخلية المقابلة لـ A18. ", " تعني فصل القيم بفاصلة. يمكنك تغيير المراجع والفاصل حسب الحاجة.

4. اضغط Enter للحصول على النتيجة الأولى، ثم اسحب مقبض التعبئة التلقائية للأسفل للحصول على جميع النتائج.
enter a fromula to get the result

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

=IF(A18<>A19,"Merged","")

info iconفي الصيغة، A18 وA19 هما خليتان متجاورتان في عمود المعرف، إذا لم تكن الخليتان متساويتين، ستُرجع "Merged"، وإلا ستُرجع فارغًا.

6. اضغط Enter للحصول على النتيجة الأولى، ثم اسحب مقبض التعبئة التلقائية للأسفل للحصول على جميع النتائج.
enter a formula to check the merged cells

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

8. انقر على تصفية زر وحدد Merged مربع الاختيار في القائمة المنسدلة، وانقر على موافق.
tick Merged checkbox in Filter list

الآن تم تصفية الصفوف المدمجة فقط، انسخ البيانات المصفاة والصقها في مكان آخر.
copy the filtered data and paste to other place

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

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

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

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

1. حدد الجدول ثم انقر على Kutools > دمج & تقسيم > دمج متقدم للصفوف.
click Advanced Combine Rows feature of kutools

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

1) اختر عمود المعرف، وحدده كمفتاح رئيسي؛

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

3) انقر على موافق.

الآن تم دمج الصفوف حسب نفس المعرف.
the rows have been combined by the same ID

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

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

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

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

2.2 دمج الصفوف التي لها نفس المعرف وإجراء بعض العمليات الحسابية

إذا كنت تريد دمج الصفوف التي لها نفس المعرف ثم جمع القيم أو إجراء عمليات حسابية أخرى كما هو موضح في الصورة أدناه، يمكن أن تساعدك الطرق التالية.
Combine rows with same ID and do some calculations

2.21 استخدام ميزة Consolidate

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

1. حدد خلية لوضع النتيجة المدمجة، ثم انقر على البيانات > Consolidate.
click Data > Consolidate

2. في مربع حوار Consolidate، قم بما يلي:

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

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

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

4) حدد مربعات الاختيار للصف الأعلى وأقصى عمود على اليسار؛

5) انقر على موافق.

الآن تم جمع الجدول بناءً على نفس المعرف.
the table has been summed based on the same ID

2.22 استخدام VBA

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

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

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 مفتاح أو انقر على تشغيل run buttonزر، ثم تظهر نافذة لتحديد الجدول الذي تستخدمه، ثم انقر على موافق.

الآن تم دمج النطاق المحدد مع نفس القيم وجمعها.

note buttonسيؤدي كود VBA إلى كسر البيانات الأصلية، يرجى حفظ البيانات كنسخة قبل استخدام VBA.

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

إذا كان هناك أكثر من عمودين في الجدول الذي تريد دمجه وإجراء عمليات حسابية عليه، على سبيل المثال، هناك ثلاثة أعمدة، الأول يحتوي على أسماء منتجات مكررة تحتاج إلى دمجها معًا، والثاني يحتوي على أسماء متاجر تحتاج إلى دمجها وفصلها بفاصلة، والعمود الأخير يحتوي على أرقام يجب جمعها بناءً على الصفوف المكررة في العمود الأول، كما هو موضح في الصورة أدناه، يمكن أن تساعدك ميزة دمج متقدم للصفوف في Kutools for Excel.
combine and do calculations

1. حدد الجدول ثم انقر على Kutools > دمج & تقسيم > دمج متقدم للصفوف.
click Advanced Combine Rows feature of kutools

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

1) اختر عمود المعرف، وحدده كمفتاح رئيسي؛

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

3) اختر العمود الذي تريد إجراء العملية الحسابية عليه، وانقر على حساب واختر عملية حسابية واحدة.

4) انقر على موافق.

الآن تم دمج الصفوف التي لها نفس القيم وإجراء العمليات الحسابية عليها.

note buttonستؤدي ميزة دمج متقدم للصفوف إلى كسر البيانات الأصلية، يرجى حفظ البيانات كنسخة قبل استخدامها.

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

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

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

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

إذا كان هناك جدول يحتوي على عدة أعمدة، وأحد الأعمدة يحتوي على بعض القيم المكررة، الآن المهمة هي دمج الصفوف المتجاورة في هذا العمود التي لها نفس القيم كما هو موضح في الصورة أدناه. كيف يمكنك حلها؟
Combine adjacent rows with same value

2.31 استخدام VBA

في إكسل، لا توجد ميزة مدمجة يمكنها حل هذه المهمة مباشرة، ولكن هنا يوجد كود VBA يمكنه معالجتها.

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

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

copy and paste the code into the module

3. ثم اضغط F5 مفتاح أو انقر على تشغيل run buttonزر لتفعيل هذا الكود، ثم تظهر نافذة لتحديد الجدول الذي تستخدمه، ثم انقر على موافق.
select the data range

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

note buttonسيؤدي كود VBA إلى كسر البيانات الأصلية، يرجى حفظ البيانات كنسخة قبل استخدام VBA. وسيقوم هذا الكود بدمج القيم المتشابهة في العمود الأول من الجدول المحدد.

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

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

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

حدد العمود الذي تريد دمج القيم المتشابهة فيه، ثم انقر على Kutools > دمج & تقسيم > دمج الخلايا المتشابهة.
click Merge Same Cells feature of kutools

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

tip buttonإذا كنت تريد إلغاء دمج الخلايا المدمجة وإعادة القيم، يمكنك تطبيق ميزة إلغاء دمج الخلايا & تعبئة القيم الميزة.
apply the Unmerge Cells & Fill Values feature
unmerge the merged cells and fill values back

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

لمزيد من التفاصيل حول هذه الميزة، يرجى زيارة إلغاء دمج الخلية.

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

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


3 دمج الخلايا

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

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

مثال: دمج النطاق A1:C3
Combine multiple rows and columns into a single cell

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

في إكسل، يُستخدم رمز العطف & عادةً لربط النصوص.

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

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

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

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

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

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

بنية دالة CONCATENATE
CONCATENATE (text1,[text2],…)

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

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

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

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

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

3.13 استخدام دالة CONCAT أو دالة TEXTJOIN (إكسل2019 أو إكسل365)

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

بنية دالة CONCAT
CONCAT (text1,[text2],…)

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

استخدام دالة CONCAT مماثل لدالة CONCATENATE، لدمج الاسم الأول واسم العائلة الموجودين في عمودين منفصلين في عمود واحد، تُستخدم الصيغة كالتالي:

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

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

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

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

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

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

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

info iconفي الصيغة، A1:C3 هو النطاق المستمر المراد دمجه. ", " هو الفاصل (فاصلة + مسافة) الذي يفصل بين النصوص في خلية النتيجة. إذا أردت استخدام فواصل أخرى، فقط اكتب الفاصل بين علامتي اقتباس "". النص المنطقي “TRUE” يعني تجاهل الخلايا الفارغة أثناء الدمج، إذا أردت الدمج مع الفراغات، استبدل TRUE بـ FALSE.

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

tip buttonإذا أردت استخدام فاصل سطر كفاصل، استخدم CHAR(10) في الصيغة، مثل =TEXTJOIN(CHAR(10),TRUE,A1:C3)، ثم قم بتنسيق خلية النتيجة كالتفاف نص.
format the result cell as Wrap Text

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

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

1. حدد نطاق الخلايا الذي تريد دمجه في خلية واحدة، ثم انقر على Kutools > دمج & تقسيم > دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم.
click Combine Rows, Columns or Cells without Losing Data feature of kutools

2. في مربع الحوار المنبثق، حدد دمج في خلية واحدة وحدد الفاصل حسب حاجتك، ثم انقر على موافق.
specify the options in the dialog box

الآن تم دمج الخلايا في خلية واحدة بفاصل محدد. إذا كان محتوى الخلية كبيرًا ولا يظهر بالكامل في الخلية المدمجة، يمكنك النقر على التفاف النص تحت الصفحة الرئيسية علامة التبويب لعرضها.
the cells are merged into one cell with a specific delimiter

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

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

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

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

تحويل الخلايا إلى عمود واحد
  Transpose cells into one single column
تحويل الخلايا إلى صف واحد
 Transpose cells into one single row
 

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

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

1. حدد نطاق الخلايا، وانقر بزر الماوس الأيمن لتفعيل قائمة السياق، ثم انقر على تحديد اسم.
 right-click the data range, and click Define Name

2. في مربع اسم جديد الحوار، اكتب اسمًا في اسم مربع النص، وانقر على موافق.
type a name in the Name textbox

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

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

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

4. اضغط Enter مفتاح ثم اسحب مقبض التعبئة التلقائية للأسفل لتعبئة هذه الصيغة حتى تظهر قيمة خطأ #REF!.
enter a formula and drga the formula down

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

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

لدمج الخلايا في عمود واحد، هنا يوجد كود VBA يمكنه أيضًا العمل.

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

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

copy and paste the vba code into the module

3. ثم اضغط F5 مفتاح أو انقر على تشغيل run buttonزر، تظهر نافذة لتحديد نطاق الخلايا، انقر على موافق.
select a range of cells

4. تظهر نافذة أخرى لتحديد خلية لوضع النتيجة، انقر على موافق.
select a cell to place the result

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

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

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

1. حدد نطاق الخلايا، وانقر على Kutools > النطاق > تحويل النطاق.
click Transform Range feature of kutools

2. في تحويل النطاق مربع الحوار، حدد نطاق إلى عمود واحد أو نطاق إلى صف واحد الخيار حسب حاجتك. انقر على موافق.
select the option you need

3. تظهر نافذة لتحديد خلية لوضع النتيجة، انقر على موافق.
select a cell to place the result

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

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

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

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

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

إذا كان هناك بعض التكرارات في جدول به عدة أعمدة، كيف يمكنك تكديس الأعمدة في عمود واحد بدون التكرارات كما هو موضح في الصورة أدناه؟
Stack columns into one column without duplicate

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

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

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

1. حدد العمود الأول واضغط Ctrl + C لنسخه، ثم حدد خلية الهدف واضغط Ctrl + V المفاتيح.
copy and paste the first column data

2. ثم كرر الخطوة1 لنسخ الأعمدة الأخرى ولصقها أسفل العمود الأول.
repeat to copy other columns data below the first column

3. ثم حدد العمود المكدس، وانقر على البيانات > إزالة التكرارات, ثم في إزالة التكرار مربع الحوار، حدد اسم العمود، وانقر على موافق.
click Data > Remove Duplicates
check the column name in the dialog box

4. الآن تظهر نافذة لتذكيرك بأنه تمت إزالة القيم المكررة. انقر على موافق لإغلاقها، ويحتفظ العمود المكدس بالقيم الفريدة فقط.
all duplicates are removed

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

حدد نطاق الأعمدة، وانقر على Kutools > النطاق > تحويل النطاق.
click Transform Range feature of kutools

ثم حدد نطاق إلى عمود واحد الخيار، وانقر على موافق لتحديد خلية لوضع العمود المكدس.
check the Range to single column option

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

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

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

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

3.32 استخدام VBA

بالإضافة إلى ذلك، هنا يوجد كود VBA يمكنه حل هذه المهمة.

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

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

copy and paste the code into the module

3. ثم اضغط F5 مفتاح أو انقر على تشغيل run buttonزر، ثم تظهر نافذة لتحديد الأعمدة التي تحتاج إلى تكديسها، انقر على موافق.
select the columns that needed To be stacked

4. ثم في النافذة الثانية المنبثقة، حدد خلية الهدف لوضع العمود المكدس، وانقر على موافق.
select a destinate cell to place the stacked column

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

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

إذا كان هناك عمودان، أحدهما منسق بتنسيق خاص مثل تاريخ مخصص mm/dd/yyyy، عند دمج هذين العمودين بطرق الدمج العادية، سيتم فقدان التنسيق المخصص كما هو موضح في الصورة أدناه:
Combine cells but losing formatting

الآن في هذا الجزء، سيتم تقديم بعض الطرق لدمج الخلايا مع الحفاظ على التنسيق.
Combine cells and keep formatting

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

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

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

بنية دالة TEXT
TEXT (value, format_text)

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

هنا نأخذ تضمين دالة TEXT في دالة CONCAT كمثال.

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

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

info iconفي الصيغة، A2 هي الخلية التي تريد الحفاظ على تنسيقها، و“mm/dd/yyyy hh:mm” هو التنسيق الذي تستخدمه، وB2 هي الخلية الأخرى التي سيتم دمجها. " " تعني فصل القيم بمسافة. يمكنك تغيير المراجع والتنسيق والفاصل حسب الحاجة.

اضغط على مفتاح Enter واسحب مقبض التعبئة التلقائية للأسفل لتعبئة الخلايا بهذه الصيغة.

3.42 استخدام Microsoft Word

1. حدد الجدول الذي تريد دمج خلاياه في خلية واحدة، واضغط Ctrl + C لنسخه.
copy the data range

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

3. انقر على تخطيط علامة التبويب، ثم انقر على تحويل إلى نص في مجموعة البيانات ، في مربع تحويل الجدول إلى نص الحوار، حدد الفاصل للأعمدة. انقر على موافق.
click Convert to Text in the Data group
specify the separator for the columns

الآن تم تحويل محتوى الجدول في Word إلى نصوص.
the contents of table in Word have been converted to texts

4. حدد النصوص المحولة واضغط Ctrl + C لنسخها، وارجع إلى إكسل وحدد خلية فارغة، واضغط Ctrl + V للصق النتيجة المدمجة.
copy and paste back to Excel file

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

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

1. حدد الجدول بما في ذلك الخلايا التي ستوضع فيها النتيجة، وانقر على Kutools > دمج & تقسيم > دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم.
click Combine Rows, Columns or Cells without Losing Data feature of kutools

2. في مربع الحوار المنبثق، حدد عملية الدمج حسب حاجتك، وأزل تحديد استخدام القيم المنسقة مربع الاختيار (افتراضيًا، هذا الخيار محدد). انقر على موافق.
specify the combine operation in the dialog box

الآن تم دمج البيانات مع الحفاظ على التنسيق.
the data has been combined and keep the formatting

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

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

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

3.5 دمج الخلايا لإنشاء تاريخ

لنفترض أن هناك جدولاً يحتوي على سنوات وأشهر وأيام في أعمدة منفصلة، والمهمة هي دمج الأعمدة لتوليد تاريخ كما هو موضح في الصورة أدناه:
Combine cells to make date

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

تُستخدم دالة DATE لإنشاء تاريخ بالسنة والشهر واليوم.

بنية دالة DATE
DATE( year, month, day )

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

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

=DATE(A2,B2,C2)

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

اضغط Enter مفتاح للحصول على أول تاريخ، ثم اسحب مقبض التعبئة التلقائية للأسفل للحصول على جميع التواريخ.
use date function to get the result


دروس إكسل أخرى:

دمج عدة مصنفات/أوراق عمل في واحد
يسرد هذا الدليل تقريبًا جميع سيناريوهات الدمج التي قد تواجهها ويوفر لك حلولاً احترافية ذات صلة.

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

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

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


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