Вывод моб. телефона из ячейки в другую ячейку.

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

Вывод моб. телефона из ячейки в другую ячейку. (Формулы/Formulas)

ImpC

Дата: Воскресенье, 25.03.2018, 20:01 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2016

Всем добрый вечер, проблема связана с выводом информации из ячейки в другую ячейку.
Суть проблемы в том, что нужно "перебросить" из ячейки "Комментарий" все кроме, номера телефона. Номер телефона может начинаться с:"79, 8-9, +79...".
В данной ячейки могут повторяться комбинации и вариации сочетания (описанных выше), которые не относятся к моб. телефону. Спасибо!

К сообщению приложен файл: 1971337.xls (32.5 Kb)

Ответить

Manyasha

Дата: Понедельник, 26.03.2018, 10:22 | Сообщение № 2

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

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

Сообщений: 2198

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

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

Excel 2010, 2016

ImpC, здравствуйте. Вариант UDF:
[vba]

Код

Function removePhone(txt)
    With CreateObject("VBScript.RegExp")
        .Global = True: .MultiLine = True
        .Pattern = "\+{0,1}(7|8)-{0,1}(9\d{2})-{0,1}(\d{3})-{0,1}(\d{2})-{0,1}(\d{2})"
        removePhone = .Replace(txt, "")
    End With
End Function

[/vba]