数据转换

minchar

都差不多！
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    分组转换 = List.Transform(Table.Split(源,10),each List.FirstN(Record.FieldValues(源{0}),2)&[Data]),
    构成表 = #table(List.FirstN(Table.ColumnNames(源),2)&List.Transform({1..10},each "表头"&Text.From(_)),分组转换)
in
    构成表

kenese

如果后面再追加一些不满10的数据就报错了

tcdatongye

let
    a = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    c=List.Transform(Table.Split(a,10),(x)=>let
      k=Table.TransformColumns(Table.AddIndexColumn(x,"idx",1),{"idx",each Text.From(_) }),
      m= Table.Pivot(k,Table.Column(k,"idx"),"idx","Data")
    in m ),
    t=Table.Combine(c)
in
    t

tcdatongye

kenese 发表于 2024-8-31 20:04
如果后面再追加一些不满10的数据就报错了

这个加上了表头
let
    a = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    c=List.Transform(Table.Split(a,10),(x)=>let
      k=Table.TransformColumns(Table.AddIndexColumn(x,"idx",1),{"idx",each "表头" & Text.From(_) }),
      m= Table.Pivot(k,Table.Column(k,"idx"),"idx","Data")
    in m ),
    t=Table.Combine(c)
in
    t

halosy

tcdatongye 发表于 2024-9-1 19:08
这个加上了表头
let
    a = Excel.CurrentWorkbook(){[Name="表1"]}[Content],

谢谢大佬！

hbzql

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    自定义1 = Table.FromRows(List.Transform(Table.Split(源,10),each {[文件名称]{0}, [日期]{0}}&[Data]),{"文件名称","日期"}&List.Transform({1..10},each "表头"&  Text.From(_)))
in
    自定义1