Поиск значения в ячейке

[svsh2016]

amadeus017,премущество таких формул простота,для их перемещения
вырезаете столбец и вставляете в другой столбец,например функция yyy
в столбце A

[svsh2016]

amadeus017,еще вариант функции в столбце H

Function yyy1(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
    yyy1 = .Execute(t)(.Execute(t).Count - 1)
 End With
End Function

[amadeus017]

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

amadeus017,еще вариант функции в столбце H

Function yyy1(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
    yyy1 = .Execute(t)(.Execute(t).Count - 1)
 End With
End Function

А вот это, очень интересно!!!

[Казанский]

Тогда уж так

Function Inn(t$) As String
Static re As Object
  If re Is Nothing Then
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "ИНН: (\d+)"
  End If
  With re.Execute(t)
    If .Count Then Inn = .Item(0).submatches(0)
  End With
End Function