Поиск чисел между символов в тексте и умножение

@led000 · Регистрация: 25.09.2015

Студворк — интернет-сервис помощи студентам

Добрый день!
Такая проблема, есть текст в ячейке, и в нем между определенными символами есть числа, их необходимо умножить на 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 число из всей ячейки, а во втором мешанину.
У самого написать нормально поиск не выходит.

@Апострофф · 25.09.2015, 10:38

led000, файл приложите ([Расширенный режим] -> Скрепка)

@led000 · 25.09.2015, 10:47 **[ТС]**

К сожаления полноценный документ приложить не могу, но вот максимально похожий Пример.xlsx.

@Апострофф · 25.09.2015, 10:52

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

умножать и совать обратно

Я правильно понял, что результат умножения должен оказаться на месте найденного значения (или куда выводить результат)?

@led000 · 25.09.2015, 10:54 **[ТС]**

Да все верно, результат должен быть на месте числа которое берем.

Аксима · 25.09.2015, 11:11

led000, для начала предлагаю такой вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub MultiplyKeys()
    Dim cell As Range, i As Long, s() As String
    With Sheets("Лист1") 'Операции производим на листе "Лист1". Если в оригинальной книге лист другой, надо изменить имя в кавычках.
        For Each cell In .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)) 'Обрабатываем все ячейки непрерывного диапазона со второй строки до последней строки данных.
            s = Split(cell, "|") 'Разбиваем строку в ячейке по символам "|".
            For i = 1 To UBound(s) Step 8: s(i) = 11 * s(i): Next 'Все числа умножаем на 11.
            cell = Join(s, "|") 'Собираем строку обратно из частей.
        Next cell
    End With
End Sub

Потестируйте и скажите, то ли это, что нужно.

@Апострофф · 25.09.2015, 11:14

Выделяем обрабатываемый диапазон и пробуем...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
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

Добавлено через 2 минуты

Не по теме:

Не угнаться за молодыми и резвыми, старею:(

@led000 · 25.09.2015, 11:19 **[ТС]**

Спасибо большое все работает, грустно только смотреть, что все оказывается проще в 1000 раз, а я сидел фигней какой то занимался)

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

Поиск чисел между символов в тексте и умножение

Решение

Решение

@led000 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 4

	Поиск чисел между символов в тексте и умножение 25.09.2015, 10:32. Показов 1560. Ответов 7 Метки нет (Все метки) Добрый день! Такая проблема, есть текст в ячейке, и в нем между определенными символами есть числа, их необходимо умножить на 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 число из всей ячейки, а во втором мешанину. У самого написать нормально поиск не выходит. 0

@Апострофф 9908 / 3923 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	25.09.2015, 10:38
	led000, файл приложите ([Расширенный режим] -> Скрепка) 0

@led000 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 4
	25.09.2015, 10:47 [ТС]
	К сожаления полноценный документ приложить не могу, но вот максимально похожий Пример.xlsx. 0

@led000 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 4
	25.09.2015, 10:54 [ТС]
	Да все верно, результат должен быть на месте числа которое берем. 0

@led000 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 4
	25.09.2015, 11:19 [ТС]
	Спасибо большое все работает, грустно только смотреть, что все оказывается проще в 1000 раз, а я сидел фигней какой то занимался) 0

Опции темы