عليكم السلام ورحمة الله وبركاته
الاستاذ الفاضل ابوعيد
هذا الكود لعلامة الوطن العربي الاستاذ عبدالله باقشير
جزاه الله كل خير وزاده من فضله وعلمه
وهو يقوم بحذف الهمزة واستبدال التاء المربوطة بهاء وايضا يحذف النقط من اسفل الياء
تحياتي لك
Sub kh_Replace()
Dim ch
With Range("B2:B100")
For Each ch In Array("إ", "أ", "آ")
.Replace CStr(ch), "ا"
Next
.Replace "ة", "ه"
.Replace "ى", "ي"
End With
End Sub