Транспонировать из горизонтали в вертикаль. - Страница 2

Вход

Регистрация

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

= Мир MS Excel/Транспонировать из горизонтали в вертикаль. - Страница 2 - Мир MS Excel

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

Транспонировать из горизонтали в вертикаль. (Формулы/Formulas)

Транспонировать из горизонтали в вертикаль.

прохожий2019

Дата: Суббота, 22.08.2026, 22:40 | Сообщение № 21

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

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

Сообщений: 1423

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

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

365 Beta Channel

Цитата msi2102, 21.08.2026 в 11:33, в сообщении № 18 (

)

через PQ

[vba]

Код

let
    from = Table.PromoteHeaders(Excel.Workbook(File.Contents(Table.FirstValue(Excel.CurrentWorkbook(){[Name="adres"]}[Content]))){[Name="Лист1"]}[Data]),
    nms = Table.ColumnNames(from),
    to = Table.SelectColumns(Table.UnpivotOtherColumns(from,List.FirstN(nms,4),"a","t"),{nms{1},"t"})
in
    to

[/vba] или на списках [vba]

Код

let
    from = Table.PromoteHeaders(Excel.Workbook(File.Contents(Table.FirstValue(Excel.CurrentWorkbook(){[Name="adres"]}[Content]))){[Name="Лист1"]}[Data]),
    to = Table.FromList(List.TransformMany(Table.ToList(from,(x)=>x),(x)=>List.RemoveNulls(List.Skip(x,4)),(x,y)=>{x{1},y}),(x)=>x)
in
    to

[/vba]