كيفية دمج عدة صفوف في واحدة بناءً على التكرارات في 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. هذه الأداة غير متاحة لتصفية البيانات.

انقر لمعرفة المزيد حول وظيفة دمج متقدم للصفوف.

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

دمج الصفوف المكررة وجمع القيم