如何抓取关键词生成一列

pjypl1688888

cnmlgb9998 发表于 2024-11-19 13:02
纯手工是无法搞定的！建议你，先学习PQ  M代码。不然，你永远不会

是的，谢谢老师

土匪远

供参考，有点绕，思路是找出接单、日期、标题、末尾这四个位置，然后进行分离重组。

let
    源 = Excel.CurrentWorkbook(){[Name="系统导出优化单"]}[Content],
    自定义1 = List.Transform(源[Column2],each try Text.Contains(_,"接单") otherwise 2),
    日期位置 = List.PositionOf(自定义1,2,2),
    自定义3 = List.Transform(源[Column2],each try if Text.Contains(_,"接单") then 1 else 0 otherwise 2),
    接单位置 = List.PositionOf(自定义3,1,2),
    类别 = List.Transform({0..List.Count(接单位置)-1},each List.Range(源[Column5],接单位置{_},日期位置{_}-接单位置{_})),
    末位位置 = List.Skip(接单位置)&{Table.RowCount(源)},
    主表 = List.Transform({0..List.Count(接单位置)-1},each Table.PromoteHeaders(Table.Range(源,日期位置{_}+1,末位位置{_}-日期位置{_}-1), [PromoteAllScalars=true])),
    类别填充 = List.Transform({0..List.Count(类别)-1},each List.Zip(List.Repeat({类别{_}},Table.RowCount(主表{_})))),
    合并 = Table.Combine(List.Transform(List.Zip({List.Transform(主表,each Table.ToColumns(_)),类别填充}),each Table.FromColumns(List.Combine(_))))
in
    合并

pjypl1688888

土匪远 发表于 2024-11-19 14:25
供参考，有点绕，思路是找出接单、日期、标题、末尾这四个位置，然后进行分离重组。

let

谢谢老师，

hbzql

let
    源 = Excel.CurrentWorkbook(){[Name="系统导出优化单"]}[Content],
    局部分组 = Table.Group(源,"Column5",{{"系列",each [Column5]{1}},{"分组",each Table.PromoteHeaders(Table.Skip(_,each [Column3]=null))}},0,(x,y)=>Number.From(Text.Contains(Text.From(y)??"","-"))),
    展开表格 = Table.RenameColumns(Table.ExpandTableColumn(局部分组,"分组",Table.ColumnNames(局部分组[分组]{0})),{{"Column5","订单号"}})
in
    展开表格