استخراج القيم الفريدة مع كل القيم المرتبطة بها List The Unique And Concatenate Corresponding Values

[ياسر خليل أبو البراء]

السلام عليكم ورحمة الله وبركاته

 

قد يبدو العنوان غريب بعض الشيء ، ولكن أحب أن أضع عنوان معبر عن الموضوع ليسهل فهم الفكرة ، حيث تتلخص الفكرة ببساطة في أنه يتم استخراج القيم الغير مكررة أي القيم الفريدة وفي العمود المجاور توضع القيم المرتبطة بها ويفصل بينها فاصل.

 

وبالمثال كما تعودنا يتضح المقال ، حيث أن التطبيق العملي أفضل من الكلام النظري

 

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

 

 

لاحظ شكل النتائج المطلوبة

 

 

قبل تنفيذ الكود يجب تفعيل المكتبة التالية من خلال أدوات Tools اختر الأمر References ثم اختر المكتبة المسماة Microsoft Scripting Runtime ، كما هو موضح بالصورة التالية :

 

 

للإطلاع على الكود والملف المرفق قم بزيارة الرابط التالي

رابط الموضوع من هنا

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

مبدع دائما كعادتك 

جزاك الله خيرا وبارك الله فيك

 

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله وبركاته أخي وحبيبي ومعلمي أحمد زمان

بارك الله فيك وجزيت خيراً على مرورك العطر والمشرف بالموضوع

تقبل تحياتي

[جلال الجمال_ابو أدهم]

ياسر خليل أبو البراء

اخى الفاضل جزاك الله خيرا

[ياسر خليل أبو البراء]

وجزيت خيراً أخي العزيز جلال الجمال
تقبل وافر تقديري واحترامي

[مختار حسين محمود]

بارك الله فيك  أخى وأستاذى ياسر

وائراء للموضوع  يمكن الحصول على نفس النتائج بمعادلة و udf

تحياتى

List The Unique And Concatenate Corresponding Values udf.rar

[ياسر خليل أبو البراء]

أخي وحبيبي مختار كما يسعدني مداخلاتك الرائعة لإثراء الموضوع

بالنسبة للحل المقدم رائع وجميل وإن كنت لا أحبذ استخدام المعادلات (خصوصاً معادلات الصفيف)

عموماً بالنسبة للمعادلات يجب ضبطها قليلاً بتثبيت النطاق

المعادلة الأولى

=IFERROR(INDEX($A$2:$A$11,MATCH(0,COUNTIF($D$1:D1,$A$2:$A$11&""),0)),"")

المعادلة الثانية

=SUBSTITUTE(AConcat(IF($A$2:$A$11=D2,","&$B$2:$B$11,"")),",","",1)

تقبل تحياتي

 

[مختار حسين محمود]

أشكرك على المتابعة وضبط المعادلات

كنت فى عجلة ( عجلة أى سرعة مش بسكلته ) من امرى

أنا مثلك تماما أفضل الاكواد والتعامل معها  على المعادلات وخصوصا الصفيف 

لكن فيه ناس بتحب المعادلات  نعمل ايه  ؟!    غير اننا نحاول تقديم كل الحلول  ( وجهة نظر )        تحياتى

[ياسر خليل أبو البراء]

وأنا أحترم وجهة نظرك ووجهة نظر الناس .. فقط أردت التعبير عن وجهة نظري

وبعدين هصر العجلة والبسكلتة انتهى  .. فيه دلوقتي موتوسيكلات تكاتك أو أي حاجة توصلك بسرعة

تقبل وافر تقديري واحترامي