Поиск чисел между символов в тексте и умножение - 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

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы