كيف يمكن دمج الصفوف بسرعة بناءً على قيمة عمود واحد، ثم تنفيذ بعض العمليات الحسابية في Excel؟
على سبيل المثال، لديك نطاق من البيانات ويحتوي أحد الأعمدة على قيم مكررة، والآن تريد دمج الصفوف استنادًا إلى العمود A (الذي يحتوي على القيم المكررة)، ثم إجراء بعض العمليات الحسابية على عمود آخر بناءً على الصفوف المدمجة كما هو موضح في لقطة الشاشة:
في Excel، لا توجد طريقة سريعة لدمج الصفوف بناءً على قيمة عمود واحد، لكنني أقدّم لك هنا بعض الحيل الذكية التي تساعدك على دمج الصفوف المكررة، ثم جمع القيم أو تنفيذ عمليات حسابية أخرى على عمود مختلف.
| البيانات الأصلية | دمج وجمع |
 |  |
دمج الصفوف استنادًا إلى عمود واحد ثم جمع القيم باستخدام VBA
يوجد كود VBA يساعدك على دمج الصفوف المكررة وجمع قيم عمود آخر.
1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications، ثم انقرإدراج > وحدة نمطية، وانسخ والصق كود VBA أدناه في الوحدة النمطية الجديدةModule.
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 Sub2. اضغطF5 أو انقرتشغيللتشغيل كود VBA، وستظهر نافذة منبثقة تتيح لك تحديد نطاق البيانات الذي تريد العمل عليه. انظر لقطة الشاشة:
3. بعد تحديد نطاق العمل، انقرموافق. الآن تم دمج البيانات حسب العمود الأول وجمع القيم في العمود الثاني.
ملاحظة: يعمل كود VBA هذا بشكل صحيح فقط عند الدمج استنادًا إلى العمود الأول وجمع القيم من العمود الثاني.
دمج الصفوف استنادًا إلى عمود واحد ثم جمع القيم باستخدام دمج متقدم للصفوف
إذا لم تكن معتادًا على كود VBA، يمكنك استخدام ميزةالدمج المتقدم للصفوففي أداة الإضافة الخارجية – Kutools لـ Excel – لدمج الصفوف المكررة بسهولة وسرعة، ثم جمع القيم في عمود آخر.
1. حدد البيانات التي تريد استخدامها، ثم انقرKutools > دمج وتقسيم > دمج متقدم للصفوف. انظر لقطة الشاشة:
2. بعد ذلك، في النافذة المنبثقة، حدد العمود الذي ستعتمد عليه لدمج الأعمدة الأخرى، ثم انقرالمفتاح الأساسي، وانقر على عمود آخر، ثم انقرحسابواخترجمع.
تلميح: إذا كان نطاق التحديد يحتوي على عناوين، فحددتشمل العناوين، وحدداستخدام القيم المنسقةللحفاظ على التنسيق بعد الدمج.
3. بعد ذلك، انقرموافق. الآن تم دمج البيانات استنادًا إلى العمود الأساسي، وتم جمع القيم في العمود الآخر. انظر لقطة الشاشة:
ادمج الصفوف استنادًا إلى عمود واحد، ثم نفِّذ عمليات مختلفة على الأعمدة الأخرى باستخدام دمج متقدم للصفوف.
دمج متقدم للصفوفقوية، لأنها لا تقتصر فقط على دمج الصفوف المكررة في عمود واحد ثم جمع القيم في عمود آخر، بل تمكّنك أيضًا من دمج الصفوف المكررة في عمود واحد وتطبيق عمليات مختلفة على الأعمدة الأخرى.
لنفترض أن لديك نطاق بيانات كما هو موضح في لقطة الشاشة أدناه، وترغب في دمج القيم في العمود B وجمع القيم في العمود C بناءً على العمود A.
Kutools لـ Excel – مزوَّد بأكثر من 300 أداة أساسية لبرنامج Excel! اجعل مهامك في Excel أسرع، وأسهل، وأكثر كفاءة.حمِّل الآن!
1. حدد نطاق البيانات، ثم انقرKutools > دمج وتقسيم > دمج متقدم للصفوف. انظر لقطة الشاشة:
2. في مربع الحواردمج الصفوف Based on Column، قم بما يلي:
(1) انقر على العمود الذي تريد الدمج استنادًا إليه، ثم انقرالمفتاح الأساسي;
(2) انقر على العمود الذي تريد دمج بياناته، ثم انقردمج، ثم اختر فاصلًا من القائمة حسب الحاجة؛
(3) انقر على العمود الذي تريد جمع قيمه، ثم انقرحساب، واخترجمع.
3. انقرموافق. الآن يمكنك رؤية النتيجة كما يلي:
باستخدام ميزةالدمج المتقدم للصفوف، يمكنك دمج الصفوف بناءً على عمود واحد، ثم عدّ القيم أو حساب متوسطها أو الاحتفاظ بأول قيمة أو آخر قيمة في الأعمدة الأخرى.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل