Skip to main content

كيفية دمج الصفوف التي تحمل نفس المعرف/الاسم في Excel؟

Author: Kelly Last Modified: 2025-05-30
A screenshot showing a table with data to combine rows by the same ID in Excel

دمج الصفوف التي تحمل نفس المعرف أو الاسم في Excel هو مهمة شائعة لتنظيم البيانات وجمعها. سواء كنت تقوم بدمج سجلات المبيعات، تلخيص نتائج الاستبيانات، أو تنظيم مجموعات البيانات، يمكن تسهيل العملية باستخدام أدوات Excel المدمجة. إليك دليلًا تفصيليًا يساعدك على دمج الصفوف التي تحمل نفس المعرف أو الاسم بكفاءة.


دمج الصفوف التي تحمل نفس المعرف/الاسم باستخدام VBA

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

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

2. انقر فوق "إدراج" > "وحدة"، ثم الصق كود VBA في نافذة الوحدة.

VBA: دمج الصفوف التي تحمل نفس المعرف/الاسم في Excel

Sub Consolidate_Rows()
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).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
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 أو انقر فوق زر التشغيل لتشغيل هذا الكود VBA.

4. في مربع الحوار المنبثق Kutools لـ Excel، يرجى تحديد الصفوف التي تريد دمجها، ثم انقر فوق زر "موافق". انظر إلى لقطة الشاشة:
A screenshot showing the Kutools for Excel dialog box with row selection to combine rows by ID

الآن سترى أن الصفوف في النطاق المحدد قد تم دمجها باستخدام الفواصل بناءً على نفس المعرف. انظر إلى لقطة الشاشة:
A screenshot showing rows combined in Excel by the same ID with commas separating the values

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

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

لا تقلق إذا لم تكن على دراية ببرمجة VBA — يقدم Kutools لـ Excel ميزة "دمج متقدم للصفوف" التي تُبسّط العملية. بدون الحاجة إلى عمليات معقدة، بضع نقرات فقط تكفي لدمج الصفوف التي تحمل نفس المعرف أو الاسم بسرعة. كما يدعم هذا الأداة القوية دمج الأعمدة، الجمع، العد، المتوسط، والمزيد، مما يجعلها الحل المثالي لجميع احتياجات معالجة البيانات المتنوعة لديك.

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

1. حدد نطاق البيانات الذي تريد دمجه، ثم انقر فوق "Kutools" > "دمج وتقسيم" > "دمج متقدم للصفوف". انظر إلى لقطة الشاشة:
A screenshot showing the Kutools for Excel ribbon with the Advanced Combine Rows option selected

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

  • حدد عمود المعرف أو الاسم الذي سيتم دمج البيانات الأخرى بناءً عليه، ثم حدد "المفتاح الأساسي" من قائمة "العملية" المنسدلة؛
  • بعد ذلك، حدد اسم العمود الآخر، وانقر فوق القائمة المنسدلة من حقل "العملية"، واختر فاصلًا واحدًا من قسم "الدمج". كرر هذه الخطوة لكل الأعمدة الأخرى التي تريد دمجها؛
  • انقر فوق زر "موافق".
    نصيحة: إذا كنت بحاجة إلى الحفاظ على تنسيق الخلية عند الدمج، يرجى تحديد خيار "استخدام القيم المنسقة".

A screenshot showing the Advanced Combine Rows dialog box

الآن سترى أن الصفوف المحددة قد تم دمجها بناءً على رقم الأمر. انظر إلى لقطة الشاشة:
A screenshot showing rows combined in Excel with the results displayed after using Kutools

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

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


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

كيفية ربط النصوص مع الحفاظ على تنسيق الأرقام/التاريخ في Excel؟

كيفية ربط الخلايا من ورقة أخرى/أوراق مختلفة في Excel؟

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

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

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


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

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