Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как выбрать из ячеек только номера - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как выбрать из ячеек только номера (Формулы/Formulas)
Как выбрать из ячеек только номера
adilkarim Дата: Вторник, 08.05.2018, 09:03 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Здравствуйте уважаемые форумчане.

Помогите раскидать номера телефонов по ячейкам, вот так они в файле выглядят http://joxi.ru/Vm6LLkvUxBO1zA файл тоже приложил
Дело в том что в ячейке и слова и телефоны есть, а нужно выбрать только телефоны.
А строк 10 000 уже пальцы устали))

может есть какая то формула или инструмент ?

спасибо заранее.
К сообщению приложен файл: company_10000.xlsx (12.7 Kb)
 
Ответить
СообщениеЗдравствуйте уважаемые форумчане.

Помогите раскидать номера телефонов по ячейкам, вот так они в файле выглядят http://joxi.ru/Vm6LLkvUxBO1zA файл тоже приложил
Дело в том что в ячейке и слова и телефоны есть, а нужно выбрать только телефоны.
А строк 10 000 уже пальцы устали))

может есть какая то формула или инструмент ?

спасибо заранее.

Автор - adilkarim
Дата добавления - 08.05.2018 в 09:03
sboy Дата: Вторник, 08.05.2018, 09:39 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Вариант пользовательской функцией
[vba]
Код
Function adilkarim(t As String, q As Integer)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[-0-9]{7,}"
        If .test(t) Then
            If q <= .Execute(t).Count Then
                adilkarim = .Execute(t)(q - 1)
                Exit Function
            End If
       End If
        adilkarim = ""
    End With
End Function
[/vba]
К сообщению приложен файл: company_10000.xlsm (20.0 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Вариант пользовательской функцией
[vba]
Код
Function adilkarim(t As String, q As Integer)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[-0-9]{7,}"
        If .test(t) Then
            If q <= .Execute(t).Count Then
                adilkarim = .Execute(t)(q - 1)
                Exit Function
            End If
       End If
        adilkarim = ""
    End With
End Function
[/vba]

Автор - sboy
Дата добавления - 08.05.2018 в 09:39
abtextime Дата: Вторник, 08.05.2018, 12:07 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 0% ±

Excel 2010
Можно и формулой, пока все телефоны в один столбец, теоретически можно и по четырем разбить

Код
=ЕСЛИОШИБКА(ПРАВБ(F2;ДЛСТР(F2)-НАЙТИ("тел. ";F2)-4);"")
К сообщению приложен файл: 0229086.xlsx (14.9 Kb)
 
Ответить
СообщениеМожно и формулой, пока все телефоны в один столбец, теоретически можно и по четырем разбить

Код
=ЕСЛИОШИБКА(ПРАВБ(F2;ДЛСТР(F2)-НАЙТИ("тел. ";F2)-4);"")

Автор - abtextime
Дата добавления - 08.05.2018 в 12:07
adilkarim Дата: Вторник, 08.05.2018, 13:42 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
sboy, изумительно

вообще не представлял что именно так shock shock
спасибо hands
 
Ответить
Сообщениеsboy, изумительно

вообще не представлял что именно так shock shock
спасибо hands

Автор - adilkarim
Дата добавления - 08.05.2018 в 13:42
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как выбрать из ячеек только номера (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!