按不同分隔拆分为多行，拆分后的原始行的“金额”字段值非重复

weitiantian · 发表于 2025-3-13 14:53

求助
1. 拆分项目字段
将“项目”字段按不同分隔拆分为多行，每行对应一个子项目。
2. 拆分后的每一行均携带原始行的“金额”字段值，而非重复或拆分该字段
按不同分隔拆分为多行，拆分后的原始行的“金额”字段值非重复.png

ronminqin · 发表于 2025-3-13 15:28

你好你看看这样可以不

ronminqin · 发表于 2025-3-13 15:32

解题思路.去掉汉字.获取符号
然后利用拆分获取列,,然后利用符号列,去获取文字列
最后展开

limonet · 发表于 2025-3-13 15:57

let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
分裂 = Table.ExpandListColumn(Table.TransformColumns(源, {"项目", Splitter.SplitTextByAnyDelimiter({"/", "、","_","+"}, QuoteStyle.Csv)}), "项目"),
判断替换 = Table.ReplaceValue(分裂,null,each [项目],(x,y,z)=>if List.PositionOf(源[项目],z,0,(a,b)=>Text.StartsWith(a,b))=-1 then null else x,{"金额"})
in
判断替换

limonet · 发表于 2025-3-13 15:59

关键字：table.replacevalue

eni4 · 发表于 2025-3-13 16:44

= Table.Combine(Table.ToList(源,each [a=Text.SplitAny(_{1},"/、_+"),b=Table.FillDown(Table.FromColumns({{_{0}},a,{_{2}},{_{3}}},Table.ColumnNames(源)),{"单号","摘要"})]))

deadzlq · 发表于 2025-3-13 16:51

PQ参考解法

eni4 · 发表于 2025-3-13 19:24

Table.ToList + Text.SplitAny

hbzql · 发表于 2025-3-14 16:24

let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
拆分 = Table.TransformColumns(源,{"项目",each Text.SplitAny(_,"/、_+")}),
展开 = Table.ExpandListColumn(拆分,"项目"),
清除金额 = Table.Combine(Table.Group(展开,"单号",{"分组",each Table.FromRecords({Table.First(_)})&Table.TransformColumns(Table.Skip(_),{"金额",each null})})[分组])
in
清除金额

cnmlgb9998 · 发表于 2025-3-14 22:26

提示: 作者被禁止或删除内容自动屏蔽

用户名		自动登录	找回密码
密码			免费注册

[求助] 按不同分隔拆分为多行，拆分后的原始行的“金额”字段值非重复

评分

评分

浏览过的版块

cnmlgb9998 cnmlgb9998 当前离线性别保密 UID 4294431 阅读权限 0 注册时间 2019-9-29 在线时间小时最后登录 1970-1-1 积分 2260 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2025-3-14 22:26 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 按 不同分隔拆分为多行， 拆分后的原始行的“金额”字段值非重复

评分

评分

浏览过的版块

[求助] 按不同分隔拆分为多行，拆分后的原始行的“金额”字段值非重复