{quote}{login=Юрий М}{date=17.11.2010 11:35}{thema=}{post}Если требуется обработать ВСЕ такие коды, то макрос нужно будет немного подправить.{/post}{/quote} Да. Необходимо обработать все строки с заданіми кодами, т.е. каждому коду подставить определенное значение.
{quote}{login=Hugo}{date=17.11.2010 11:19}{thema=}{post}Sub tt() For Each cc In [a2:a24] If cc.Value = "01-04" Then cc.Offset(, 3) = "XXX" Next End Sub
Это перебором, без поиска, и в строго заданном диапазоне. Зато просто.{/post}{/quote} Да, спасибо, а если диапазон заранее не известен?
Уважаемые Гуру. Люди мы не местные помогите чем можете. По поиску не смог найти нужное решение. С макросом меняющим значения в одном столбце по заданому критерию решил сам, а как прописать код, что бы поиск проходил в одном столбце а замена проходила в другом столбце решить не могу. С VBA только начинаю знакомство. Например поиск значения "01-04" в столбце "код програмы" и замена значения в столбце "название" на значение "ХХХ". Таблица имеет несколько тысяч строк, ВПР не подходит как и ПОИСК и Замена.