اتمنى تكون فيه اجابة ؟

[جويلهانى]

لدي شيت اكسيل به اكثر من 12700 عمود والمشكلة ان به كلمات مكررة داخل الخلية وربما تكون متشابهة فى خلايا كثيرة

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

والكلمات  فى البداية دائما هى

Equipment parts

SPARE PARTS - TRUKS

SPARE PARTS -EQUIPMENTS

Cars Spar Parts

وتوجد مشكلة اخري فى نهاية الخلايا ارقام اريد حذفها وهى

00 2000

 2000 2000

اتمنى الرد 

مرفق الشيت

[جويلهانى]

الملف الرفق

Book1.rar

[دغيدى]

هل هذا المطلوب ؟

Book 2.rar

[أبو محمد أشرف]

احسنت اخي الحبيب واستاذنا واستاذ الجميع

[الـعيدروس]

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

Public Sub Ali_rc()
With ActiveSheet
  .Range("Table1").RemoveDuplicates Columns:=1, Header:=xlYes
 For Each Rl In Array("00 2000", "2000 2000")
   .Columns("A:A").Replace Rl, "", xlPart
 Next
End With
End Sub

بامكانك إضافة شروط اخرى

غير الارقام الموضحه في مشاركتك الاولى

00 2000

2000 2000

 

مثلا اضافة 20

 

بيكون التعديل على السطر كالتالي

For Each Rl In Array("00 2000", "2000 2000", "20")

[جويلهانى]

شكرا اخي الحبيب مدير القسم  ( الاخ جمال دغيدي ) واعضاء المنتدى

فعلا تم الحل كما اريد يتبقى نقطة واحدة وهى 

 

حذف الارقام فى نهاية الاسماء وهى

 2000

20 2000

 00 00

واتمنى ان يكون العمود فى book1  بجوار العمود فى book2 مع الجديد بعد ان يتم الحل بمشيئة الله ولو استطعت شرح طريقة الحل يكون فضل منك كبير وشكرا لك

[دغيدى]

تم حذف الأرقام المطلوبة

أما الطلب  الثانى لم افهمه

Book 3.rar

[جويلهانى]

شكرا لك استاذنا الحبيبب  وجزاك الله على قدر مجهودك وقدر سعة صدرك فى طلبات الاعضاء ولك من جزيل الشكر والعرفان