Страницы: 1
RSS
Перенос из ячейки выборочный текст
 
Есть текст из ЕГРЮЛ

644024, ОМСКАЯ ОБЛАСТЬ, ОМСК ГОРОД, КРАСНЫХ ЗОРЬ УЛИЦА, 19, ОГРН: 1025500972881, Дата присвоения ОГРН: 22.08.2002, ИНН: 5504037369, КПП: 550401001, ГЕНЕРАЛЬНЫЙ ДИРЕКТОР: Моисеенко Любовь Давыдовна

Как из ячейки А1 найти дату присвоения ОГРН перенести ее в соседнюю ячейку B1
Изменено: Дмитрий Бухарев - 07.09.2022 09:18:03
 
Код
ОГРН:
=ПСТР(A1;ПОИСК("ОГРН: ";A1)+6;13)
Дата:
=ПСТР(A1;ПОИСК("Дата присвоения ОГРН: ";A1)+22;10)

=ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A1;",";"</i><i>")&"</i></j>";"//i[contains(.,'Дата')]")
Изменено: Тимофеев - 07.09.2022 09:28:27
 
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5  6      ОГРН:    =ПСТР(A1;ПОИСК(  "ОГРН: "  ;A1)+6;13)    Дата:    =ПСТР(A1;ПОИСК(  "Дата присвоения ОГРН: "  ;A1)+22;10)       =ФИЛЬТР.XML(  "<j><i>"  &ПОДСТАВИТЬ(A1;  ","  ;  "</i><i>"  )&  "</i></j>"  ;  "//i[contains(.,'Дата')]"  )   
 
Спасибо, но как это все в Exell вставить? Это макрос?
 
Цитата
Дмитрий Бухарев написал:
но как это все в Exell вставить?
Выделяйте формулы, копируйте и вставляйте. Формулы начинаются с символа "=", если нужно, то после вставки поменяйте ссылки
Цитата
Дмитрий Бухарев написал:
Это макрос?
Это всё формулы
Изменено: Msi2102 - 07.09.2022 11:03:37
 
Цитата
написал:
Цитата
Дмитрий Бухарев написал:
но как это все в Exell вставить?
Выделяйте формулы, копируйте и вставляйте. Формулы начинаются с символа "=", если нужно, то после вставки поменяйте ссылки
Цитата
Дмитрий Бухарев написал:
Это макрос?
Это всё формулы
Ок. Спасибо!
 
Цитата
написал:
ОГРН:=ПСТР(A1;ПОИСК("ОГРН: ";A1)+6;13)Дата:=ПСТР(A1;ПОИСК("Дата присвоения ОГРН: ";A1)+22;10) =ФИЛЬТР.XML("  "&ПОДСТАВИТЬ(A1;",";"  ")&"  ";"//i[contains(.,'Дата')]")
Вставил, пишет ЗНАЧ, где то ошибся?
 
А у Вас "А1" на каком языке написаны?
 
Цитата
написал:
А у Вас "А1" на каком языке написаны?
Открыл новый файл, скопировал в него текст с ЕГРЮЛ. Вставил формулу. Все заработало. По языку А1 непонятно, я копирую формулу из сообщения форума.
 
Спасибо коллеги. Все работает.
Страницы: 1
Наверх