حذف الكلمات المكررة داخل خلية واحدة

[redamohamed]

السلام عليكم

عندى استفسار بخصوص الاكسيل ؟
لو عندى خلايا اسماء فى خلية واحدة مثلا
احمد محمد على احمد سيد احمد ابراهيم على محمود احمد

 

كما نلاحظ ان اسم " احمد " واسم على " مكرر فى هذه الخلية
هل هناك معادلة أو طريقة لإكتشاف الكلمات المكررة وحذفها بدون ان احدد انا المكرر ؟؟

ارجو الافادة

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

أخي الكريم

يرجى عدم تكرار الموضوعات بدون داعي ، كما يرجى وضع عناوين مناسبة للموضوع ليعبر عن الطلب

تم تغيير العنوان من "استفسار" إلى العنوان المبين

 

بالنسبة لسؤالك تم استخدام دالة معرفة لهذا الغرض ، حيث يمكنك استخدامها في ورقة العمل بشكل طبيعي مثل أي دالة من دوال الإكسيل المعروفة

حمل الملف المرفق من هنا

 

[redamohamed]

بشكرك كثير اخى الكريم ياسر خليل على سرعة الاستجابة والرد

وبعتذر على تكرار الارسال ، كانت مشكلة فى الانترنت
 

=fnNoDupInCel

لا تعمل معى لما نسختها ووضعتها فى الملف عندى !

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

أخي الكريم اضغط Alt + F11 للدخول لمحرر الأكواد

ثم قم بنسخ الدالة المعرفة بالكامل ، واذهب لملفك وادخل لمحرر الأكواد ثم قم بإدراج موديول جديد ثم الصق الدالة واستخدمها

لمعرفة المزيد حول البديات قم بزيارة الموضوع التالي

بداية الطريق لإنقاذ الغريق

[سليم حاصبيا]

بعد اذن اخي ياسر

ربما يكون المطلوب في هذا الملف (مرفق للتجربة)

الكود :

Function No_Repet(inputString As String, Optional delemiter As String = " ") As String
    Dim inArray() As String
    Dim xVal As Variant
    inArray = Split(inputString, delemiter)
    For Each xVal In inArray
        If InStr(No_Repet, Trim(xVal)) = 0 Then _
        No_Repet = No_Repet & Trim(xVal) & " "
    Next xVal
End Function

 

No_Rrepete.rar

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

رائع أخي سليم

دالة ممتازة ورائعة وفيها مرونة أكثر حيث أنه يمكن تحديد الفاصل بين الكلمات

تقبل تحياتي