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

@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 раз, а я сидел фигней какой то занимался)

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. 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? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

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

Решение

Решение

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

	Поиск чисел между символов в тексте и умножение 25.09.2015, 10:32. Показов 1556. Ответов 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