Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Вычленить из текста числа
 
Добрый день!

Помогите, пожалуйста, выделить суммы комиссии из текста.
У меня в наличии очень большая выписка банка, вручную нереально считать.

Текст везде типа такого (в разных ячейках), даты и номера договоров меняются, т.е. текст все время разный:
Перевод на ***, в том числе комиссия банка 49 руб. 00 коп.
Перевод средств по договору *** по Реестру Операций от 31.03.2019. Сумма комиссии 44584 руб. 67 коп., НДС не облагается.

Нужно получить на выходе цифры: 49 и 44584,67
 
Добрый. Покажите в файле-примере - вот как есть (в каких ячейках этот текст), вот как нужно (в какие ячейки, в каком виде надо выдернуть числа. А то в текстовом режиме помогать очень долго. :)
Кому решение нужно - тот пример и рисует.
 
Пытливый, в файлике часть выгрузки
 
=--TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(LEFT(B2;FIND(" коп.";B2)-1);" руб. ";MID(1/2;2;1));" ";REPT(" ";99));99))
Изменено: БМВ - 16 Май 2019 12:33:42
 
UDF
Код
Function цифры(t$, p$)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        .Pattern = p
        цифры = .Execute(t)(0)
    End With
End Function


формула: =цифры(B2;"\d+(?=\sруб)")+цифры(B2;"\d+(?=\sкоп)")%
Каждому For свой Next
 
Можно как-то так, макросом:
Скрытый текст
Кому решение нужно - тот пример и рисует.
 
Спасибо, спасители мои :D  
Страницы: 1
Читают тему (гостей: 1)
Наверх