كيفية دمج الصفوف التي تحمل نفس المعرف/الاسم في 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، يرجى تحديد الصفوف التي تريد دمجها، ثم انقر فوق زر "موافق". انظر إلى لقطة الشاشة:
الآن سترى أن الصفوف في النطاق المحدد قد تم دمجها باستخدام الفواصل بناءً على نفس المعرف. انظر إلى لقطة الشاشة:
دمج الصفوف التي تحمل نفس المعرف/الاسم باستخدام Kutools لـ Excel
لا تقلق إذا لم تكن على دراية ببرمجة VBA — يقدم Kutools لـ Excel ميزة "دمج متقدم للصفوف" التي تُبسّط العملية. بدون الحاجة إلى عمليات معقدة، بضع نقرات فقط تكفي لدمج الصفوف التي تحمل نفس المعرف أو الاسم بسرعة. كما يدعم هذا الأداة القوية دمج الأعمدة، الجمع، العد، المتوسط، والمزيد، مما يجعلها الحل المثالي لجميع احتياجات معالجة البيانات المتنوعة لديك.
1. حدد نطاق البيانات الذي تريد دمجه، ثم انقر فوق "Kutools" > "دمج وتقسيم" > "دمج متقدم للصفوف". انظر إلى لقطة الشاشة:
2. في مربع الحوار "دمج متقدم للصفوف"، يرجى تحديد العمليات التالية:
- حدد عمود المعرف أو الاسم الذي سيتم دمج البيانات الأخرى بناءً عليه، ثم حدد "المفتاح الأساسي" من قائمة "العملية" المنسدلة؛
- بعد ذلك، حدد اسم العمود الآخر، وانقر فوق القائمة المنسدلة من حقل "العملية"، واختر فاصلًا واحدًا من قسم "الدمج". كرر هذه الخطوة لكل الأعمدة الأخرى التي تريد دمجها؛
- انقر فوق زر "موافق".نصيحة: إذا كنت بحاجة إلى الحفاظ على تنسيق الخلية عند الدمج، يرجى تحديد خيار "استخدام القيم المنسقة".
الآن سترى أن الصفوف المحددة قد تم دمجها بناءً على رقم الأمر. انظر إلى لقطة الشاشة:
Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن
باتباع هذه الطرق، يمكنك بسهولة دمج الصفوف التي تحمل نفس المعرف أو الاسم في Excel، مما يوفر الوقت ويضمن الدقة. اختر الطريقة التي تناسب بياناتك وأهدافك بشكل أفضل! إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel، فإن موقعنا الإلكتروني يقدم آلاف الدروس التعليمية لمساعدتك على إتقان Excel.
مقالات ذات صلة:
كيفية ربط النصوص مع الحفاظ على تنسيق الأرقام/التاريخ في Excel؟
كيفية ربط الخلايا من ورقة أخرى/أوراق مختلفة في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!