Разные, в 12 строке например.
Здесь естественно только маленький кусочек базы приведен, в оригинале там десятки тысяч строк.

Не надо пояснять, я сам понял почему:) Потому что там должны быть логические значения, а не просто варианты искомого текста.

...то никакая формула не угадает, какие там варианты могут быть еще... Появится какая-нибудь закорючка, которая в формуле не предусмотрена... А если будет в тексте: "ИНН этого объекта-субъекта ИНН 111111" или какое-нибудь "ДЛИННОШЕЕЕ"- пиши пропало.
Универсальным может быть макрос, который будет проверять наличие слова или фрагмента "ИНН", определять. что после него находится, вычленять из текста только числовое значение.

Формулу такую тоже можно соорудить, но
и на таких данных книга повесится и будет уговаривать пользователя последовать за ней

Если нужен ИНН с хвостиком, то

Вот тут же на форуме нашел вариант формулы с извлечением из строки всей последовательности цифр, идущих одна за другой.
Может кому пригодится потом, кто через поиск темы сюда придет.

Массивная функция:


Пример во вложении.

Найдено решение, через ИИ


Sub ExtractINN_Simple()
   Dim rng As Range, cell As Range
   Dim s As String, inn As String
   Dim i As Long, j As Long
   Dim result As String, outCell As Range
   
   If TypeName(Selection) = "Range" Then
       Set rng = Selection
   Else
       Set rng = ActiveSheet.UsedRange
   End If
   
   Application.ScreenUpdating = False
   
   For Each cell In rng
       If cell.Value <> "" Then
           s = cell.Value
           result = ""
           i = 1
           Do While i <= Len(s)
               ' Проверяем, является ли символ цифрой
               If Mid(s, i, 1) Like "#" Then
                   ' Ищем 10 или 12 цифр подряд
                   For j = 10 To 12 Step 2
                       If i + j - 1 <= Len(s) Then
                           inn = Mid(s, i, j)
                           ' Проверяем, что это только цифры
                           If inn Like String(j, "#") Then
                               ' Проверяем, что перед ИНН не цифра (или начало строки)
                               Dim beforeOK As Boolean, afterOK As Boolean
                               beforeOK = (i = 1) Or (Not Mid(s, i - 1, 1) Like "#")
                               afterOK = (i + j > Len(s)) Or (Not Mid(s, i + j, 1) Like "#")
                               
                               If beforeOK And afterOK Then
                                   If result <> "" Then result = result & vbLf
                                   result = result & inn
                                   i = i + j - 1
                                   Exit For
                               End If
                           End If
                       End If
                   Next j
               End If
               i = i + 1
           Loop
           
           If result <> "" Then
               Set outCell = cell.Offset(0, 1)
               outCell.Value = result
               outCell.WrapText = True
           End If
       End If
   Next cell
   
   Application.ScreenUpdating = True
   MsgBox "Готово! ИНН извлечены."
End Sub

Ещё вариант

ещё можно икать после слова ИНН

Здравствуйте.
Ещё вариант:Но если в тексте будут ещё числа, кроме ИНН, то результат будет не верный. В файле есть ещё вариант, для исключения этой ошибки, но он длиннее и точно не знаю, от всех ли ошибок защитит.

Msi2102, belsergey, теряются ведущие нули
для примера можно и так:
=СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПСТР(A2;НАЙТИ("ИНН";A2)+3;13));")";" ");",";" ");" ";"  ");12))
или
=ПСТР(A2;НАЙТИ("ИНН";A2)-ЕОШ(НАЙТИ("ИНН ";A2))+4;12-2*ЕОШ(-ПСТР(A2;НАЙТИ("ИНН";A2)-ЕОШ(НАЙТИ("ИНН ";A2))+14;1)))
ну и Мгновенное заполнение справилось после коррекции двух значений. Только скопировать надо вместе буквами (ИНН 0000000000). Далее можно Текст по столбцам...