如何拆分成多行

9nine9

飞天篮球猪 发表于 2024-3-3 17:24
打扰了，兄弟。这要下载一个叫 集算器 的软件才可以。

明白了，谢谢您

cnmlgb9998

1. //Unnamed
   
2. let
   
3.   源 = Excel.CurrentWorkbook(){[Name = "表2"]}[Content],
   
4.   逆透视的其他列 = Table.UnpivotOtherColumns(源, {"姓名"}, "属性", "值"),
   
5.   分组的行 = Table.Group(
   
6.     逆透视的其他列,
   
7.     {"姓名"},
   
8.     {{"data", each Table.AddIndexColumn(_, "index", 0, 1, Text.Type)}}
   
9.   ),
   
10.   已添加自定义 = Table.AddColumn(
    
11.     分组的行,
    
12.     "自定义",
    
13.     each Table.AddColumn([data], "Name", (x) => x[姓名] & "/" & Text.From(x[index]))
    
14.   ),
    
15.   删除的其他列 = Table.SelectColumns(已添加自定义, {"自定义"}),
    
16.   #"展开的“自定义”" = Table.ExpandTableColumn(删除的其他列, "自定义", {"属性", "值", "Name"}, {"属性", "值", "Name"}),
    
17.   排序的行 = Table.Sort(#"展开的“自定义”", {{"属性", Order.Ascending}}),
    
18.   已透视列 = Table.Pivot(排序的行, List.Distinct(排序的行[属性]), "属性", "值"),
    
19.   按分隔符拆分列 = Table.SplitColumn(
    
20.     已透视列,
    
21.     "Name",
    
22.     Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv),
    
23.     {"Name.1", "Name.2"}
    
24.   ),
    
25.   更改的类型 = Table.TransformColumnTypes(按分隔符拆分列, {{"Name.1", type text}, {"Name.2", Int64.Type}}),
    
26.   删除的列 = Table.RemoveColumns(更改的类型, {"Name.2"})
    
27. in
    
28.   删除的列

复制代码