let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Даты поступления", type text}, {"Номера заказов (Утв.)", Int64.Type}, {"Позиция", type text}, {"ЕИ", type text}, {"Кол-во в поcтуплении", type text}}),
#"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип", "List", each List.Zip({ Text.Split([Даты поступления], ";"), Text.Split([#"Кол-во в поcтуплении"], ";") }) ),
#"Развернутый элемент List" = Table.ExpandListColumn(#"Добавлен пользовательский объект", "List"),
#"Извлеченные значения" = Table.TransformColumns(#"Развернутый элемент List", {"List", each Text.Combine(List.Transform(_, each if _ = null then "" else Text.From(_)), ";"), type text}),
#"Разделить столбец по разделителю" = Table.SplitColumn(#"Извлеченные значения","List",Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv),{"List.1", "List.2"}),
#"Удаленные столбцы" = Table.RemoveColumns(#"Разделить столбец по разделителю",{"Даты поступления", "Кол-во в поcтуплении"}),
#"Замененное значение" = Table.ReplaceValue(#"Удаленные столбцы","",null,Replacer.ReplaceValue,{"List.1", "List.2"}),
#"Обрезанный текст" = Table.TransformColumns(#"Замененное значение",{{"List.1", Text.Trim, type text}, {"List.2", Text.Trim, type text}}),
#"Переименованные столбцы" = Table.RenameColumns(#"Обрезанный текст",{{"List.1", "Даты поступления"}, {"List.2", "Кол-во в поcтуплении"}})
in
#"Переименованные столбцы" |