Sub test()
Dim ws As Worksheet
x = Sheets.Count
For I = 1 To x
Sheets(I).Select
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
cell.Value = WorksheetFunction.Trim(cell)
Next cell
Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
For Each ws In Worksheets
ws.Name = Replace(ws.Name, ChrW(1610), ChrW(1740), vbTextCompare)
ws.Name = Replace(ws.Name, ChrW(1603), ChrW(1705), vbTextCompare)
Next ws
End Sub
کامنت