كيف يمكن دمج الصفوف التي تحمل نفس المعرّف أو الاسم في إكسل؟

يُعد دمج الصفوف التي تحمل نفس المعرّف أو الاسم في إكسل مهمة شائعة لتنظيم البيانات وتلخيصها. سواء كنت تقوم بتوحيد سجلات المبيعات، أو تلخيص نتائج استبيان، أو تنظيم مجموعات البيانات، فيمكن تسهيل هذه العملية باستخدام أدوات إكسل المدمجة. فيما يلي دليلٌ تفصيلي لمساعدتك على دمج الصفوف ذات المعرّف أو الاسم نفسه بكفاءة.
دمج الصفوف ذات المعرّف/الاسم نفسه باستخدام VBA
ستقدّم هذه الطريقة كود VBA لدمج جميع الصفوف التي تشترك في نفس المعرّف أو الاسم ضمن النطاق المحدّد بسرعة. يُرجى اتباع الخطوات التالية:
1. اضغط على مفاتيح «Alt + F11» لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر على «إدراج» > «وحدة برمجية»، ثم الصق كود VBA في نافذة الوحدة البرمجية.
VBA: دمج الصفوف ذات المعرّف/الاسم نفسه في إكسل
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، حدد الصفوف التي ترغب في دمجها، ثم انقر على زر «موافق». راجع لقطة الشاشة:
ستلاحظ الآن أن الصفوف ضمن النطاق المحدد قد تم دمجها باستخدام الفواصل وفقًا لنفس المعرّف. راجع لقطة الشاشة:
دمج الصفوف ذات المعرّف/الاسم نفسه باستخدام Kutools لـ Excel
لا داعي للقلق إن لم تكن معتادًا على برمجة VBA—فـKutools لـ Excel يوفّر ميزة «الدمج المتقدم للصفوف» التي تبسّط العملية بشكل كبير. دون الحاجة إلى خطوات معقّدة، يكفيك بضع نقرات فقط لدمج الصفوف التي تشترك في نفس المعرّف أو الاسم بسرعة فائقة. كما تدعم هذه الأداة القوية دمج الأعمدة، والجمع، والعد، وحساب المتوسط، وغيرها الكثير، مما يجعلها الحل الأمثل لتلبية جميع احتياجاتك المتنوعة في معالجة البيانات.
1. حدد نطاق البيانات الذي ترغب في دمجه، ثم انقر على «Kutools» > «دمج وتقسيم» > «دمج متقدم للصفوف». راجع لقطة الشاشة:
في مربع حوار «دمج متقدم للصفوف»، يُرجى تحديد العمليات التالية:
- حدد عمود المعرّف أو الاسم الذي ستعتمد عليه لدمج البيانات الأخرى، ثم اختر «المفتاح الأساسي» من القائمة المنسدلة «العملية»؛
- بعد ذلك، حدد اسم العمود التالي، وانقر على القائمة المنسدلة في حقل «العملية»، ثم اختر فاصلًا واحدًا من قسم «الدمج». كرّر هذه الخطوة لجميع الأعمدة التي ترغب في دمجها.
- انقر على زر «موافق».تلميح: إذا كنت بحاجة إلى الحفاظ على تنسيق الخلايا عند الدمج، فالرجاء تحديد خيار «استخدام القيم المنسقة».

ستلاحظ الآن أن الصفوف المحددة قد دُمجت بناءً على رقم الطلب. راجع لقطة الشاشة:
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
باتباع هذه الطرق، يمكنك بسهولة دمج الصفوف التي تشترك في نفس المعرّف أو الاسم في إكسل، مما يوفّر وقتك ويضمن دقة بياناتك. اختر الطريقة الأنسب لبياناتك وأهدافك! إذا كنت مهتمًّا باكتشاف المزيد من نصائح وحيل إكسل،يقدّم موقعنا آلاف الدروس التعليمية لمساعدتك على إتقان إكسل.
مقالات ذات صلة:
كيف يمكن ربط الخلايا في إكسل مع الحفاظ على تنسيق الأرقام أو التاريخ؟
كيف تربط الخلايا من ورقة عمل أخرى أو من أوراق عمل مختلفة في إكسل؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل