[حل شده] جستجو بر اساس نام در اکسل

[armani]

سلام خدمت دوستان و اساتید گرامی
به مشکلی در فایل اکسل خود رسیده ام که سپاس گذار هستم راهنمایی بفرمایید.
در فایل اکسلی براساس نام شهرها، از فرمول هایی چون Vlookup استفاده کرده ام که این فرایند درچندین جدول اتفاق می افتد اما مشکل از آنجایی شروع می شود که وقتی داده های اصلی خود را در این جدول ها کپی می کنم فرمول ها ، جواب درستی را نمی دهند تا زمانی که نام شهرها را دوباره تایپ کنم.
به جهت آن که تعداد سطرها و حجم کار زیاد است عملا نمی شود کاری انجام داد.ممنون می شوم راهنمایی کنید که چیکار کنم تا املا کلمات در فرمول ها تاثیر نداشته باشد.
مثلا vlookup زده شده است که تبریز را پیدا کند و مقدار متناظر را نشان دهد اما چون حرف (ی )در تبریز وجود دارد باید دوباره تبریز را تایپ کنم.

[iranweld]

با سلام

هر وقت دیتای جدیدی در فایل خود کپی میکنید ، برای یکبار این ماکرو را اجرا کنید تا همه "ی" و "ک" بصورت یکسان درآیند.

Sub test()

Dim ws As Worksheet

    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
    
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
    
    Next cell
    
    Next ws
End Sub 

[armani]

بسیار سپاسگذارم