سلام با این کد هم میتونین برای ستون مورد نظرتون این قابلیت فعال باشه و ستون ها دیگه رو جستجو نکنه
کد:
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