连接数据如何拆分

killalls

袁勇 发表于 2024-2-29 16:27

感谢大神，能否麻烦你把代码粘出来？

袁勇

killalls 发表于 2024-2-29 16:37
感谢大神，能否麻烦你把代码粘出来？

新建 XLSX 工作表.zip (19.15 KB, 下载次数: 5)

2024-2-29 16:54 上传

点击文件名下载附件

我的城市你来过

killalls 发表于 2024-2-29 16:22
感谢大神哈，我先弄好365再试试

WPS就可以了，新增了好多动态函数，365要钱，WPS免费

evluan01

py水个

killalls

evluan01 发表于 2024-2-29 17:07
py水个

大神非常的6

killalls

袁勇 发表于 2024-2-29 16:27

感谢大神，亲测可以，且把PO号后面的数字也清除了，更牛逼

evluan01

PO号后面数量剔除

cnmlgb9998

1. let
   
2.   源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
   
3.   更改的类型 = Table.TransformColumnTypes(源, {{"PO号", type text}, {"数量", Int64.Type}}),
   
4.   已添加自定义 = Table.AddColumn(
   
5.     更改的类型,
   
6.     "拆",
   
7.     each Table.FromColumns(
   
8.       [
   
9.         a = Text.Split(Text.Replace([PO号], "//", "/"), "/"),
   
10.         b = List.Count(a),
    
11.         c =
    
12.           if b > 1 then
    
13.             List.Zip(List.Transform(a, each Text.Split(_, " ")))
    
14.           else
    
15.             {{[PO号]}, {[数量]}}
    
16.       ][c],
    
17.       {"PO号2", "数量2"}
    
18.     )
    
19.   ),
    
20.   删除的列 = Table.RemoveColumns(已添加自定义, {"数量", "PO号"}),
    
21.   #"展开的“拆”" = Table.ExpandTableColumn(删除的列, "拆", {"PO号2", "数量2"}, {"PO号2", "数量2"}),
    
22.   重排序的列 = Table.ReorderColumns(#"展开的“拆”", {"货柜号", "SKU", "数量2", "PO号2"})
    
23. in
    
24.   重排序的列

复制代码

Holiday2022

最适合Power Query来做这个，鼠标点点就实现了。用函数的话得上reduce。得空了（三天之内）我写个Power Query的教程给你。在这之前，我先跟各位老师学一下redece和vba是怎么解决这个问题的

Holiday2022

使用Power Query解决，拆分行是Power Query的特色功能。

视频操作，请见：https://www.bilibili.com/video/BV1Wy421i7Ao/

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     更改的类型 = Table.TransformColumnTypes(源,{{"货柜号", type text}, {"SKU", type text}, {"数量", Int64.Type}, {"PO号", type text}}),
   
4.     按分隔符拆分列 = Table.ExpandListColumn(Table.TransformColumns(更改的类型, {{"PO号", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "PO号"),
   
5.     更改的类型1 = Table.TransformColumnTypes(按分隔符拆分列,{{"PO号", type text}}),
   
6.     筛选的行 = Table.SelectRows(更改的类型1, each ([PO号] <> "")),
   
7.     已插入分隔符之后的文本 = Table.AddColumn(筛选的行, "分隔符之后的文本", each Text.AfterDelimiter([PO号], " "), type text),
   
8.     已添加条件列 = Table.AddColumn(已插入分隔符之后的文本, "自定义", each if [分隔符之后的文本] = "" then [数量] else if [分隔符之后的文本] <> "" then [分隔符之后的文本]  else null),
   
9.     重排序的列 = Table.ReorderColumns(已添加条件列,{"货柜号", "SKU", "数量", "自定义", "PO号", "分隔符之后的文本"}),
   
10.     删除的列 = Table.RemoveColumns(重排序的列,{"数量", "分隔符之后的文本"}),
    
11.     重命名的列 = Table.RenameColumns(删除的列,{{"自定义", "数量"}}),
    
12.     更改的类型2 = Table.TransformColumnTypes(重命名的列,{{"数量", type number}})
    
13. in
    
14.     更改的类型2

复制代码