如何自动拆分零件途径站点，并标注起、始点

LV草地

提前感谢各位大神！

我们公司要分析物料在各个仓库的流量，需要”根据流程描述（见附件source data页中的B列）将每颗物料拆在新页面（analyzing页）里根据物料经过的站点拆分成单行，并在每行中标出 起点 和 终点 。”

下载附件后直接将后缀改成".xlsx"即可打开。

再次感谢各位大神支持！

原始数据：


希望生成的数据格式：

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, cr, i&, j&, r&
   
    Application.ScreenUpdating = False
   
    ar = Sheets(1).[A1].CurrentRegion.Value
    ReDim br(1 To 10 ^ 3, 1 To 3)
    For i = 2 To UBound(ar)
        cr = Split(ar(i, 2), "/")
        For j = 0 To UBound(cr) - 1
            r = r + 1
            br(r, 1) = ar(i, 1)
            br(r, 2) = cr(j)
            br(r, 3) = cr(j + 1)
        Next j
    Next i
   
    [A1].CurrentRegion.Offset(1).Clear
    [A2].Resize(r, 3) = br
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

^星^

物料流拆解分析表.zip (17.28 KB, 下载次数: 10)

2024-3-1 20:35 上传

点击文件名下载附件

LV草地

gwjkkkkk 发表于 2024-3-1 20:30
请参考。。。

大神，你太牛了！能用！

能否请教一下怎么修改参数，比如source data里引用列修改。以便我后期自己调整。


感谢！

shiruiqiang

cnmlgb9998

1. let
   
2.   源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
   
3.   更改的类型 = Table.TransformColumnTypes(源, {{"Part No.", type text}, {"Materialflow", type text}}),
   
4.   已添加自定义 = Table.AddColumn(
   
5.     更改的类型,
   
6.     "拆",
   
7.     each Table.FromColumns(
   
8.       [
   
9.         a = Text.Split([Materialflow], "/"),
   
10.         b = List.Range(a, 0, List.Count(a) - 1),
    
11.         c = List.Range(a, 1, List.Count(a) - 1),
    
12.         d = {b, c}
    
13.       ][d],
    
14.       {"Start", "End"}
    
15.     )
    
16.   ),
    
17.   #"展开的“拆”" = Table.ExpandTableColumn(已添加自定义, "拆", {"Start", "End"}, {"Start", "End"}),
    
18.   删除的列 = Table.RemoveColumns(#"展开的“拆”", {"Materialflow"})
    
19. in
    
20.   删除的列

复制代码

cnmlgb9998

PQ 简单。看我的。

1. let
   
2.   源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
   
3.   更改的类型 = Table.TransformColumnTypes(源, {{"Part No.", type text}, {"Materialflow", type text}}),
   
4.   已添加自定义 = Table.AddColumn(
   
5.     更改的类型,
   
6.     "拆",
   
7.     each Table.FromColumns(
   
8.       [
   
9.         a = Text.Split([Materialflow], "/"),
   
10.         b = List.Range(a, 0, List.Count(a) - 1),
    
11.         c = List.Range(a, 1, List.Count(a) - 1),
    
12.         d = {b, c}
    
13.       ][d],
    
14.       {"Start", "End"}
    
15.     )
    
16.   ),
    
17.   #"展开的“拆”" = Table.ExpandTableColumn(已添加自定义, "拆", {"Start", "End"}, {"Start", "End"}),
    
18.   删除的列 = Table.RemoveColumns(#"展开的“拆”", {"Materialflow"})
    
19. in
    
20.   删除的列

复制代码

gwjkkkkk

LV草地 发表于 2024-3-1 20:38
大神，你太牛了！能用！

能否请教一下怎么修改参数，比如source data里引用列修改。以便我后期自己调 ...

根据引用数据，折分第二列数据，大致这个意思。

ykcbf1100

参与一下。。。