把下面的料号挪到后面

shufeabb

如何把属于它下面的料号转到后面去.zip (8.17 KB, 下载次数: 17)

2023-10-18 21:09 上传

点击文件名下载附件

quqiyuan

shufeabb

我后面是想到了一个方法，但是如果只有一行的就不行。
let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Branch Plant", type any}, {"  Level", type number}, {"  Item Number/Branch", type text}, {"Flash Message", type any}, {"  Description", type any}, {"Column1", type any}, {"S/B", type text}}),
    #"Added Conditional Column" = Table.AddColumn(#"Changed Type", "Top", each if [#"  Level"] = 0 then [#"  Item Number/Branch"] else null),
    #"Added Conditional Column1" = Table.AddColumn(#"Added Conditional Column", "Top-Descriptions", each if [#"  Level"] = 0 then [#"  Description"] else null),
    #"Added Conditional Column2" = Table.AddColumn(#"Added Conditional Column1", "Top-Level", each if [#"  Level"] = 0 then [#"S/B"] else null),
    #"Filled Down" = Table.FillDown(#"Added Conditional Column2",{"Top", "Top-Descriptions", "Top-Level"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Down", each ([Branch Plant] = null or [Branch Plant] = 380) and ([#"  Level"] = 0.2 or [#"  Level"] = 1)),
    #"Reordered Columns" = Table.ReorderColumns(#"Filtered Rows",{"Branch Plant", "Top", "Top-Descriptions", "Top-Level", "  Level", "  Item Number/Branch", "Flash Message", "  Description", "Column1", "S/B"}),
    #"Removed Columns" = Table.RemoveColumns(#"Reordered Columns",{"Flash Message"})
in
    #"Removed Columns"

shufeabb

quqiyuan 发表于 2023-10-18 22:57

可以帮忙附上EXCEL file吗？谢谢

quqiyuan

文件参考。。。。

shufeabb

为啥我下载下来刷新会出错呢？我还在用土土的office 2016，是版本问题吗？

shufeabb

quqiyuan 发表于 2023-10-19 07:36
文件参考。。。。

帮忙再看一下，文件不能刷新。这M函数太复杂了，我看不懂

quqiyuan

shufeabb 发表于 2023-10-20 06:24
帮忙再看一下，文件不能刷新。这M函数太复杂了，我看不懂

我这里都正常，我的版本是M365中文版，没有2016英文版，所以不知道问题所在，你把所有的中文改为英文试试。否则也没有办法啦，我没办法试。

gxg1000

Office 2019版

一江春水1688

二楼高手！

在office 2016的PQ中，使用二楼代码出错的原因是函数Table.Skip(_)，需要2个参数，1个参数会出错！需写成如下：
Table.Skip(_,1)，意思是跳过1行
而office 365中，跳过1行，可以省略第2个参数，office2016不能省略。
改写后代码如下：

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     筛选的行 = Table.SelectRows(源, each ([#"  Level"] <> null)),
   
4.     分组的行 = Table.Group(筛选的行, "  Level", {{"a", each Table.FromRows(List.Transform(
   
5.                     {0..if List.Count(Table.ToRows(Table.Skip(_,1)))=0 then 0 else List.Count(
   
6.                         Table.ToRows(Table.Skip(_,1)))-1},(m)=> try Table.ToRows(Table.FirstN(_,1)){0}
   
7.                                 &Table.ToRows(Table.Skip(_,1)){m} otherwise Table.ToRows(Table.FirstN(_,1)){0}))}},
   
8.                                     0,(x,y)=>Number.From(y=0)),
   
9.     合并=  Table.Combine(分组的行[a])
   
10. in
    
11.     合并

复制代码