انتقل إلى المحتوى الرئيسي
 

كيفية دمج عدة صفوف في صف واحد بناءً على التكرارات في Excel؟

المؤلف: شياويانغ آخر تعديل: 2024-08-07

ربما ، لديك بيانات لقطة الشاشة التالية ، في عمود اسم المنتج أ ، هناك بعض العناصر المكررة ، والآن تحتاج إلى إزالة الإدخالات المكررة في العمود أ ولكن قم بدمج القيم المقابلة في العمود ب ، انظر لقطات الشاشة:

لقطة شاشة توضح البيانات الأصلية لقطة شاشة للسهم لقطة شاشة توضح الصفوف المدمجة

هل لديك بعض الطرق الفعالة لحل هذه المهمة؟

ادمج عدة صفوف مكررة في واحد مع كود فبا

اجمع بين عدة صفوف مكررة في Kutools for Excel

اجمع بين صفوف مكررة متعددة وجمع / متوسط ​​القيم باستخدام Kutools for Excel


ادمج عدة صفوف مكررة في واحد مع كود فبا

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في دمج الصفوف المكررة استنادًا إلى قيمة العمود A ، ويتم تطبيق التعليمات البرمجية التالية على عمودين فقط. لذلك ، إذا كان لديك عمودان من البيانات ، فإن هذا الرمز سوف يقدم خدمة لك.

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: ادمج عدة صفوف في واحد

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. ثم انقر فوق OK، تم دمج القيم الموجودة في العمود B في سجل واحد وفصلها بمسافات.

لقطة شاشة توضح النتيجة

الملاحظات:

1. يمكن لهذا الرمز تدمير البيانات الأصلية ، عند استخدامه ، من الأفضل عمل نسخة احتياطية من البيانات أولاً.

2. يتم تطبيق هذا الرمز على عمودين فقط ، إذا كان لديك أكثر من عمودين ، فسيجمع هذا الرمز أول عمودين فقط ويزيل بيانات الأعمدة الأخرى. عند استخدام هذا الرمز ، يجب أن تكون حذرًا.


اجمع بين عدة صفوف مكررة في Kutools for Excel

بما أن الكود أعلاه به بعض القيود والمخاطر ، فهل هناك طريقة سهلة وآمنة لإنهاء هذه المهمة؟ مع كوتولس ل إكسيلالصورة الجمع بين الصفوف المتقدمة الأداة المساعدة ، يمكنك إزالة عدة صفوف مكررة بسرعة في الأعمدة التي تستند إليها ودمجها أو إجراء بعض العمليات الحسابية لسجلات أخرى في الخلايا المناسبة.

كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن.

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:

1. حدد بيانات النطاق التي تريد دمج التكرارات.

لقطة شاشة لاختيار البيانات المصدر

2. ثم اضغط كوتولس > دمج وتقسيم > الجمع بين الصفوف المتقدمة.

3. في الجمع بين الصفوف المتقدمة في مربع الحوار ، حدد اسم العمود كأعمدة المفاتيح التي تريد دمج القيم بناءً عليها ، ثم انقر فوق الأعمدة الرئيسية.

لقطة شاشة لتحديد عمود رئيسي في مربع الحوار Combine Rows Based on Column

4. ثم تابع النقر فوق العمود الذي تحتاجه لدمج قيمها في سجل واحد ، ثم انقر فوق الجمع بين العمليات واختر تتحد فقط مع الفاصل، واختر فاصلًا واحدًا تحتاجه لفصل القيم المجمعة عن القائمة اليمنى. انظر لقطة الشاشة:

لقطة شاشة لتحديد فاصل دمج في مربع الحوار Combine Rows Based on Column

5. بعد الانتهاء من الإعدادات ، انقر فوق OK، وسيتم دمج بياناتك بناءً على الأعمدة الرئيسية ومفصولة بفواصل.

لقطة شاشة للنتيجة المجمعة

ملحوظة: إذا لم تكن بحاجة إلى ضبط العمليات للأعمدة الباقية ، فما عليك سوى الاحتفاظ بالحالة الافتراضية.


اجمع بين صفوف مكررة متعددة وجمع / متوسط ​​القيم باستخدام Kutools for Excel

مع هذا متعدد الوظائف الجمع بين الصفوف المتقدمة يمكنك دمج صفوف مكررة وإجراء بعض العمليات الحسابية للقيم أيضًا.

1. حدد بيانات النطاق التي تريد دمج التكرارات.

2. انتقل إلى الجمع بين الصفوف المتقدمة صندوق المحادثة؛

  • (1.) حدد اسم عمود كعمود أساسي تريد حساب قيم العمود الأخرى بناءً عليه ، ثم انقر فوق الأعمدة الرئيسية;
  • (2.) حدد العمود الذي تريد القيام ببعض العمليات الحسابية للقيم ، ثم انقر فوق الجمع بين العمليات > اجمع احسب، ثم اختر نوع الحساب الذي تريده ، في هذه الحالة ، أحدد مجموع. انظر لقطة الشاشة:

لقطة شاشة توضح كيفية تعيين مربع الحوار "دمج الصفوف بناءً على العمود".

3. إذا لم تكن بحاجة إلى ضبط العمليات للأعمدة الباقية ، فقط احتفظ بالحالة الافتراضية ، ثم انقر فوق OK، وسيتم دمج القيم المكررة في العمود A وإضافة القيم المقابلة لها في العمود B. انظر لقطات الشاشة:

لقطة شاشة لنطاق البيانات الأصلي سهم لقطة شاشة للنتيجة المجمعة

الملاحظات:

1. إذا قمت بالتدقيق بياناتي لها رؤوس الخيار ، سيتم تجاهل رؤوس النطاق (الصف الأول) عند تطبيق هذه الأداة المساعدة.

2. استخدم القيم المنسقة: سيحتفظ بتنسيق القيم بعد دمج الخلايا المكررة.

3. هذه الأداة غير متاحة لتصفية البيانات.

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


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

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


أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!