按要求插入空行

yao_ashuai

要求如附件

sayhi95

都是13个，偷鸡，供参考

dambcer

_________________________________________

minchar

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    表头 = #table(Table.ColumnNames(源),{List.Repeat({null},6),Table.ColumnNames(源)}),
    分组 = Table.Split(源,13),
    遍历连接 = Table.Skip(Table.Combine( List.Transform(分组,each Table.Combine({表头,_}))),2)
in
    遍历连接

quqiyuan

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    a=Table.Combine(List.Transform(Table.Split(源,13),each Table.Transpose(Table.AddColumn(Table.Transpose(Table.DemoteHeaders(_)),"a",each null))))
in
    a

yao_ashuai

Table.Split(源,13)  这里的13未必就一定是13，有些可能是6或者10之类的，所以是在要出现1的位置上面两行插入空行

hbzql

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     分组 = Table.Group(源,"A",{"分组",each {{},Table.ColumnNames(_)}&Table.ToRows(_)},0,(x,y)=>Number.From(y=1)),
   
4.     聚合 = Table.FromRows(List.Skip(List.Combine(分组[分组])))
   
5. in
   
6.     聚合

复制代码

尘土1

1. <div class="blockcode"><blockquote>let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     构建2条纪录 = {Record.FromList(List.Repeat({""},List.Count(Table.ColumnNames(源))),Table.ColumnNames(源)),Record.FromList(Table.ColumnNames(源),Table.ColumnNames(源))},
   
4.     完成 = List.Accumulate(List.Sort(List.Skip(List.PositionOf(源[A],1,2)),-1),源,(x,y)=>Table.InsertRows(x,y,构建2条纪录))
   
5. in
   
6.     完成

复制代码

maoxiong1999

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    a = Table.Combine(Table.Group(源,"A",{"t",each [m=Table.DemoteHeaders(_),n=#table(Table.ColumnNames(m),
        {List.Repeat({""},Table.ColumnCount(_))})& m][n]},0,(x,y)=>Byte.From(y=1))[t]),
    b = Table.PromoteHeaders(Table.Skip(a))
in
    b

xieshudi

= Table.Group(筛选的行,"A",{"分组",each _ & #table({"A","B","C","D","E","F"},{{"","","","","",""},{"A","B","C","D","E","F"}})},0,(x,y)=>Number.From(y=1))