：：：求助::: 提取排列

wbgogo

请指教！！ 见附件！ 谢谢！

cnmlgb9998

1. //Unnamed
   
2. let
   
3.       源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
   
4.       自定义1 = List.RemoveNulls(List.Combine(Table.ToColumns(源))),
   
5.       转换为表 = Table.FromList(自定义1),
   
6.       分组的行 = Table.Group(
   
7.             转换为表,
   
8.             "Column1",
   
9.             {"计数", each Table.FromRows({[Column1]})},
   
10.             1,
    
11.             (x, y) =>
    
12.                   [
    
13.                         fx = (a) =>
    
14.                               List.Sum(
    
15.                                     List.Transform(
    
16.                                           Text.ToList(Text.BeforeDelimiter(a, "[")),
    
17.                                           Character.ToNumber
    
18.                                     )
    
19.                               ),
    
20.                         ex = fx(x) - fx(y)
    
21.                   ][ex]
    
22.       ),
    
23.       自定义2 = Table.ReplaceValue(
    
24.             分组的行,
    
25.             "",
    
26.             "",
    
27.             (x, y, z) => Text.Select(x, {"一" .. "龥"}),
    
28.             {"Column1"}
    
29.       ),
    
30.       自定义3 = 自定义2,
    
31.       #"展开的“计数”" = Table.ExpandTableColumn(
    
32.             自定义3,
    
33.             "计数",
    
34.             {"Column1", "Column2", "Column3", "Column4"},
    
35.             {"Column1.1", "Column2", "Column3", "Column4"}
    
36.       ),
    
37.       转置表 = Table.Transpose(#"展开的“计数”"),
    
38.       提升的标题 = Table.PromoteHeaders(转置表, [PromoteAllScalars = true]),
    
39.       更改的类型 = Table.TransformColumnTypes(
    
40.             提升的标题,
    
41.             {
    
42.                   {"张三", type text},
    
43.                   {"李四", type text},
    
44.                   {"王五", type text},
    
45.                   {"孙悟空", type text},
    
46.                   {"陈白白", type text}
    
47.             }
    
48.       )
    
49. in
    
50.       更改的类型

复制代码

cnmlgb9998

用PQ吧。没那么多复杂难懂的函数 要记！ 就像搭积木一样，很方便，要怎么样，就能怎么样！

excel玉米

limonet

函数也是excel的精华：=FILTER(TOCOL($B6:$E15,3),ISNUMBER(FIND(H4,TOCOL($B6:$E15,3))))

这个年纪118

11111111111111

limonet

多用用公式，公式写出来就要审核。

wbgogo

limonet 发表于 2024-3-19 12:42
函数也是excel的精华：=FILTER(TOCOL($B6:$E15,3),ISNUMBER(FIND(H4,TOCOL($B6:$E15,3))))

我的版本不支持哦。。。谢谢

wbgogo

excel玉米 发表于 2024-3-19 12:37

张三[5]       
张三[122]               
张三[2]               
张三[22]
------下边你做的结果顺序不对。
张三[5]
张三[2]
张三[122]
张三[22]               

wbgogo

cnmlgb9998 发表于 2024-3-19 12:33

我想学excel vba 的结果。。。