حذف چندین کاراکتر بصورت همزمان

[bnyamin]

با عرض سلام
دو تا کد میخواستم که :
1- برخی از کاراکتر ها رو به کد معرفی کنم و بعد این کاراکتر ها از متن حذف گردند .(اکثرا اعراب هستند )
2- برخی از کاراکترها هم با برخی دیگر ریپلیس گردند بصورت هم زمان .
با تشکر

[ahmad.khanifar]

از این کد استفاده کن

Sub qqq()

Dim ss As String
ss = "????O??U?UU?à"
Call StripAccent(ss)
End Sub




Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer

Const AccChars = "?????A?A???CEEEE??II????O??U?UU?à?â???çèéêë??îï????ô??ù?ûü??"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"

For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
MsgBox thestring
End Function

[bnyamin]

با تشکر از آقای خانی فر که لطف کردن و زحمت کشیدن

یک کد خلاصه هم پیدا کردم که برای دیگر دوستانی که احتمالا بعدا به مشگل بنده برخورد میکنن قرار میدم /

در کد فوق برخی ها رو با خالی ریپلیس مسکنه و برخی ها رو با کاراکتر دیگر و ...


Sub DeleteOrReplaceCharacters()

With Range("A2:A10")
.Replace "a", "", xlPart
.Replace "&", "", xlPart
.Replace "{", "(", xlPart
.Replace "d", "3", xlPart
End With

End Sub