麻烦大神将上边格式不一的数据转换成下边的格式，感谢！

714719084

→ 麻烦大神将上边格式不一的数据转换成下边的格式，感谢！

tony@cq

这样可否？

714719084

tony@cq 发表于 2020-11-27 11:25
这样可否？

大神，第一个款号没有撞料哦~第二跟第三个款号的面料成分空了，维护方法也空，有办法都填写上去嘛？

tony@cq

714719084 发表于 2020-11-27 11:32
大神，第一个款号没有撞料哦~第二跟第三个款号的面料成分空了，维护方法也空，有办法都填写上去嘛？

在原稿的基础上，略微改了一点。

714719084

tony@cq 发表于 2020-11-27 15:17
在原稿的基础上，略微改了一点。

大神，维护方法下面的两列内容是怎么放到上面一列去的？

tony@cq

714719084 发表于 2020-11-27 16:06
大神，维护方法下面的两列内容是怎么放到上面一列去的？

手工在原稿上改的，如果固定也行。

714719084

tony@cq 发表于 2020-11-27 17:11
手工在原稿上改的，如果固定也行。

如果数据源有上万个，手动改就头大了~··我只在一大批数据里摘取了几个出来做案例，还有很多个这样的数据需要转化

tony@cq

714719084 发表于 2020-11-27 17:19
如果数据源有上万个，手动改就头大了~··我只在一大批数据里摘取了几个出来做案例，还有很多个这样的数 ...

那就单独选出来处理后再加上

ziying35

这个问题, 你之前不是问过一次了吗?我已经上传了附件, 还没有通过审核

ziying35

1. // output
   
2. let
   
3.     Source = Excel.CurrentWorkbook(){[Name="表2"]}[Content],
   
4.     rows = List.Buffer(Table.ToList(Source)&{"款号"}),
   
5.     n = List.Count(rows),
   
6.     gen = List.Generate(
   
7.               ()=>
   
8.               {null, {}, null},
   
9.               each (_{0}<n)?? true,
   
10.               each  let i=_{0}+1??0
    
11.                     in {
    
12.                           i,
    
13.                           if Text.StartsWith(rows{i}, "款号") then { Text.Trim(rows{i}, {" ",""""})} else _{1}&{Text.Trim(rows{i}, {" ",""""})},
    
14.                           if _{1}={} then null
    
15.                                      else if Text.StartsWith(rows{i}, "款号")
    
16.                                           then let row_inn=List.RemoveItems(_{1}, {"", "合格证"}),
    
17.                                                    trans=fnTrans(row_inn),
    
18.                                                    tbl=let lists=List.Zip(trans) in Table.FromRows({lists{1}}, lists{0})
    
19.                                                in tbl else null
    
20.                        },
    
21.                     
    
22.               each _{2}
    
23.           ),
    
24.     tbl = Table.Combine(List.RemoveNulls(gen)),
    
25.     result = Table.ReorderColumns(tbl, List.Sort(Table.ColumnNames(tbl), each List.PositionOf(ord_list, _, 0, (x,y)=>Text.Contains(y,x))))
    
26. in
    
27.     result
    
28. 
    
29. // fnTrans
    
30. (row_inn)=>
    
31. List.Accumulate(
    
32.     row_inn,
    
33.     {{}, {}},
    
34.     (s,c)=>if s{0}={} then {c, {}}
    
35.            else if Text.Contains(c, "：") then {c, s{1}&{  Text.Split(s{0}, "：")}}
    
36.                 else {s{0}&c, s{1}}){1}&{{"零售价", null}}
    
37. 
    
38. // ord_list
    
39. let
    
40.     Source = {"款号", "执行", "品类", "技术", "品名", "号型", "质量", "检验员", "产地", "成分", "维护", "注", "零售价"}
    
41. in
    
42.     Source

复制代码