Разделение текста

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Разделение текста - Мир MS Excel

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

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

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

Разделение текста

Chelovekov

Дата: Воскресенье, 16.04.2023, 16:05 | Сообщение № 1

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

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

Сообщений: 315

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

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

Excel 2016

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

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

Ответить

DrMini

Дата: Воскресенье, 16.04.2023, 18:45 | Сообщение № 2

Группа: Друзья

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

Сообщений: 1877

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

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

Excel LTSC 2024 RUS

Цитата Chelovekov, 16.04.2023 в 16:05, в сообщении № 1 (

)

Нужно разделить текст в одной таблице, и полученный результат, перенести в другую таблицу.

Получилось местами громоздко.

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

Ответить

прохожий2019

Дата: Воскресенье, 16.04.2023, 20:28 | Сообщение № 3

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

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

Сообщений: 1298

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

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

365 Beta Channel

pq
[vba]

Код

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

[/vba]

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

Сообщение отредактировал прохожий2019 - Воскресенье, 16.04.2023, 20:29

Ответить

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

Страница 1 из 1
1