کد 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