replace

[maryam62]

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

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

[s.cheraghi]

با سلام

شما می تونید یک متغیر از نوع Range را تعریف کرده( به عنوان محدوده دلخواه جستجو) و سپس این محدوده را توسط فرمان زیر مشخص کنید

set A = application.inputbox()

در نهایت حلقه for را به ازای هر d درون A جایگزین کنید

امیدوارم مشکلتون حل بشه