کد find و replace اما فقط برای ستون مورد نظر (آموزشی)

[ali.b]

سلام با این کد هم میتونین برای ستون مورد نظرتون این قابلیت فعال باشه و ستون ها دیگه رو جستجو نکنه

Sub ChgInfo()
 
    Dim WS As Worksheet
    Dim Search As String
    Dim Replacement As String
    Dim Prompt As String
    Dim Title As String
    Dim MatchCase As Boolean
 
    Prompt = "What is the original value you want to replace?"
    Title = "Search Value Input"
    Search = InputBox(Prompt, Title)
 
    Prompt = "What is the replacement value?"
    Title = "Search Value Input"
    Replacement = InputBox(Prompt, Title)
 
    For Each WS In Worksheets
        WS.Columns(1).Replace What:=Search, Replacement:=Replacement, LookAt:=xlPart, MatchCase:=False
    Next
 
End Sub