بعد وضع هذا الكود فى موديول
Option Explicit
Function cleanup(s As String)
Dim i As Long
Dim c, t As String
For i = 1 To Len(s)
c = Mid(s, i, 1)
Select Case Asc(c)
Case 1 To 239
t = t & c
End Select
Next i
cleanup = t
End Function
عليك بكتابة هذه المعادلة فى الخلية المراد حذف التشكيل منها
فعلى سبيل المثال ,اذا كان النص المراد حذف التشكيل منه موجود فى الخلية A2 فعليك كتابة المعادلة مثلا فى الخلية B2
وهى
=CLEANup(A2)
بارك الله فيك