нужна формула для обработки телефонов в единую базу рассылки

RSS

нужна формула для обработки телефонов в единую базу рассылки, нужна формула для обработки телефонов в единую базу рассылки

zanna

Пользователь

Сообщений: 1 Регистрация: 09.02.2013

09.02.2013 16:52:07

Здравствуйте. Нужна формула для обработки телефонов (мобильных) в единую базу рассылки. Так чтобы отсекались городские номера, оставались мобильные и преобразовывались из 8903 в +7903 , к примеру, и исключались повторения номеров. Услуга оплачивается. Жду откликов на zanna-zaripova@rambler.ru

Kuzmich

Пользователь

Сообщений: 8201 Регистрация: 21.12.2012

09.02.2013 17:55:28

Список телефонов в столбце А, городские номера семизначные

Код

Option Explicit
Sub Telefon()
Dim i As LongFor i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Len(Cells(i, 1)) = 7 Then        
        Cells(i, 1).EntireRow.Delete
    Else
    If Left(Cells(i, 1), 1) = 8 Then
        Cells(i, 2).NumberFormat = "@"
        Cells(i, 2) = "+7" & Mid(Cells(i, 1), 2)
     End If
     End If
Next
End Sub

От повторов избавьтесь сами

Изменено: Kuzmich - 09.02.2013 18:00:20

EducatedFool Пользователь Сообщений: 3697 Регистрация: 23.12.2012	#3 10.02.2013 05:57:31 zanna, надо ваш файл смотреть Обычно в таких файлах надо больше операций с номерами производить (номера могу быть по нескольку штук в одной ячейке, содержать или не содержать пробелы, и т.д.) К тому же, алгоритм обработки списка на 100 номеров несколько отличается от способа обработки больших объемов данных (если номеров - десятки и сотни тысяч) Отписал на почту Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему