求大神 - power query 客户资料整合处理

minghuey

求助各位大神，我有一张Excel sheet，想用power query自动整合处理 客户资料 。
同时上传了 相关 的 excel file , 求大神用power query 帮忙 。

求解 ：
一下是数据源 ：
1）单位号 ：是客户订购的单位代码
2) Attribute : 内有
     a） purchaser(s)             --> 对应客户 姓名
     b） NRIC  客户资料         --> 对应客户 NRIC
3) 客户资料 对应相对的客户资料 。


主要出现的问题是 有些单位 有 只有一个业主 ， 有些 单位 有两位， 或 两位以上的业主

现在 想有 power query 的 方式 来 达到 以下 要求 :

bjzzxhzl

为了动态的标题，导致代码的长度比结构转换还长
let
    源 = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    分组 = Table.Group(源,"单位号",{{"t",each _},{"r",each {[单位号]{0}}&[客户资料]}}),
    标题 = List.Accumulate(List.Max(分组[t],null,Table.RowCount)[Attribute],{"单位号"},(x,y)=>let p=Text.Replace(y,"(s)","") in x&{Text.Format("#{0}(#{1})",{p,List.Count(List.Select(x,each Text.Contains(_,p)))+1})             }),
    结果 = Table.FromColumns(List.Zip(分组[r]),标题)
in
    结果

minghuey

bjzzxhzl 大神 ，r 出现 error ..请问是什么问题 ？

渡渡orz

Power Query Help.rar (22.49 KB, 下载次数: 1)

2023-7-9 10:39 上传

点击文件名下载附件

maoxiong1999

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    a = Table.Group(源,"单位号",{"t",each Table.FromRecords({[单位号=[单位号]{0}]&Record.Combine(
        List.Accumulate(List.Split([客户资料],2),{{},1},(x,y)=>[m=Number.ToText(x{1},"00"),n={x{0}
        &{Record.FromList({y{0},y{1}},{"Purchaser(s)"&m,"NRIC"&m})},x{1}+1}][n]){0})})}),
    b = Table.Combine(a[t])
in
    b

14820103

渡渡orz 发表于 2023-7-9 10:40

老师，为啥要先写一个自定义函数啊？

minghuey

谢谢大大  ， 问题已经得到 答案 谢谢

xbq

let
    源 = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    分组的行 = Table.Group(源, {"单位号", "Attribute"}, {{"资料", each Text.Combine([#"客户资料 "],"/"), type text}}),
    已透视列 = Table.Pivot(分组的行, List.Distinct(分组的行[Attribute]), "Attribute", "资料"),
    按分隔符拆分列 = Table.SplitColumn(已透视列, "Purchaser(s)", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), {"Purchaser(s).1", "Purchaser(s).2", "Purchaser(s).3"}),
    按分隔符拆分列1 = Table.SplitColumn(按分隔符拆分列, "NRIC", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), {"NRIC.1", "NRIC.2", "NRIC.3"}),
    逆透视的其他列 = Table.UnpivotOtherColumns(按分隔符拆分列1, {"单位号"}, "属性", "值"),
    已插入分隔符之后的文本 = Table.AddColumn(逆透视的其他列, "分隔符之后的文本", each Text.AfterDelimiter([属性], "."), type text),
    排序的行 = Table.Sort(已插入分隔符之后的文本,{{"单位号", Order.Ascending}, {"分隔符之后的文本", Order.Ascending}, {"属性", Order.Descending}}),
    删除的列 = Table.RemoveColumns(排序的行,{"分隔符之后的文本"}),
    已透视列1 = Table.Pivot(删除的列, List.Distinct(删除的列[属性]), "属性", "值")
in
    已透视列1