السلام عليكم
الله يسعدك وين ماكنت
عملت نسخ للمعادلة الي في الرد الثاني
Sub Test()
ActiveSheet.Columns(1).Replace ChrW(8208), ChrW(45), xlPart, , , , True, False
End Sub
عملتها كالتالي
1- فتحت ملف الاكسل المرفق
2- (alt) + (F11) عشان يفتح الفجول
3- اخترت This WorkBook
4- لصقت المعادلة الي فوق وعملت حفظ
بس المشكلة ماحصا اي تغيير
مو عارف الله يسعدك وين الخطاء الي عملته