Поиск чисел между символов в тексте и умножение - VBA
Формулировка задачи:
Добрый день!
Такая проблема, есть текст в ячейке, и в нем между определенными символами есть числа, их необходимо умножить на 11.
Пример текста:
RCT -k-|89|-|s0|-|0|-|1|
RCV -k-|7|-|s0|-|1|-|1|
RCC -k-|7|-|s0|-|2|-|14|
Умножить необходимо числа между "-k-|" и "|-|s0|".
Текста в ячейке по 10-15 строк, и самих ячеек тоже немало.
Пробовал вытаскивать число, умножать и совать обратно. Splitом и регулярными, в первом случае получаем 1 число из всей ячейки, а во втором мешанину.
У самого написать нормально поиск не выходит.
Решение задачи: «Поиск чисел между символов в тексте и умножение»
textual
Листинг программы
Sub asd() Dim rn As Range, a$(), aa$() Dim s, i& For Each rn In Selection a = Split(rn, vbLf) For i = 0 To UBound(a) aa = Split(a(i), "|") aa(1) = aa(1) * 11 a(i) = Join(aa, "|") Next i rn = Join(a, vbLf) Next End Sub