Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Подстановка значения при соответствии условию

Автор Серега Пупкин, 10.11.2012, 00:10

« назад - далее »

Серега Пупкин

Доброго времени суток, комрады.
Вопрос в следующем, имею телефонную книгу с данными. Необходимо в столбцах (4 столбца) с номерами телефонов, изменить все встречающиеся символы "+7" на "8", а другие, например "+3", "4", "9" оставить без изменений.
Подскажите каким кодом макроса этого можно достичь?

Serge 007

Sub Серега_Пупкин()
    Columns("A:D").Replace What:="+7", Replacement:="8", LookAt:=xlPart
End Sub


Columns("A:D") - это четыре первых столбца. Можете заменить на свои
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771