Выделить дату и номер договора из текста

[S_M]

В столбце "А" длинный список - назначения платежа из платежных поручений типа "Оплата за товар по договору № 37 от 14.08.2009".
Нужно в столбец "B" поместить номер договора, в столбец "С" - дату.

Сложность в том, что назначение платежа может быть и таким: "Оплата за товар по счету 1736 от 18.08.09 по договору № 37 от 14.08.2009". В этом случае, если однозначно решить задачу нельзя, достаточно оставить пустыми ячейки в столбцах "B" и "С" для ручного заполнения. По статистике около 90% платежек можно разобрать автоматически - то есть время ручной обработки сократится в 10 раз.
Можно ли это сделать?

[EducatedFool]

Могу предложить вариант с пользовательскими функциями:

  Ячейка: B1      Формула  (стиль A1):   =ДатаДоговора(A1)
                  Формула  (стиль R1C1): =ДатаДоговора(RC[-1])

  Ячейка: C1      Формула  (стиль A1):   =НомерДоговора(A1)
                  Формула  (стиль R1C1): =НомерДоговора(RC[-2])

Вот весь код:

Function ДатаДоговора(ByVal txt As String)
    If UBound(Split(txt, " от ")) > 1 Then ДатаДоговора = "две или больше дат!!!": Exit Function
    ДатаДоговора = CDate(Trim(Split(txt, " от ")(1)))
End Function

Function НомерДоговора(ByVal txt As String)
    If UBound(Split(txt, " от ")) <> 1 Then НомерДоговора = "не распознано!!!": Exit Function
    arr = Split(Trim(Split(txt, " от ")(0)), " ")
    НомерДоговора = arr(UBound(arr))
End Function

Скачать пример можно по этой ссылке: http://excelvba.ru/XL_Files/Sample__...__15-11-22.zip

[S_M]

Спасибо. Но почему-то у меня Ваш пример не работает: при попытке скопировать формулу вниз в столбцах "В" и "С" появляется ошибка #ИМЯ?
Я что-то не так делаю? У меня Excel-2003 русский.

[DV68]

Для ячейки В1:

=ПСТР(A1;ПОИСК("№";A1)+1;ПОИСК("от";A1)-ПОИСК("№";A1)-1)

Для С1:

=ПРАВСИМВ(A1;10)

[S_M]

Проверил первый пример (на другом компьютере почему-то работает), номер договора на реальной базе распознается хорошо - действительно в 90% случаев.
С датой договора гораздо хуже (15%) - к сожалению, назначение платежа может быть не только "Оплата за товар по договору № 37 от 14.08.2009", но и "За рога и копыта по договору № 37 от 14.08.2009, НДС 172 руб.50 коп.", "В счет гашения договора займа 37 от 14.08.09, без НДС, в т.ч. проценты 10123 руб." и т.д. и т.п. То есть задача - нужно из абсолютно произвольного текста выбрать дату.
Я думаю, лучше распознавать по шаблону типа "##.##.##" или "##.##.####". Причем лучше сделать это макросом, а не функцией. Иначе таблица (в ней сейчас порядка 19 тыс. строк) получается перегруженной, она очень долго пересчитывается. В день добавляется до 200 строк, и макросом прогонять только их будет быстрее (я их могу фильтровать по дате и потом распознавать). Как сделать такой макрос?

[EducatedFool]

Как сделать такой макрос?

Для начала выложите файл со всеми возможными вариантами строк
(чтобы было на чём тестировать макрос)

[S_M]

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

Для начала выложите файл со всеми возможными вариантами строк
(чтобы было на чём тестировать макрос)

Файл выкладываю.