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

كيفية دمج الصفوف بسرعة بناءً على قيمة عمود واحد ثم إجراء بعض العمليات الحسابية في 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 ، وينبثق مربع حوار لتحديد نطاق بيانات للعمل. انظر لقطة الشاشة:

أعمدة دمج doc على أساس عمود واحد 3

3. بعد تحديد نطاق العمل ، انقر فوق OK. الآن تم دمج البيانات في العمود الأول وجمع القيم في العمود الثاني.

أعمدة دمج doc على أساس عمود واحد 4

ملاحظات: يمكن أن يعمل رمز VBA هذا بشكل صحيح عند الدمج استنادًا إلى العمود الأول وقيم الجمع في العمود الثاني.


السهم الأزرق الحق فقاعة دمج الصفوف بناءً على عمود واحد ثم جمع القيم باستخدام Advanced Combine Rows

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

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

1. حدد البيانات التي تريد استخدامها وانقر فوق كوتولس > دمج وتقسيم > الجمع بين الصفوف المتقدمة. انظر لقطة الشاشة:

doc المتقدم دمج الصف 1

2. ثم في مربع الحوار المنبثق ، حدد العمود الذي ستقوم بدمج الأعمدة الأخرى بناءً عليه ثم انقر فوق المرحلة الابتدائية مفتاح ، وانقر فوق عمود آخر وانقر فوق احسب الشحن ثم حدد مجموع.

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

أعمدة دمج doc على أساس عمود واحد 6

3. ثم اضغط Ok. الآن تم دمج البيانات على أساس العمود الأساسي ، وآخر هو تلخيص. انظر لقطة الشاشة:

أعمدة دمج doc على أساس عمود واحد 7


السهم الأزرق الحق فقاعة دمج الصفوف بناءً على عمود واحد ثم إجراء عمليات مختلفة على الأعمدة الأخرى باستخدام Advanced Combine Rows.

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

لنفترض أن لدي نطاقًا من البيانات كما هو موضح أدناه ، وأريد أن أجمع القيم في العمود B وقيم الجمع في العمود C بناءً على العمود A.
أعمدة دمج doc على أساس عمود واحد 8

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

1. حدد نطاق البيانات وانقر كوتولس > دمج وتقسيم > الجمع بين الصفوف المتقدمة. انظر لقطة الشاشة:

doc المتقدم دمج الصف 1

2. في ال ضم الصفوف على أساس العمود الحوار ، افعل مثل هذه:

(شنومكس) انقر فوق العمود الذي تريد الدمج بناءً عليه ، ثم انقر فوق المفتاح الأساسي;

أعمدة دمج doc على أساس عمود واحد 10

(شنومكس) انقر فوق العمود الذي تريد دمج البيانات ، وانقر فوق دمج، ثم حدد فاصلًا واحدًا تريده من القائمة ؛

أعمدة دمج doc على أساس عمود واحد 11

(شنومكس) انقر فوق العمود الذي تريد جمع القيم والنقر احسب الشحنوحدد مجموع.

أعمدة دمج doc على أساس عمود واحد 12

3. انقر Ok. الآن يمكنك رؤية النتيجة على النحو التالي:

أعمدة دمج doc على أساس عمود واحد 13

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

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

🤖 مساعد 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have the same/similar question. I am trying to sum all of the columns to the right of the reference cell but it only sums the one. How do I get it to sum all those to the right individually?
This comment was minimized by the moderator on the site
Hey, your module used to work for big tables as well (eg. you want to sum up according to Year but you have Sales 1, Sales 2, Sales 3....etc). But now it only gets the first column right (Sales 1) and all others are not summed correctly. Did you change anything?
Thanks!
This comment was minimized by the moderator on the site
Hi, IK, maybe you can use the sumproduct function SUMPRODUCT((A2:A10=”Pen”)*(B2:E10)) to calculate them one by one. A2:A10 is the range contain the lookup value, pen is the criterion, B2:E10 is range that you want to sum based on criterion.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations