Найти и заменить несколько значений и обновить в другом столбце

Question

 sub ()
   for i = 3 to 6
   worksheets("sheet1").range("a2:a35").select

   selection.replace what:=cells(i,3).value,replacement:=cells(i,4).value,
   lookat:xlpart,searchorder:=xlByRows,matchcase:=False

   Next

   Worksheets("sheet1").cells(1,1).select

 end sub

Что, если заменяемое значение находится в другом столбце? Например, я по-прежнему хочу, чтобы диапазон значений находился в столбце «A», но затем заменил значение в «столбце B» той же строки. Как бы изменился код?

Answer 1

Используйте метод Find и считайте номера строк из найденных результатов (свойство Row). Вы можете использовать эту информацию для ссылки на ячейку в столбце, который необходимо изменить.