كيفية دمج الصفوف بسرعة بناءً على قيمة عمود واحد ثم إجراء بعض العمليات الحسابية في Excel؟
على سبيل المثال ، لديك نطاق من البيانات وعمود واحد به نسخ مكررة ، والآن تريد دمج صفوف قواعد العمود A (به نسخ مكررة) ثم إجراء بعض العمليات الحسابية في عمود آخر بناءً على الصفوف المدمجة كما هو موضح في لقطة الشاشة:
في Excel ، لا توجد طريقة سريعة لدمج الصفوف بناءً على قيمة عمود واحد ، ولكن هنا أقدم ملف
الحيل التي يمكن أن تساعدك على دمج الصفوف المكررة ثم الجمع أو إجراء عمليات حسابية أخرى في عمود آخر.
دمج الصفوف بناءً على عمود واحد ثم جمع القيم باستخدام VBA
هناك رمز VBA يمكن أن يساعدك على دمج الصفوف المكررة ثم جمع قيم عمود أخرى.
الاستعراض المبوب وتحرير العديد من مصنفات Excel / مستندات Word مثل Firefox و Chrome و Internet Explore 10! |
قد تكون مألوفًا لعرض صفحات ويب متعددة في Firefox / Chrome / IE ، والتبديل بينها عن طريق النقر فوق علامات التبويب المقابلة بسهولة. هنا ، يدعم Office Tab المعالجة المماثلة ، والتي تتيح لك تصفح مصنفات Excel المتعددة أو مستندات Word في نافذة Excel واحدة أو نافذة Word ، والتبديل بينها بسهولة عن طريق النقر فوق علامات التبويب الخاصة بها. انقر مجانا 30إصدار تجريبي لمدة يوم من Office Tab! |
1. صحافة F11 + البديل مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، ثم انقر فوق إدراج > وحدة وانسخ والصق رمز VBA أدناه إلى ملف وحدة نافذة.
فبا: دمج الصفوف بناءً على قيمة عمود واحد
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub
2. صحافة F5 أو انقر فوق يجري زر لتشغيل VBA ، وينبثق مربع حوار لتحديد نطاق بيانات للعمل. انظر لقطة الشاشة:
3. بعد تحديد نطاق العمل ، انقر فوق OK. الآن تم دمج البيانات في العمود الأول وجمع القيم في العمود الثاني.
ملاحظات: يمكن أن يعمل رمز VBA هذا بشكل صحيح عند الدمج استنادًا إلى العمود الأول وقيم الجمع في العمود الثاني.
دمج الصفوف بناءً على عمود واحد ثم جمع القيم باستخدام Advanced Combine Rows
إذا لم تكن معتادًا على تعليمات برمجية VBA ، فيمكنك استخدام ملحق الجمع بين الصفوف المتقدمة ميزة أداة الوظيفة الإضافية للجزء الثالث - كوتولس ل إكسيل لدمج الصفوف المكررة بسهولة وسرعة ثم جمع القيم في عمود آخر.
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. حدد البيانات التي تريد استخدامها وانقر فوق كوتولس > دمج وتقسيم > الجمع بين الصفوف المتقدمة. انظر لقطة الشاشة:
2. ثم في مربع الحوار المنبثق ، حدد العمود الذي ستقوم بدمج الأعمدة الأخرى بناءً عليه ثم انقر فوق المرحلة الابتدائية مفتاح ، وانقر فوق عمود آخر وانقر فوق احسب الشحن ثم حدد مجموع.
معلومه- سرية: إذا كان النطاق المحدد يحتوي على رؤوس ، فتحقق بياناتي لها رؤوس، و تأكد استخدم القيم المنسقة سيحتفظ بالتنسيق بعد الدمج.
3. ثم اضغط Ok. الآن تم دمج البيانات على أساس العمود الأساسي ، وآخر هو تلخيص. انظر لقطة الشاشة:
دمج الصفوف بناءً على عمود واحد ثم إجراء عمليات مختلفة على الأعمدة الأخرى باستخدام Advanced Combine Rows.
الجمع بين الصفوف المتقدمة قوي ، لأنه لا يمكنه فقط دمج الصفوف المكررة في عمود واحد ثم جمع عمود آخر ، ولكن يمكنه أيضًا دمج الصفوف المكررة في عمود واحد ثم إجراء عمليات مختلفة على أعمدة أخرى.
لنفترض أن لدي نطاقًا من البيانات كما هو موضح أدناه ، وأريد أن أجمع القيم في العمود B وقيم الجمع في العمود C بناءً على العمود A.
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. حدد نطاق البيانات وانقر كوتولس > دمج وتقسيم > الجمع بين الصفوف المتقدمة. انظر لقطة الشاشة:
2. في ال ضم الصفوف على أساس العمود الحوار ، افعل مثل هذه:
(شنومكس) انقر فوق العمود الذي تريد الدمج بناءً عليه ، ثم انقر فوق المفتاح الأساسي;
(شنومكس) انقر فوق العمود الذي تريد دمج البيانات ، وانقر فوق دمج، ثم حدد فاصلًا واحدًا تريده من القائمة ؛
(شنومكس) انقر فوق العمود الذي تريد جمع القيم والنقر احسب الشحنوحدد مجموع.
3. انقر Ok. الآن يمكنك رؤية النتيجة على النحو التالي:
بدافع الجمع بين الصفوف المتقدمة ميزة ، يمكنك أيضًا دمج الصفوف استنادًا إلى عمود واحد ثم العد أو المتوسط أو الاحتفاظ بالبيانات الأولى أو الأخيرة في أعمدة أخرى.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!