با سلام. در كد زير در تمام شيت اول به دنبال كلمه اي ميگردد و آن را با كلمه اي (كه منبع آن شيت دوم ستون اول است)جايگزين ميكند. آيا ميتوان كد زير را طوري تغيير داد كه نتيجه ي حاصل از replace را به جاي ستون سلكت شده در ستون دلخواه ديگر قرار دهد؟

[align=left]Sub replace()
On Error Resume Next
Dim d As Range
For Each d In Sheet2.Range("a1:a900")
If d.Value <> ""then
Sheets("Sheet1").Select
Cells.Replace What:=d.Value, Replacement:=d.Offset(0, 1).Value, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
end if
Next d

End Sub[/align]
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.