اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


hamra

الردود الموصى بها

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

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

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
رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه hamra
رابط هذا التعليق
شارك

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

كود رائع

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

تم تعديل بواسطه hamra
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information