Excel同一个单元格内多项内容如何自动分行

李树梁

原始文件是这样的，我希望有一个方法能批量分行变成下面这样，

李树梁

补充提交一下 表格原件

^星^

做成压缩包就可以了

zpy2

//select rowid,f03,f04,f05,f06,f07 from ConsolidateSheet where rowid>16 and rowid<389 limit 5;

create temp table aa as
select rowid old_rowid,f03,f04,replace(f05,char(10),'#@') f05,replace(f06,char(10),'#@') f06,replace(f07,char(10),'#@') f07 from ConsolidateSheet where rowid>16 and rowid<389 ;

cli_split_data_m~aa~#@;
//select * from aasplit;
create temp table bb as
select  old_rowid,f03,f04,fillna(iif(f05<>'',rowid,'')) grp,f05,f06,f07 from aasplit where f06<>'' or f07<>'';
cli_no_header;
select f03,f04,f05,udf_trim(group_concat(f06,'; '),'; '),group_concat(f07,'<br>') from bb group by f03,f04,grp order by old_rowid;

https://s11.ax1x.com/2024/03/03/pFBQcOf.jpg
https://e.anyoupin.cn/EData/?s=1198

李树梁

zpy2 发表于 2024-3-3 16:05
//select rowid,f03,f04,f05,f06,f07 from ConsolidateSheet where rowid>16 and rowid16 and rowid

老师 您好，这段代码的使用方式方法可否 进一步告知？感谢&#128591;

zpy2

李树梁 发表于 2024-3-4 08:31
老师 您好，这段代码的使用方式方法可否 进一步告知？感谢&#128591;

https://club.excelhome.net/forum.php?mod=viewthread&tid=1679471&page=1&mobile&_dsign=772c0d77
表格过滤 需要 填写一下 CLAIM,你这里隐藏了其他表

cnmlgb9998

1. let
   
2.   源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
   
3.   更改的类型 = Table.TransformColumnTypes(
   
4.     源,
   
5.     {
   
6.       {"CHASSIS ", type text},
   
7.       {"DATE", type date},
   
8.       {"LOCATION", type text},
   
9.       {"TYPE OF ISSUE  &#(lf)DESCRIPTION", type text},
   
10.       {"Immediate corrective action ", type text}
    
11.     }
    
12.   ),
    
13.   去除的文本 = Table.TransformColumns(
    
14.     更改的类型,
    
15.     {
    
16.       {"LOCATION", Text.Trim, type text},
    
17.       {"TYPE OF ISSUE  &#(lf)DESCRIPTION", Text.Trim, type text},
    
18.       {"Immediate corrective action ", Text.Trim, type text}
    
19.     }
    
20.   ),
    
21.   自定义1 = List.Accumulate(
    
22.     List.Skip(Table.ColumnNames(去除的文本), 2),
    
23.     去除的文本,
    
24.     (x, y) => Table.TransformColumns(x, {y, each Text.Split(_, Text.Repeat("#(lf)", 2))})
    
25.   ),
    
26.   已添加自定义 = Table.AddColumn(
    
27.     自定义1,
    
28.     "自定义",
    
29.     each Table.FromColumns(
    
30.       {[LOCATION], [#"TYPE OF ISSUE  &#(lf)DESCRIPTION"], [#"Immediate corrective action "]},
    
31.       List.Skip(Table.ColumnNames(去除的文本), 2)
    
32.     )
    
33.   ),
    
34.   删除的其他列 = Table.SelectColumns(已添加自定义, {"CHASSIS ", "DATE", "自定义"}),
    
35.   #"展开的“自定义”" = Table.ExpandTableColumn(
    
36.     删除的其他列,
    
37.     "自定义",
    
38.     {"LOCATION", "TYPE OF ISSUE  &#(lf)DESCRIPTION", "Immediate corrective action "},
    
39.     {"LOCATION", "TYPE OF ISSUE  &#(lf)DESCRIPTION", "Immediate corrective action "}
    
40.   )
    
41. in
    
42.   #"展开的“自定义”"

复制代码

cnmlgb9998

PQ 能完美解决。代码如上

李树梁

上面的例子我都经过反复尝试 但是连门口都没找到，有没有简单一点的方法？

李树梁

问题已经解决了，谢谢楼上的答复，请关闭本帖