数据按换行符拆分并填充至多行

大自在天

pxy0409

感慨一下:源表很独特!!本人无力应对......
4楼的公式层次(reduce lambda),比5楼pq层次,还要多,放弃了!

sayhi95

高版本堆火车，供参考

1. =REDUCE(A1:E1,A2:A5,LAMBDA(x,y,LET(t,OFFSET(y,,,,2),VSTACK(x,IFNA(HSTACK(t,TEXTSPLIT(OFFSET(y,,2),,CHAR(10)),TEXTSPLIT(OFFSET(y,,3),,CHAR(10)),TEXTSPLIT(OFFSET(y,,4),,CHAR(10))),t)))))

复制代码

sayhi95

再简化一点

1. =REDUCE(A1:E1,A2:A5,LAMBDA(x,y,LET(t,OFFSET(y,,,,2),VSTACK(x,IFNA(HSTACK(t,DROP(REDUCE(0,{2,3,4},LAMBDA(m,n,HSTACK(m,TEXTSPLIT(OFFSET(y,,n),,CHAR(10))))),,1)),t)))))

复制代码

wintroop

方法一：菜单操作（见附件动图）
1）把EXCEL数据复制到WORD
2）把WORD中的数据复制回EXCEL（选择匹配目标格式）
3）把材料编码列格式化为文本格式
4）选择A3:B10,按F5或者CTRL+G定位空单元格，然后在公式栏输入=A3，最后按CTRL+回车


方法二：PQ解法

part98

1. =REDUCE(A1:E1,A2:A5,LAMBDA(x,y,LET(t,OFFSET(y,,,,2),VSTACK(x,IFNA(HSTACK(t,DROP(REDUCE("",OFFSET(y,,2,,3),LAMBDA(a,b,HSTACK(a,TEXTSPLIT(b,,CHAR(10))))),,1)),t)))))

复制代码

E学子

推火车~

1. =REDUCE(A1:E1,A2:A5,LAMBDA(x,y,VSTACK(x,CHOOSE({1,2,3,4,5},y,OFFSET(y,,1),TEXTSPLIT(OFFSET(y,,2),,CHAR(10)),TEXTSPLIT(OFFSET(y,,3),,CHAR(10)),TEXTSPLIT(OFFSET(y,,4),,CHAR(10))))))

复制代码

hcm19522

H2:I10{=INDEX(A:A,SMALL(IF(LEN($C$2:$C$5)-LEN(SUBSTITUTE($C$2:$C$5,CHAR(10),))+1>=COLUMN($A:$Z),ROW($2:$5),99),ROW(A1)))&""

J2:L10=IF($H2="","",TRIM(MID(SUBSTITUTE(VLOOKUP($H2,$A:$F,COLUMN(C1),),CHAR(10),REPT(" ",99)),COUNTIF($H$2:$H2,$H2)*99-98,99)))

pxy0409

wintroop 发表于 2024-6-24 15:58
方法一：菜单操作（见附件动图）
1）把EXCEL数据复制到WORD
2）把WORD中的数据复制回EXCEL

    pq解法,理解起来比公式稍好一点,还是学习这种方法吧:
已添加自定义 = Table.AddColumn(源, "自定义", each
[a=List.Zip({Text.Split([#"原料名称/规格/单位"],"#(lf)"),Text.Split([原料数量],"#(lf)"),Text.Split([#"采购单价#(lf)(含税)"],"#(lf)")}),
b=List.Transform(a,each Text.Combine(_,"|"))]
),

wintroop

pxy0409 发表于 2024-6-24 16:32
pq解法,理解起来比公式稍好一点,还是学习这种方法吧:
已添加自定义 = Table.AddColumn(源, "自定 ...

PQ解法2，优化了一下


let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    已添加自定义 = Table.AddColumn(源, "自定义", each
[a=List.Zip({Text.Split([#"原料名称/规格/单位"],"#(lf)"),Text.Split([原料数量],"#(lf)"),Text.Split([#"采购单价#(lf)(含税)"],"#(lf)")}),
b=Table.FromRows(a,{"原料名称/规格/单位","原料数量","采购单价(含税)"})]
),
    选择列 = Table.SelectColumns(已添加自定义,{"材料编码", "材料名称", "自定义", "备注"}),
    展开 = Table.ExpandTableColumn(选择列, "自定义", {"原料名称/规格/单位", "原料数量", "采购单价(含税)"})
in
    展开