Страницы: 1
RSS
Макрос "поиск и замена", Макрос на поиск текста в начале ячейки и замена его на другой текст
 
Добрый день, уважаемое сообщество!

Немного предыстории, в Access есть такая функция (ctrl+H) Поиска и Замены, в которой можно выставить "Совпадение: С начала поля", в Excel такого поля нет. Приходится документ перегонять в Access и заменять и потом обратно в Excel. Хотелось бы это реализовать макросом в Excel.
Задача такая:
Есть столбик в котором находятся данные - цифры. Необходимо, чтобы макрос прошелся по всем ячейкам даного столбца и проверил содержание ячейки на условие. Условий может быть несколько. То есть алгоритм такой:
Например, ячейка А1 содержит в себе "0234567890". Если первый символ в ячейке начинается на "0", то "0" заменить на 130, в ячейке должно быть 130234567890. Идет к следующей ячейке с содержимым 501234567, макрос проверяет Если первый символ в ячейке начинается на "0" (проверка не проходит), он проверяет дальше, если первый символ в ячейке начинается на "5", то "5" заменить на 1305, в ячейке должно быть 130501234567 и т.д. Условий немного, но мне хотя бы с этими двумя понять как делать, синтаксис VBA не знаю. По идее проверку можно сделать if else if.
Заранее благодарен.
Изменено: bishop - 05.11.2013 17:00:52
 
Я бы лучше на Select Case делал
Согласие есть продукт при полном непротивлении сторон
 
Так?
 
не работает
Изменено: bishop - 05.11.2013 17:35:21
 
Цитата
Я бы лучше на Select Case делал
Спасибо за подсказку. А как задать ему условие не всё выражение, а первый символ?
 
Прошу прощения, не в тот модуль код написал  :)
Изменено: Павел - 05.11.2013 17:37:32
 
Павел, я изменил содержание
Изменено: bishop - 05.11.2013 18:51:52
 
Спасибо.
 
Павел, спасибо за помощь. Функция Mid, то что нужно.
Sanja, спасибо за помощь.
Страницы: 1
Читают тему
Наверх