单例转表格

14820103

如附件描述。

limonet

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    分组 = Table.Group(源, {"列1"}, {"分组", each _},0,(x,y)=>Number.From(y[列1] is number)),
    深转 = Table.TransformColumns(分组,{"分组",each Table.PromoteHeaders(Table.FromRows(List.Zip(List.Transform(Text.Split("名称："&Text.Combine(Table.ToColumns(Table.Skip(_)){0}," ")," "),each Text.Split(_,"：")))))}),
    展开 = Table.ExpandTableColumn(深转, "分组", Table.ColumnNames(深转{0}[分组])),
    添加分类 = Table.AddColumn(展开, "分类", each if Text.Contains([名称],"管理") then "管理" else "技术")
in
    添加分类

limonet

关键字：table.group

eni4

let
    源 = Excel.CurrentWorkbook(){[Name="表3"]}[Content],
    结果 = Table.Combine(List.Transform(Table.Split(源,3),each
                               [a=Table.ToRows(_),b=List.Transform(Text.Split(a{2}{0}," "),(x)=>Text.Split(x,"：")),
                                c={"类别"}&List.Select({"管理","技术"},(y)=>Text.Contains(a{1}{0},y)),
                                d=Table.PromoteHeaders(Table.FromColumns({{"序号",a{0}{0}}}&{{"名称",a{1}{0}}}&b&{c}))][d]))
in
    结果