Поиск последовательности цифр в строке

[mmx310]

SAS888
Спасибо большое, все отлично работает, и намного быстрее чем с формулами!

[mmx310]

А формулу =СЧЁТЕСЛИ($C$4:$C$10003;C5) можно в функцию прописать? с функциями намного быстрее работает

[SAS888]

Можно, конечно. Но в данном случае большой вопрос, как будет быстрее.
Смысл писать свою функцию вижу только тогда, когда она отсутствует в стандартном наборе Excel, либо когда требуется применение нескольких стандартных функций, либо когда есть какой-нибудь частный случай (например, в отличии от стандартной функции, рассматривать не все возможные варианты, а только избранные).
Если в функции использовать формулу рабочего листа Excel Application.WorksheetFunction.Count If(...), то быстрее точно не будет.
Мне не известен алгоритм, который использует Excel в этой функции. Если он работает с ячейками листа, то можно попробовать альтернативный способ - создать массив и работать с ячейками памяти, что быстрее. Попробуйте предлагаемую функцию применить к очень большому количеству строк в столбце и сравнить время выполнения со стандартной. Пока, для простоты, в этой функции можно задавать диапазон счета только в виде столбца. Если результат будет положительный - сделаем для произвольного диапазона. Но, думаю, что Microsoft-овскими программистами все функции оптимизированы "до изнеможения".

Function CountIfInColumn(Диапазон As Range, Критерий As Range) As Long

    Dim i As Long
    a = Диапазон.Value: CountIfInColumn = 0
    For i = LBound(a, 1) To UBound(a, 1)
        If a(i, 1) = Критерий.Value Then CountIfInColumn = CountIfInColumn + 1
    Next

End Function

Вставьте этот код в любой стандартный программный модуль.

[SAS888]

По поводу поиска в текстовой строке 11-значного номера, начинающегося с 80 - вместо предложенной ранее функции, лучше применить следующую:

Function Num(Cell As Range)

    Dim i As Integer, j As Integer, a
    a = Split(Application.Trim(Cell.Value), " ")
    For i = LBound(a) To UBound(a)
        If a(i) Like "*80#########" Then
            j = InStr(1, a(i), "80")
            Num = Right(a(i), Len(a(i)) - j + 1)
            Exit For
        End If
    Next

End Function

В этом случае, будет корректно определяться номер, не зависимо от того, какие символы находятся непосредственно перед номером ("т.моб.", "тел.", Моб.Тел" и т.п.).

[slan]

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

Function CountIfInColumn(Диапазон As Range, Критерий As Range) As Long

    Dim i As Long
    a = Диапазон.Value: CountIfInColumn = 0
    For i = LBound(a, 1) To UBound(a, 1)
        If a(i, 1) = Критерий.Value Then CountIfInColumn = CountIfInColumn + 1
    Next

End Function

Вставьте этот код в любой стандартный программный модуль.

мне кажется, что обращение к диапазону стоит вынести из цикла:
crv=Критерий.Value

а вцикле использовать эту переменную:
If a(i, 1) = crv Then

да и чуть быстрее использовать for each цикл