كيفية حذف المكرر من الخلية في الأكسل

[hamra]

السلام عليكم ... عندس جدول كما هو مرفق فيه مكرر في يعض الخلايا من خلايا الملق .. أردي معرفة الطريقة لحذف هذا المكرر ..
أكرر  أن المكرر هو في الخلية  وليس في الأعمدة
وشكرا لكم

test.rar

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

وعليكم السلام

جرب الكود التالي ..

Sub Test()
    Dim i           As Long
    
    Application.ScreenUpdating = False
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            RemoveDuplicatesInCell Range("B" & i), Range("C" & i), "،"
        Next i
    Application.ScreenUpdating = True
End Sub

Sub RemoveDuplicatesInCell(rng As Range, rngT As Range, Optional delim As Variant)
    Dim d           As Object
    Dim arr()       As String
    Dim i           As Long
    
    If IsMissing(delim) Then delim = ", "
    Set d = CreateObject("Scripting.Dictionary")
    arr = Split(rng, delim)
    
    For i = LBound(arr) To UBound(arr)
        d(arr(i)) = 1
    Next i
    
    rngT.Value = Join(d.keys, " ، ")
    d.RemoveAll
End Sub

 

[hamra]

عذرا يا  شيخ   انا مبتدئ في هذا المجال .. فأين أضع هذا الكود
يعني ممكن أن تضع لي الكود في الملف المرفق وتحفظه وتعيد إرساله  وأنا أطبق ما أريد بواسطته؟ وشكرا لك

تم تعديل أبريل 24, 2017 بواسطه hamra

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

شاهد الفيديو على الرابط التالي

 

[hamra]

شكرا لك  تم العمل كما في الفيديو و أنشأ لي عمود D  لكن لم يتم حذف المكرر بحيث بقيت كل القيم مثما هي كما في العمود B

هل هناك خلل في الكود ؟

تم تعديل أبريل 24, 2017 بواسطه hamra

[أ / محمد صالح]

بارك الله لك أخي الكريم أبا البراء

كود رائع

ولا يوجد مكرر في النص من الأساس أخي صاحب الاستفسار

وربما يتوجب عليك أن تعرف ما مضمون الكود الرائع للحبيب ياسر 

وهو تقسيم النص الموجود بالخلية بناء على وجود الفاصلة ( ، ) ومقارنة الكلمات بين الفصلات وحذف الكلمة التي سبق وجودها

 

[ناصر سعيد]

حفظكم ربنا ورعاكم الاستاذ ياسر خليل  والاستاذ محمد صالح

[hamra]

في الملف المرفق يوجد كلمات مكررة ولم يشتفل الكود معي فقلت لعل في الملف مشكلة فعملت ملفا آخر قصير من سطر واحد ونسخت بعض الكلمات المكررة في الخلية  وطبقت الكود ولم تحذف.. لا أدري  أين الإشكال والله
 

تم تعديل أبريل 24, 2017 بواسطه hamra

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

بعد اذن اخي و حبيب القلب  ياسر

انظر الى هذا الملف صفحة Salim

dup_Remover_from cel.rar

[hamra]

شكرا لك لقد عمل معي الآن  بعد العمل على هذا الملف .. لكن عندي مشكلة لم أنتبه إليها هل ممكن التعديل على الكود بحيث يهمل التشكيل فمثلا عندي صَالح ، وصالِح، صالحٌ  هذه الكلمات كلمة واحدة أود حذفها والإبقاء على واحدة لكن الاختلاف في التشكيل يمنعني.. نعم استطيع حذف التشكيل نهائيا  ويضبط الامر  لكن أنا أريد النصوص بالتشكيل وشكرا لكم

[أ / محمد صالح]

كمعلم لغة عربية

أود أن أوضح أن إهمال التشكيل غير صحيح في عمل برنامج القاموس

لأنك لن تستطيع إعادة التشكيل للكلمات المتبقية