[حل شده] مشگل duplicated نشدن متن ها

[prance666]

سلام دوستان من 2 تا نرم افزار دارم که برای حقوق دادن بچه ها وقتی میخوام اینا رو تو اکسل بیارم و کنار هم بزارم وقتی duplicated میکنم که بتونم هم نام ها رو مشخص کنم با وجود اینکه اسم ها یه شکل هست و حتی حروف (ي) رو هم به ی تبدیل کردم ولی بازم مشگل داره و رنگی نمیکنه ممنون میشم اگر کسی راهکاری داره به من بگه

[iranweld]

با سلام

حروف شما در چندین مورد با هم فرق داشت که توسط ماکرو ذیل اصلاح گردید

Sub test()

Dim ws As Worksheet
    
For Each ws In Worksheets

For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
        cell.Value = WorksheetFunction.Trim(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
        Cells.Replace What:=ChrW(1609), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    
    Next cell
   
Next ws
End Sub