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