ازالة الفاصلة بين الاسماء

[Mr. shehata]

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

تقرير طلبات لم يبت فيها لمدرسة -الشهيد حسن عبدالجيد برهام رياض اطفال.xlsx

[حسونة حسين]

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

تفضل 

=SUBSTITUTE(B2;",";" ")

 

[محمد هشام.]

Sub RemoveChars()
Dim lr&, Cel As Range, A As String, r As Range
lr = Cells(Rows.Count, "b").End(xlUp).Row
Application.ScreenUpdating = False
Set r = Range("b2:b" & lr)
  For Each Cel In r
    A = Replace(Cel.Value, ",", " ")
    Cel.Value = A
  Next Cel
  Application.ScreenUpdating = True
End Sub

 

[Mr. shehata]

اساتذتى الكرام ليس عندى مااستطيع قوله الا ان اقول جزاكم الله خيرا على سرعة الاستجابة شكرا جزيلا 

الحمد لله قد تم حل المشكلة بفضل عباقرة الاكسل 

تم تعديل يوليو 1 بواسطه Mr. shehata