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

[amadeus017]

Доброго времени суток, уважаемые форумчане!

Прошу помочь мне разобраться с формулой, все хожу кругами "вокруг да около", не приходит в голову никаких идей.
Суть задачи, получить значение "ИНН" из ячейки, причем длина количество знаков в ИНН, может быть разная, от 1 и более...
(прилагай файл с вариантами формулы)

ЗАДАЧА:
78:ООО "Пряник" /неосновные услуги реализации (аренда)/; Т0545: Прочие коммерческие организации; ИНН: 7800454545; Долгосрочная аренда

НУЖНЫЙ РЕЗУЛЬТАТ:
7800454545

[Serge_Bliznykov]

мой вариант:

=ПСТР(ПСТР(D3;ПОИСК("ИНН: ";D3)+5;30);1;ПОИСК(";";ПСТР(D3;ПОИСК("ИНН: ";D3)+5;30))-1)

p.s. не факт, что оптимально, но зато работает!

[amadeus017]

Большое спасибо!

Главное, чтобы работало! ☺

[amadeus017]

Все работает, если после значения ИИН, еще имеется какой-то текст, но есть значения, когда текста нет, т.е. ИНН, последний в строке, то тогда выдает ошибку #ЗНАЧ!

78:ООО "Пряник" /неосновные услуги реализации (аренда)/; Т0545: Прочие коммерческие организации; ИНН: 7800454545

[Казанский]

=ПСТР(ПСТР(D3;ПОИСК("ИНН: ";D3)+5;30);1;ЕСЛИОШИБКА(ПОИСК(";";ПСТР(D3;ПОИСК("ИНН: ";D3)+5;30))-1;99))

[amadeus017]

Сообщение от Казанский

=ПСТР(ПСТР(D3;ПОИСК("ИНН: ";D3)+5;30);1;ЕСЛИОШИБКА(ПОИСК(";";ПСТР(D3;ПОИСК("ИНН: ";D3)+5;30))-1;99))

Получилось просто значение "ИСТИНА"

[amadeus017]

Не знаю как, но формула "заиграла"... Видимо, что-то от себя добавил ☺

Спасибо всем, за оказанное содействие!!!

[svsh2016]

добрый день,вариант функции в столбце F

Function zzz(t$)
   zzz = Split(StrReverse(Split(StrReverse(t), ";", 2)(1)))(UBound(Split(StrReverse(Split(StrReverse(t), ";", 2)(1)))))
End Function

[svsh2016]

amadeus017,еще вариант функции

Function yyy(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+"
        yyy = .Execute(Split(t)(UBound(Split(t)) - 2))(0)
    End With
End Function

[amadeus017]

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

добрый день,вариант функции в столбце F

Function zzz(t$)
   zzz = Split(StrReverse(Split(StrReverse(t), ";", 2)(1)))(UBound(Split(StrReverse(Split(StrReverse(t), ";", 2)(1)))))
End Function

Очень интересный вариант, но в таких формулах, я не силен...
На самом деле, файл который нужно отработать, то данные искать нужно в столбце "P", а значение полученного "ИНН", проставить нужно в столбце "A" (формулами, можно значение столбцов (букв) переставить, а в коде, нет). К тому же, в столбце "P", есть уже ИНН без всяких других данных, только цифровое значение (это можно через функцию ЕСЛИ решить)

Данный код работает, если его проставить правее от данных через столбец.