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

[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, 2024 بواسطه Mr. shehata