پرسش find و replace در محیط VBA

[vahid950]

سلام بر سروران و دوستان عزیز
برای اسامی کشورها حروفی به اختصار ایجاد و تعیین شده. مثل این لینک
مورد نیاز بنده کدی هستش که بتونم روی هر فایل اکسلی که باز میکنم ، در صورتی که اسم هر کشوری که داخلش بود توسط کد نوشته شده اسم کشور به اختصار replace بشه.
با سپاس فراوان

[Newbee]

سلام بر سروران و دوستان عزیز
برای اسامی کشورها حروفی به اختصار ایجاد و تعیین شده. مثل این لینک
مورد نیاز بنده کدی هستش که بتونم روی هر فایل اکسلی که باز میکنم ، در صورتی که اسم هر کشوری که داخلش بود توسط کد نوشته شده اسم کشور به اختصار replace بشه.
با سپاس فراوان

Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets(1)


    Dim k As Long
    
    k = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count
For p = 2 To k
Dim myString As String 
   Dim newString As String
    myString = sh.Cells(p, 1)
    newString = Replace(myString, "/", "")
    sh.Cells(p, 1).Value = newString
Next p

این داخل یک حلقه برای یک ستون Find و Replace رو برای یک کاراکتر انجام میده خودتون بسطش بدین به کل sheet و هر استرینگی که میخوایید جایگزین کنید....
گرچه نوشتن کل کشورها حجم کدتون رو میبره بالا