Количество знаков

[Flangini]

Добрый день!

Помогите пожалуйста с решением проблемы, а именно имеется столбец с телефонами, в котором встречаются как сотовые номера (написанные через тире [8-9**-***-**-**] или же пробел [8 9** *** ** **], встречаются так же и такие варианты [9*********], [8(9**)*******] и тд.) так и домашние (с кодом и без). Цель получить столбец содержаший только сотовые номера.

Учитывая разношёртность написания номеров, решение мне представляется только в виде макроса, который выведит те яцейки кол-во знаков в которых больше, например 8.

Или же, если это возможно, сначала исключить (макросом) все знаки не являющиеся цифрами, ну а потом применить фильтр по кол-ву знаков в ячейке. (В таком случаи точность будет намного выше).

[SAS888]

Можно, например, с помощью функции:

Function Ntel(Cell As Range) As String
    Dim i As Integer, s As String
    For i = 1 To Len(Cell)
        s = Mid(Cell, i, 1)
        If Asc(s) > 47 And Asc(s) < 58 Then Ntel = Ntel & s
    Next
    Ntel = IIf(Len(Ntel) > 8, Ntel, "")
End Function

[Flangini]

Сообщение от SAS888

Можно, например, с помощью функции:

Function Ntel(Cell As Range) As String
    Dim i As Integer, s As String
    For i = 1 To Len(Cell)
        s = Mid(Cell, i, 1)
        If Asc(s) > 47 And Asc(s) < 58 Then Ntel = Ntel & s
    Next
    Ntel = IIf(Len(Ntel) > 8, Ntel, "")
End Function

Никак не могу вызвать функцию никогда этого сам не писал, стал пробовать не получается.
Что не так:

Private Sub Start()
Dim Tax As Range
Tax = Ntel("E3:E100")
End Sub

[IgorGO]

я вот такое написал правее ячейки с номером и получил последние 7 цифр:

=ПРАВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(RC[-1];"-";"");" ";"");"(";"");")";"");7)

а функцию написанную SAS888, использовать надо так:
1. вставляете код функции в модуль
2. набираете в ячейке равно "="
3. жмете fx (значок чуть левее строки ввода формул)
4. строке "категория" выбираете определенные пользователем
5. в списке функций выбираете Ntel
6. в качестве параметра указываете ячейку с данными, жмете Enter. (Понятно, там по синтаксису скобки открыть-закрыть)
7. копируете ячейку вниз по списку телефонов

[Flangini]

Спасибо большое!
а функцию написанную SAS888, можно использовать только так?
то что я пытался сделать - бред сумашедшего?

[IgorGO]

функция SAS888, как и то что я написал используются аналогично. Пишем ее в одну ячейку, а потом размножаем но всему списку.
Только моя удалит из начальной строки пробелы " ", тире "-", открывающуюсю "(" и закрывающуюсю ")" скобки, а SAS888 во-первых, запись компактнее, во-вторых, удаляет из начальной строки все, кроме цифр. Правда, с оператором Ntel = IIf(Len(Ntel) > 8, Ntel, "") я не согласен, я не стал бы возвращать пусто если в номере меньше 8 цифр...

[SAS888]

Посмотрите пример во вложении.

я не согласен, я не стал бы возвращать пусто если в номере меньше 8 цифр...

Вообще-то, это пожелание автора темы.

[Flangini]

Сообщение от IgorGO

с оператором Ntel = IIf(Len(Ntel) > 8, Ntel, "") я не согласен, я не стал бы возвращать пусто если в номере меньше 8 цифр...

Предлагаете ставить флаг?

Скажите, что означает Len(Cell) в цикле For.
Эта строка мне тоже не понятна: s = Mid(Cell, i, 1)
И это объясните пожалуйста: Ntel = Ntel & s

[SAS888]

Len(Cell) - Количество символов в значениии ячейки Cell
s = Mid(Cell, i, 1) - Присваиваем переменной s значение из Cell, начиная с i-го символа в количестве 1. Т.е. перебираем все символы в ячейке Cell по 1.
Ntel = Ntel & s - Переменной Ntel присваиваем значение переменной Ntel, сцепленное со значением переменной s.

[Flangini]

Спасибо! Теперь на йоту стал умней