كيفية دمج عدة صفوف في صف واحد بناءً على التكرارات في Excel؟
ربما ، لديك بيانات لقطة الشاشة التالية ، في عمود اسم المنتج أ ، هناك بعض العناصر المكررة ، والآن تحتاج إلى إزالة الإدخالات المكررة في العمود أ ولكن قم بدمج القيم المقابلة في العمود ب ، انظر لقطات الشاشة:
هل لديك بعض الطرق الفعالة لحل هذه المهمة؟
ادمج عدة صفوف مكررة في واحد مع كود فبا
اجمع بين عدة صفوف مكررة في 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. في الجمع بين الصفوف المتقدمة في مربع الحوار ، حدد اسم العمود كأعمدة المفاتيح التي تريد دمج القيم بناءً عليها ، ثم انقر فوق الأعمدة الرئيسية.
4. ثم تابع النقر فوق العمود الذي تحتاجه لدمج قيمها في سجل واحد ، ثم انقر فوق الجمع بين العمليات واختر تتحد فقط مع الفاصل، واختر فاصلًا واحدًا تحتاجه لفصل القيم المجمعة عن القائمة اليمنى. انظر لقطة الشاشة:
5. بعد الانتهاء من الإعدادات ، انقر فوق OK، وسيتم دمج بياناتك بناءً على الأعمدة الرئيسية ومفصولة بفواصل.
ملحوظة: إذا لم تكن بحاجة إلى ضبط العمليات للأعمدة الباقية ، فما عليك سوى الاحتفاظ بالحالة الافتراضية.
اجمع بين صفوف مكررة متعددة وجمع / متوسط القيم باستخدام Kutools for Excel
مع هذا متعدد الوظائف الجمع بين الصفوف المتقدمة يمكنك دمج صفوف مكررة وإجراء بعض العمليات الحسابية للقيم أيضًا.
1. حدد بيانات النطاق التي تريد دمج التكرارات.
2. انتقل إلى الجمع بين الصفوف المتقدمة صندوق المحادثة؛
- (1.) حدد اسم عمود كعمود أساسي تريد حساب قيم العمود الأخرى بناءً عليه ، ثم انقر فوق الأعمدة الرئيسية;
- (2.) حدد العمود الذي تريد القيام ببعض العمليات الحسابية للقيم ، ثم انقر فوق الجمع بين العمليات > اجمع احسب، ثم اختر نوع الحساب الذي تريده ، في هذه الحالة ، أحدد مجموع. انظر لقطة الشاشة:
3. إذا لم تكن بحاجة إلى ضبط العمليات للأعمدة الباقية ، فقط احتفظ بالحالة الافتراضية ، ثم انقر فوق OK، وسيتم دمج القيم المكررة في العمود A وإضافة القيم المقابلة لها في العمود B. انظر لقطات الشاشة:
الملاحظات:
1. إذا قمت بالتدقيق بياناتي لها رؤوس الخيار ، سيتم تجاهل رؤوس النطاق (الصف الأول) عند تطبيق هذه الأداة المساعدة.
2. استخدم القيم المنسقة: سيحتفظ بتنسيق القيم بعد دمج الخلايا المكررة.
3. هذه الأداة غير متاحة لتصفية البيانات.
انقر لمعرفة المزيد حول وظيفة الصفوف المتقدمة هذه.
مقالة ذات صلة:
اجمع الصفوف المكررة وجمع القيم
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!