Table.ToList 列合并转换案例

本期案例前后转换效果如下：

解题套路

（一）Table.ToList

1.使用压缩函数，获得数据与标题一一对应的关系，还要加一步筛选不为0 的步骤。这个操作类似先进行降标题，然后转换成内含列的列表，这个将在第二个套路中进行说明：

Table.ToList(源,each List.Select(List.Zip({Table.ColumnNames(源),_}),each _{1}<>0))

2.对筛选的结果进行遍历转换。针对首项包含下划线的列表直接替换成首项拆分后的结果，其余的保持不变，然后转换为表：

Table.ToList(源,each Table.FromColumns(List.Transform(List.Select(List.Zip({Table.ColumnNames(源),_}),each _{1}<>0),each if Text.Contains(_{0},"_") then List.ReplaceRange(_,0,2,Text.Split(_{0},"_")) else _)))

3.提升标题，合并列表：

Table.Combine(Table.ToList(源,each Table.PromoteHeaders(Table.FromColumns(List.Transform(List.Select(List.Zip({Table.ColumnNames(源),_}),each _{1}<>0),each if Text.Contains(_{0},"_") then List.ReplaceRange(_,0,2,Text.Split(_{0},"_")) else _)))))

（二）Table.ToColumns

1.对每一行进行遍历转换，筛选符合条件的数据，除了结合Table.Split函数操作外，还可以结合分组等函数进行操作：

List.Transform(Table.Split(源,1),each List.Select(Table.ToColumns(Table.DemoteHeaders(_)),each _{1}<>0))

2.还是一样的操作，对于首项包含下划线的列表，替换成首项的拆分结果，其余保持不变，并转换为表：

Table.Combine(List.Transform(Table.Split(源,1),each Table.PromoteHeaders(Table.FromColumns(List.Transform(List.Select(Table.ToColumns(Table.DemoteHeaders(_)),each _{1}<>0),each if Text.Contains(_{0},"_") then Text.Split(_{0},"_") else _)))))

（三）Table.Pivot

先依据产品和价格进行逆透视，删除不符合条件的行数据；接着直接对包含下划线的数据进行列拆分，直接获得新列；最后依据标题字段进行透视处理：

let tab=Table.SplitColumn(Table.RemoveColumns(Table.RemoveMatchingRows(Table.UnpivotOtherColumns(源,{"Product","Price"},"a","b"),{[b=0]},"b"),"b"),"a",each Text.Split(_,"_"),{"a","b"}) in Table.Pivot(tab,List.Distinct(tab[a]),"a","b")

（四）List.Accumulate

对于列合并，有列合并函数，本案例中是连续的多列合并，因此考虑到与ACC进行组合使用。

通过ACC对标题字段进行分组，分组结果刚好可以作为列合并函数的第二参数使用。这里针对数据1、0的选择，可以将获得的标题与其进行压缩操作，这样就获得了与上述降标题、转成列表的效果。

List.Accumulate(List.Skip(Table.ColumnNames(源),2)&{"A"},{源,{}},(x,y)=>if x{1}={} or Text.Contains(y,Text.BeforeDelimiter(List.Last(x{1}),"_")) then {x{0},x{1}&{y}} else {Table.CombineColumns(x{0},x{1},each Text.AfterDelimiter(List.Select(List.Zip({x{1},_}),each _{1}=1){0}{0},"_"),Text.BeforeDelimiter(x{1}{0},"_")),{y}}){0}

以上是本期内容。