Найти только цифры

[Iskin]

Здравствуйте всем!
Есть данные в ячейках: Продажа (20200106002 от 06.01.2020) или Накладная №20200106002
Надо чтобы в яч с права было только: 20200106002.

=ПРАВСИМВ((ЛЕВСИМВ(C10;20));11)

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

[Igor1961]

Здравствуйте! Без Вашего файла не совсем понятно - а если другие сочетания будут встречаться? Или только "Продажа (" и "Накладная №"? Смотрите вложение, может угадал, что Вам нужно

[Aleksandr H.]

Option Explicit

Function Digits11(i As String) As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    objRegEx.IgnoreCase = True
    objRegEx.Global = True
    
    objRegEx.Pattern = "\d{11}"
    If objRegEx.test(i) Then
        Digits11 = objRegEx.Execute(i)(0)
    End If
    
End Function


Sub asf()
    Debug.Print Digits11("Продажа (20200106002 от 06.01.2020)")
End Sub

[Iskin]

Вот файл. Данные листа TDSheet2 могут изменяться в колонке В, т.к. разные организации присылают со своей выгрузкой. Поэтому каждый раз приходится корректировать формулы в столбце S листа TDSheet

[Igor1961]

Так нужно? (см. вложение)
Но если

Данные листа TDSheet2 могут изменяться в колонке В

- то тогда придется корректировать формулу в колонке В листа TDSheet2. Иначе - либо пользовательская функция (см.#3), либо макрос по такому же принципу. Никто же не знает кроме Вас какие варианты могут быть в этой колонке В листа TDSheet2. Могут совпасть номера двух накладных от разных контрагентов и тогда ВПР Вам не поможет, организация понесет убытки и директор будет вынужден Вас уволить

[Iskin]

Спасибо!