كيف يمكن دمج صفوف متعددة في صف واحد استنادًا إلى القيم المكررة في Excel؟
ربما تمتلك بيانات مشابهة لتلك الموضحة في لقطة الشاشة التالية: في عمود «اسم المنتج» (العمود A)، توجد عناصر مكررة، وتحتاج الآن إلى إزالة هذه الإدخالات المكررة من العمود A مع دمج القيم المرتبطة بها في العمود B. راجع لقطات الشاشة:
 |  |  |
هل لديك طرق فعّالة لإنجاز هذه المهمة؟
دمج صفوف متعددة صف مكرر في صف واحد باستخدام كود VBA
دمج صفوف متعددة صف مكرر في صف واحد Kutools لـ Excel
دمج صفوف متعددة صف مكرر وجمع/حساب متوسط القيم باستخدام Kutools لـ Excel
دمج صفوف متعددة صف مكرر في صف واحد باستخدام كود VBA
يمكنك الاعتماد على كود VBA التالي لدمج الصفوف المكررة بناءً على قيمة العمود A. يُطبَّق هذا الكود على عمودين فقط، لذا إذا كانت بياناتك تقتصر على عمودين، فسيؤدي الغرض تمامًا.
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيفتح ذلك نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقإدراج > وحدة نمطية، ثم الصق الكود التالي فينافذة الوحدة النمطية.
كود VBA: دمج صفوف متعددة في صف واحد
Sub CombineRows()
'Update 20131202
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)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
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، وستظهر نافذة منبثقة لتذكيرك بتحديد النطاق الذي تريد دمجه. راجع لقطة الشاشة:
4. ثم انقر فوقموافق، وستُدمج القيم في العمود B في سجل واحد وتُفصَل بمسافات.
ملاحظات:
1. قد يؤدي هذا الكود إلى فقدان البيانات الأصلية، لذا ننصحك بشدة بعمل نسخة احتياطية قبل استخدامه.
2. يُطبَّق هذا الكود على عمودين فقط. إذا كانت لديك أعمدة أكثر من ذلك، فسيقوم بدمج العمودين الأولين وحذف بيانات باقي الأعمدة، لذا يُنصح بالحذر عند استخدامه.
دمج صفوف متعددة صف مكرر في صف واحد Kutools لـ Excel
بما أن الكود السابق ينطوي على بعض القيود والمخاطر، فهل تبحث عن طريقة سهلة وآمنة لإنهاء هذه المهمة؟ باستخدام أداةKutools لـ Excel’s دمج متقدم للصفوف، يمكنك بسرعة إزالة الصفوف المكررة في الأعمدة التي تعتمد عليها، ودمج السجلات الأخرى أو تنفيذ عمليات حسابية عليها ووضع النتائج في الخلايا المناسبة.
Kutools لـ Excelيحتوي على أكثر من 300 أداة مفيدة لبرنامج Excel. جرّبه مجانًا بدون أي قيود لمدة 30 يومًا! احصل عليه الآن.
بعد تثبيت Kutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد نطاق البيانات الذي تريد دمج القيم المكررة فيه.
2. ثم انقر فوقKutools > دمج وتقسيم > دمج متقدم للصفوف.
3. في مربع الحواردمج متقدم للصفوف، حدد اسم العمود الذي تريد دمج القيم استنادًا إليه باعتبارهالعمود الرئيسي، ثم انقر فوقه.
4. بعد ذلك، انقر على العمود الذي تريد دمج قيمه في سجل واحد، ثم انقر فوقنوع التجميعواختردمج فقط باستخدام فاصل، وحدد الفاصل الذي تريده لفصل القيم المدمجة من القائمة اليمنى. راجع لقطة الشاشة:
5. بعد الانتهاء من الإعدادات، انقر فوقموافق، وستُدمج بياناتك استنادًا إلى العمود الرئيسي وتُفصَل باستخدام الفواصل.
ملاحظة:إذا لم تكن بحاجة إلى ضبط العمليات للأعمدة المتبقية، فاحتفظ بالإعداد الافتراضي.
دمج صفوف متعددة صف مكرر وجمع/حساب متوسط القيم باستخدام Kutools لـ Excel
باستخدام أداةالدمج المتقدم للصفوفمتعددة الوظائف هذه، يمكنك دمج الصفوف المكررة وإجراء عمليات حسابية على القيم في الوقت نفسه.
1. حدد نطاق البيانات الذي تريد دمج القيم المكررة فيه.
2. انتقل إلى مربع الحواردمج متقدم للصفوف؛
- (1.) حدد اسم عمود كـ العمود الرئيسي تريد حساب قيم الأعمدة الأخرى بناءً عليه، ثم انقر فوقالعمود الرئيسي؛
- (2.) حدد العمود الذي تريد إجراء عمليات حسابية على قيمه، ثم انقر فوقنوع التجميع > دمج وحساب، واختر نوع الحساب الذي تحتاجه. في هذه الحالة، اخترتُالمجموع. راجع لقطة الشاشة:
3. إذا لم تكن بحاجة إلى ضبط العمليات للأعمدة المتبقية، فاحتفظ بالإعداد الافتراضي، ثم انقر فوقموافق، وستُدمج القيم المكررة في العمود A ويتم جمع القيم المقابلة لها في العمود B. راجع لقطات الشاشة:
 | |  |
ملاحظات:
1. إذا حددت خيارتشمل العناوين، فسيتم تجاهل عناوينك (الصف الأول) عند استخدام هذه الأداة.
2. استخدام القيم المنسَّقة: سيحتفظ بتنسيق القيم بعد دمج الخلايا المكرَّرة.
3. هذه الأداة غير متاحة عند تطبيق التصفية على البيانات.
انقر لمعرفة المزيد عن هذه الوظيفة المتقدمة لدمج الصفوف.
مقال ذو صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل