Разделение текста на отдельные части

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Разделение текста на отдельные части (Формулы/Formulas)

Chelovekov

Дата: Суббота, 22.04.2023, 12:06 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 315

Репутация: 0 ±

Замечаний: 80% ±

Excel 2016

Здравствуйте, Уважаемые Форумчане. Прошу, Вас помочь, решить проблему. Нужно разделить текст в одной таблице, и полученный результат, перенести в другую таблицу.
Пример прилагаю
Заранее благодарен.

К сообщению приложен файл: primer_teksta.xlsx (12.4 Kb)

Сообщение отредактировал Chelovekov - Суббота, 22.04.2023, 12:07

Ответить

msi2102

Дата: Суббота, 22.04.2023, 13:00 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 415

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

можно так:
для команды 1
[vba]

Код

=ПСТР(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(A2;" - ";"</s><s>")&"</s></t>";"//s[1]");18;99)

[/vba]
для команды 2
[vba]

Код

=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(A2;" - ";"</s><s>")&"</s></t>";"//s[2]");";";"</s><s>")&"</s></t>";"//s[1]")

[/vba]
для счёта
[vba]

Код

=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ($B2&"|";",";"|,");",";"</s><s>")&"</s></t>";"//s["&ЦЕЛОЕ(СТОЛБЕЦ(B$1)/2)&"]");"|";"");":";"</s><s>")&"</s></t>";"//s["&ОСТАТ(СТОЛБЕЦ(B$1);2)+1&"]")

[/vba]

К сообщению приложен файл: primer_teksta_1.xlsx (13.2 Kb)

Ответить

прохожий2019

Дата: Суббота, 22.04.2023, 13:48 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1298

Репутация: 327 ±

Замечаний: 0% ±

365 Beta Channel

PQ
[vba]

Код

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    f=(x)=>Text.Split(Text.BetweenDelimiters(x," ",";",1)," - "),
    g=(x)=>List.RemoveMatchingItems(Text.SplitAny(x," ,:"),{"",null}),
    to = Table.FromList(Table.ToList(from,(x)=>f(x{0})&g(x{1})),(x)=>x)
in
    to

[/vba]