一行拆分为多行

janming

求助，
       遇到一个变态表格，需要一行中有“，”逗号的数据拆分为多行，如附件目标结果。

哪位大神能帮忙下，万分感谢！
函数、PQ、宏多可以，只要结果正确就行。

luzwales

你这个B芯片片数分开安装什么逻辑来的，没有“，”啊！

kirete

芯片片数重新计算就行了

luzwales

1. let
   
2.     Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
   
3.     A = let a = Table.SelectColumns(Source,{"B芯片数量", "B芯片片数", "B芯片片号", "B芯片批号"}),
   
4. b = Table.ColumnNames(a),
   
5. c = Table.TransformColumns(a,{{"B芯片数量",each List.RemoveLastN(Text.Split(_,","),1)},{"B芯片片号",each Text.Split(_,",")},{"B芯片片数",each Text.Split(_,",")},{"B芯片批号",each Text.Split(_,",")}})
   
6. in List.Transform(Table.ToRows(c),each
   
7.     let m = Table.Transpose(Table.FromRows(_)),
   
8.         n = Table.ColumnNames(m),
   
9.         o =List.Zip({n,b})
   
10. 
    
11.     in Table.RenameColumns(m,o)
    
12. ),
    
13.     B = let a = Table.RemoveColumns(Source,{"B芯片数量", "B芯片片数", "B芯片片号", "B芯片批号"}),
    
14. b = List.Combine({Table.ColumnNames(a),{"a"}}),
    
15. c = List.Combine({Table.ToColumns(a),{A}})
    
16. in Table.FromColumns(c,b),
    
17.     #"Expanded a" = Table.ExpandTableColumn(B, "a", {"B芯片数量", "B芯片片数", "B芯片片号", "B芯片批号"}, {"a.B芯片数量", "a.B芯片片数", "a.B芯片片号", "a.B芯片批号"})
    
18. in
    
19.     #"Expanded a"

复制代码

luzwales

这个更简单点

1. let
   
2.     Source = Excel.CurrentWorkbook(){[Name="Source"]}[Content],
   
3.     Custom1 = Table.CombineColumns(Source,{"B芯片数量", "B芯片片数", "B芯片片号", "B芯片批号"},each _,"a"),
   
4.     Custom2 = Table.TransformColumns(Custom1,{"a",(t)=> Table.SelectRows(Table.FromColumns(List.Transform(t,each Text.Split(_,",") ),{"B芯片数量", "B芯片片数", "B芯片片号", "B芯片批号"}),each [B芯片片数] <>null)}),
   
5.     result = Table.ExpandTableColumn(Custom2, "a", {"B芯片数量", "B芯片片数", "B芯片片号", "B芯片批号"}, {"B芯片数量", "B芯片片数", "B芯片片号", "B芯片批号"})
   
6. in
   
7.     result

复制代码

junglebell

luzwales 发表于 2022-1-17 18:57
这个更简单点

结果有点问题，你再看看~

junglebell

我的作法。

• let
•     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
•     提取待拆分列 = Table.AddColumn(源,"分拆", each {_[B芯片批号],_[B芯片片数],[B芯片片号],_[B芯片数量]}),
•     自定义2 =
•     Table.TransformColumns(提取待拆分列,
•         {"分拆", each
•         let
•             分拆列 =         List.Transform( _, (x)=>
•                                     [a=  Text.From(x),
•                                     b =  if Text.Contains(a,",") = false then Splitter.SplitTextByRepeatedLengths( Text.Length(Text.From(_{1}) )/List.Count(Text.Split(_{0},",") ) )(Text.From(x))
•                         else Text.Split(x, ","),
•                                     c = List.Transform(b,(StepC)=> if Text.Length(StepC)=0 then null else StepC  ),
•                                     d = List.RemoveNulls(c)
•                                     ][d]
•                                         ),
•             重组列 = List.Zip(分拆列),
•             构造表 = Table.FromRows(重组列,{"B芯片批号","B芯片片数","B芯片片号","B芯片数量"} )
•         in
•             构造表
•                                     }
•                                     ),
•     删除的列 = Table.RemoveColumns(自定义2,{"B芯片批号", "B芯片片数", "B芯片片号", "B芯片数量"}),
•     展开的 = Table.ExpandTableColumn(删除的列, "分拆", {"B芯片批号", "B芯片片数", "B芯片片号", "B芯片数量"}, {"B芯片批号", "B芯片片数", "B芯片片号", "B芯片数量"})
• in
•     展开的
  

junglebell

luzwales 发表于 2022-1-17 13:46
你这个B芯片片数分开安装什么逻辑来的，没有“，”啊！

是的，这原始数据也挺神奇的。但按楼主目前几行资料，可以这么解：
按【B芯片批号】能够拆出来的个数，平均拆分【B芯片片数】。 但万一哪天【B芯片片数】位数不一样，那就没法解了。

junglebell

luzwales 发表于 2022-1-17 18:57
这个更简单点

你帖子里面回复的代码格式是怎么调的。我发上来乱七八糟的的。

luzwales

junglebell 发表于 2022-1-19 13:33
你帖子里面回复的代码格式是怎么调的。我发上来乱七八糟的的。

不是有代码吗？
插入代码，在代码里面写