Как из большого количества телефонов выбрать правильные

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как из большого количества телефонов выбрать правильные (Формулы/Formulas)

Xellos008

Дата: Четверг, 27.07.2017, 12:53 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте, мне нужно в ячейке где телефоны вытащить только типа +7(111)4445555 а все остальные в другую колонку.
Хочу узнать возможно ли это? Не первый раз задаюсь этим вопросом и хочу понять и научится ^_^

Заранее благодарю за помощь

К сообщению приложен файл: _1.xlsx (86.3 Kb)

Ответить

Manyasha

Дата: Четверг, 27.07.2017, 13:36 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Xellos008, здравствуйте, так подойдет?
[vba]

Код

Function getPhon(txt As String)
    Dim objMatches As Object, objMatch As Object
    Dim res$

    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(\+7)$\d{3}$\d{7}"
        Set objMatches = .Execute(txt)

        For Each objMatch In objMatches
            res = res & ", " & objMatch
        Next objMatch
    End With
    If res <> "" Then getPhon = Mid(res, 2)

End Function

[/vba]
[vba]

Код

Function removePhon(txt As String)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(\+7)$\d{3}$\d{7}"
        removePhon = .Replace(txt, "")
    End With
End Function

[/vba]