حذف المسافة بين عبد واسماء الله

[أبو علياء عاطف]

السلام عليكم
لو تكرمتم محتاج تكملة الكود الموجود في الصورة بحيث عند الضغط علي الزر يحذف المسافة بين عبد الرحمن أو عبد الرحيم وغيرهم ... أرجوا أنا أكون وضحت المطلوب
إليكم الكود للتكملة عليه جزاكم الله خيرا
Dim ch
LR = Cells(Rows.Count, 3).End(xlUp).Row
With Range("B3:B" & LR)
    For Each ch In Array("إ", "أ", "آ")
        .Replace CStr(ch), "ا"
    Next
    .Replace "ة", "ه"
    .Replace "ى", "ي"
End With

المشكلة الحروف العربية معكوسة بس أكيد مفهومة لأهل الخبرة والعلم

[AbuuAhmed]

أضف هذا السطر:
 

.Replace "عبد ال", "عبدال"

ليصبح كامل الكود كالتالي:
 

    Dim ch
    
    LR = Cells(Rows.Count, 3).End(xlUp).Row
    With Range("B3:B" & LR)
        For Each ch In Array("إ", "أ", "آ")
            .Replace CStr(ch), "ا"
        Next
        .Replace "ة", "ه"
        .Replace "ى", "ي"
        .Replace "عبد ال", "عبدال"
    End With

أشك أن هذا السطر مقلوب:
 

.Replace "ى", "ي"

 

[أبو علياء عاطف]

جزاك الله خيرا
تمام الكود شغال وحذف المسافة 
ما هو الغلط فيها

"ي" , "ى" Replace

[أبو علياء عاطف]

لما أكون محتاج أزود أعمدة يشتغل عليها الكود 
أعمل ايه هنا  With Range("C3:C" & LR)

[AbuuAhmed]

دع الـ B الأولى كما هي وبدل في الـ B الثانية:
 

With Range("B3:C" & LR)

في سطر التبديل بين الياء والألف المقصورة، العادة يتم تبديل الياء بالألف المقصورة وليس العكس أي نتخلص من النقط كما فعلناها مع التاء المربوطة والهاء وكما تخلصنا من الهمزات.
ولكن الموجود في الكود هو تبديل الألف المصورة بالياء.