Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 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  
 
Всем добрый день!

К уже решенному вопросу есть дополнение - зловредный банк поменял формулировки в выписках и прекрасно работающая ранее формула больше не работает :evil:

При этом иногда в выписках появляются и старые формулировки - т.е. нужно, чтоб работал старый расчет и одновременно новый.

Помогите, пожалуйста, это осуществить.
 
=--SUBSTITUTE(LEFT(SUBSTITUTE(MID(D4;FIND("комисси";D4)+9;99);" ";REPT(" ";15));15);".";MID(1/2;2;1))
=--SUBSTITUTE(LEFT(SUBSTITUTE(MID(D4;FIND("удержан";D4)+10;99);" ";REPT(" ";15));15);".";MID(1/2;2;1))
Изменено: БМВ - 7 Июн 2019 11:17:05
 
БМВ, спасибо огромное!
 
Посмотрите здесь https://www.planetaexcel.ru/techniques/7/4844/
Страницы: 1
Читают тему (гостей: 1)
Наверх