Парсинг в строки текста из ячеек

Парсинг в строки текста из ячеек, Парсинг в строки

Пользователь

Сообщений: 14 Регистрация: 21.04.2021

02.09.2026 14:09:15

Уважаемые мастера экселя, выручайте!

Застряла на парсинге, не могу сообразить как расписать записи сразу по двум столбцам. Нужно чтобы записи из полей "статус" и "временные диапазоны" разнеслись по строкам по каждому заказу. Решить нужно через Power Query.
Пример что есть и что надо получить прикладываю.

Спасибо!

Прикрепленные файлы

парсинг3.xlsx (133.33 КБ)

nilske

Пользователь

Сообщений: 1783 Регистрация: 30.11.2018

02.09.2026 15:05:14

почти красиво сделать помог ИИ, но начинал с самостоятельных попыток )

Код

let
    source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    
    splitColumns = Table.TransformColumns(source, {
        {"Статусы", Splitter.SplitTextByDelimiter(" - ", QuoteStyle.Csv), type {text}},
        {"Временные диапазоны", Splitter.SplitTextByDelimiter(" - ", QuoteStyle.Csv), type {text}}
    }),
    
    addZipped = Table.AddColumn(splitColumns, "Temp", each 
        Table.FromColumns({[Статусы], [Временные диапазоны]}, {"Статусы", "Временные диапазоны"})
    ),
    
    // Удаляем исходные столбцы-списки перед расширением
    removeOriginal = Table.RemoveColumns(addZipped, {"Статусы", "Временные диапазоны"}),
    
    expandTable = Table.ExpandTableColumn(removeOriginal, "Temp", {"Статусы", "Временные диапазоны"})
in
    expandTable

Alex

Пользователь

Сообщений: 1100 Регистрация: 13.04.2023

02.09.2026 15:50:12

Ирина Григорьева, здравствуйте. Еще вариант:

Код

let
    f = (tab)=> [
        a = Table.SelectColumns(tab, nms),
        b = Table.ToList(a, (x)=>List.Transform(x,(y)=> Text.Split(y,"-"))),
        d = Table.FromColumns( b{0}, nms)
    ][d],
    src = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    nms = List.Skip( Table.ColumnNames(src),1),
    g = Table.Group(src, {"Номер заказа"}, {{"Количество", each f(_)}}),
    exp = Table.ExpandTableColumn(g, "Количество", nms, nms)
in
    exp

Прикрепленные файлы

парсинг3.xlsx (139.48 КБ)

sotnikov

Пользователь

Сообщений: 732 Регистрация: 29.01.2016

02.09.2026 16:17:36

pq
let f=(x)=>List.Transform(List.Zip(g(x)),(y)=>{x{0}}&y), g=(x)=>List.Transform(List.Skip(x),(y)=>Text.Split(y," - ")), from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], lst = List.Combine(Table.ToList(from,f)), to = Table.FromList(lst,(x)=>x,Value.Type(from)) in to

Sanja

Модератор

Сообщений: 21180 Регистрация: 10.01.2013

02.09.2026 17:23:16

VBA

Прикрепленные файлы

парсинг3.xlsm (143.63 КБ)

Согласие есть продукт при полном непротивлении сторон

ПавелW

Пользователь

Сообщений: 3878 Регистрация: 09.01.2023

excel 2007, 2016, 2021

02.09.2026 17:39:15

д.массив

memo Пользователь Сообщений: 1661 Регистрация: 28.02.2018 Excel 2013/2016	#7 02.09.2026 19:38:13 Вариант со старыми формулами для разнообразия. Прикрепленные файлы парсинг3.xlsx (138.16 КБ)

Ирина Григорьева Пользователь Сообщений: 14 Регистрация: 21.04.2021	#8 03.09.2026 12:39:40 Спасибо огромное! Очень выручили, возьму на заметку и VBA, и PQ, и через простые формулы.

Читают тему