关于数据整理

飞天篮球猪

zhouxiao 发表于 2019-1-17 14:29
曾经遇到过相似的例子,我最后是用VBA解决的.
一直想看下Power Query的解决方案,今天看到你的代码,很想学 ...

试试这个

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3. 
   
4.     变 = Table.CombineColumns( 源,
   
5.                                List.Skip(Table.ColumnNames(源),10),
   
6.                                each #table({"商品","数量"},List.Zip(List.Transform({1,0},(x)=>List.Alternate(List.RemoveNulls(_),1,1,x)))),
   
7.                                "a" ),
   
8. 
   
9.     果 = Table.ExpandTableColumn(变, "a", {"商品", "数量"})
   
10. in
    
11.     果

复制代码

飞天篮球猪

zhouxiao 发表于 2019-1-17 14:29
曾经遇到过相似的例子,我最后是用VBA解决的.
一直想看下Power Query的解决方案,今天看到你的代码,很想学 ...

你先看看这个List.Split({1..10},2) 等于 List.Zip(List.Transform({1,0},(x)=>List.Alternate({1..10},1,1,x)))
这两句结果是一样的。
其它代码发了还在审核。。。

zyhqzn

zhouxiao 发表于 2019-1-17 14:29
曾经遇到过相似的例子,我最后是用VBA解决的.
一直想看下Power Query的解决方案,今天看到你的代码,很想学 ...

基本为界面操作，没有用到List.Split

飞天篮球猪

飞天篮球猪 发表于 2019-1-17 14:51
你先看看这个List.Split({1..10},2) 等于 List.Zip(List.Transform({1,0},(x)=>List.Alternate({1..10},1 ...

你测试一下11楼的是否满足你的预期

zhouxiao

飞天篮球猪 发表于 2019-1-17 17:25
你测试一下11楼的是否满足你的预期

感谢,今天花不够了,明天补上

zhouxiao

飞天篮球猪 发表于 2019-1-17 17:25
你测试一下11楼的是否满足你的预期

朋友,能把这句代码解释一下嘛?谢谢
另外下划线"_",替代的那个表?(自定义函数用的少,不理解)
List.Transform({1,0},(x)=>List.Alternate(List.RemoveNulls(_),1,1,x))

飞天篮球猪

zhouxiao 发表于 2019-1-17 21:36
朋友,能把这句代码解释一下嘛?谢谢
另外下划线"_",替代的那个表?(自定义函数用的少,不理解)
List.Trans ...

下划线代表的是之前由Table.CombineColumns所产生的each所对应的list
x传递的是List.Transform({1,0},(x)=>x)  {1,0}中的每一个元素
照理x也可以写成each _, 因为前面有了一个each _,为了表示区分，避免pq识别不清或者上下文冲突
所以写成不一样的了，each _ 和(x)=>x  等价，两处可以互换。

飞天篮球猪

EH怎么老发不出去东西，发出去就重复。

zhouxiao

飞天篮球猪 发表于 2019-1-17 21:45
下划线代表的是之前由Table.CombineColumns所产生的each所对应的list
x传递的是List.Transform({1,0},(x ...

如果要测试这句代码，下划线_可以用什么来代替呢?
我是想看一下运行的结果，写VBA留下的后遗症:(
List.Transform({1,0},(x)=>List.Alternate(List.RemoveNulls(_),1,1,x))

飞天篮球猪

zhouxiao 发表于 2019-1-18 08:38
如果要测试这句代码，下划线_可以用什么来代替呢?
我是想看一下运行的结果，写VBA留下的后遗症:(
List. ...

随意构建一个list就可以，比如  {1..3,null,4,null,5..10}
List.Transform({1,0},(x)=>List.Alternate(List.RemoveNulls({1..3,null,4,null,5..10}),1,1,x))