المطلوب كود لحذف المسافات فى بداية الخلية ونهايتها

[عادل ابوزيد]

السلام  عليكم اساتذتى الكرام

المطلوب كود لنفيذه على 46000 صف يقوم بحذف المسافات الموجوده فى بداية النص داخل الخلية وفى نهايته وكذلك ان وجد مسافات بين النصوص مع الحفاظ على المسافات الطبيعية بين الكلمات والاسماء التى تبدا بعبد مع اسماء الله الحسنى 

مع العلم انه بالبحث بالمنتدى وجدت كود للعلامه عبد الله باقشير إلا انه لم ينفذ على الملف 

تقبلوا تحياتى وتقديرى

حذف المسافات.xlsx

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته 

استخدم هذا المعادله واسحبها الي قدر ما تحتاج من الصفوف

=CLEAN(TRIM(C2))

 

[عادل ابوزيد]

اشكرك على الرد والاهتمام .. ممكن كود ان امكن

[حسونة حسين]

تفضل

Sub Clean_Trim()
    Dim rng As Range
    Set rng = sheet1.Range("C2:C46023")
    rng.Value = Evaluate("INDEX(CLEAN(TRIM(" & rng.Address & ")),)")
End Sub