Страницы: 1
RSS
Извлечение данных из ячейки с большим объемом данных, Извлечение данных
 
Добрый вечер.
Столкнулся со следующей проблемой.

Необходимо из ячейки в Excel вытащить значения. Необходимые значения выделены красным цветом.
Необходимо из ячеек вытащить значения площадей и дат регистрации после следующего текста:
1. Перед площадью всегда стоит текст:
- является собственником квартиры общей площадью
- являются собственниками квартиры общей площадью
2. Перед датой регистрации стоит текст:
- о чем в Едином государственном реестре недвижимости
3. Перед площадью на одного человека всегда стоит текст:
- на одного человека составляет​

Подскажите пож-та, не знаете как их можно достать?
Файл в приложении.
Заранее огромное спасибо.
 
Необходимые значения - не все вытаскиваются на основании Вашего алгоритма. Проще (если знаешь, как) и надежнее - макрос или UDF сделать.
Формулами для примера вытащил первые значения. Дальше - сами пробуйте.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
сейчас Kuzmich придёт с Regular Expression и UDF. Это он любит )
Изменено: New - 23.11.2020 18:40:55
 
Добрый!
прикола ради вариант на pq
 
Антон, Михаил. Спасибо. Классно получилось.  
 
Цитата
о чем в Едином государственном реестре недвижимости
у вас три даты 10.08.2006 , 25.06.2019 и 03.04.2018
Почему выделена только одна дата?
Для площади
UDF
Код
Function GetSq_total(cell As Range) As String
Dim t As String
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "(является собственником квартиры общей площадью )(\d+,\d+ кв. м)"
       GetSq_total = .Execute(cell)(0).Submatches(1)
    End With
End Function
Function GetSq(cell As Range) As String
Dim t As String
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "(является собственником квартиры площадью жилого помещения )(\d+,\d+ кв. м)"
       GetSq = .Execute(cell)(0).Submatches(1)
    End With
End Function
Изменено: Kuzmich - 23.11.2020 19:52:02
 
В большом тексте можно искать слова с буквой "зю", текст с упоминанием изготовления самогона, закрашенные буквы серобуромалиновым... это все - УСЛОВИЯ.
Задача этой темы какая? Название темы предлагайте. Заменят модераторы
 
Спасибо всем большое. Очень помогли.
 
А Вы помочь форуму не хотите.
Страницы: 1
Наверх