关于多行转一行的问题

sandays

cnmlgb9998 发表于 2024-11-28 21:02
PQ 方案。。。。。。。。。。。

感谢！，我要去学一下PowerQuery，这么强大。

无关岁月

感觉写复杂了，不过应该能用

1. =LET(_a,SCAN(0,TOCOL(REGEXEXTRACT(REGEXREPLACE(CONCAT(BYROW(A:.D=0,AND)/1),"1\K1","0"),".",1)),SUM),DROP(REDUCE("",UNIQUE(_a),LAMBDA(_x,_y,IFNA(VSTACK(_x,TOROW(IF((_a=_y)*(A:.D<>""),A:.D,x),3)),""))),1))

复制代码

jiangxiaoyun

供参考

mykitami

=LET(a,BYROW(A1:D14,LAMBDA(x,AND(x=""))),b,VSTACK("",DROP(a,-1)),c,SCAN(0,a<>b,SUM),DROP(REDUCE("",UNIQUE(c),LAMBDA(x,y,LET(s,FILTER(A1:D14,c=y),IF(AND(s=""),x,IFNA(VSTACK(x,TOROW(s,1)),""))))),1))

edwin11891

既然不能直接将单元格内容合并，那就采用引用的方法（前面部分借用了7楼老师的方法）：

1. =LET(t,TEXTSPLIT(CONCAT(BYROW(A1:D14,LAMBDA(x,IF(OR(x>0),CONCAT(MAP(x,LAMBDA(y,IF(y>0,ROW(y)&","&COLUMN(y)&";","")))),"/")))),";","/",1,,""),fx,LAMBDA(x,INDIRECT(ADDRESS(TEXTBEFORE(x,","),TEXTAFTER(x,",")))),s,DROP(REDUCE("",SEQUENCE(ROWS(t)),LAMBDA(x,y,VSTACK(x,LET(a,CHOOSEROWS(t,y),MAP(a,LAMBDA(y,fx(y))))))),1),IFNA(s,""))

复制代码

sandays

无关岁月 发表于 2024-11-28 21:24
感觉写复杂了，不过应该能用

在您的指导下，初步有了思路。
是我的示例有点少，误导了您，中间的空行可能为1行或多行，当空行大于2行时，您的正则替换会出现bug。

dambcer

无关岁月

sandays 发表于 2024-11-28 21:44
在您的指导下，初步有了思路。
是我的示例有点少，误导了您，中间的空行可能为1行或多行，当空行大于2行 ...

这样应该就没问题了

zwzc

=LET(scr,A1:D20,aa,BYROW(scr,LAMBDA(x,IF(CONCAT(x)<>"",ROW(x),""))),a,SEQUENCE(ROWS(scr))&"-"&aa,b,SCAN(0,a,LAMBDA(x,y,IF(TEXTAFTER(y,"-")<>"",SUBSTITUTE(RIGHT(x,6),"-",""),x&"-"&y))),c,HSTACK(b,scr),d,FILTER(c,aa<>""),e,TAKE(d,,1),f,DROP(d,,1),g,DROP(IFNA(REDUCE("",UNIQUE(e),LAMBDA(x,y,VSTACK(x,IFERROR(TOROW(IF(FILTER(f,e=y)=0,0/0,FILTER(f,e=y)),3),"")))),""),1),g)

开个火车

jiangxiaoyun

=LET(n,SCAN(1,A1:A14,LAMBDA(x,y,LET(m,OFFSET(y,0,0,1,4),IF(COUNTA(m)>0,x,x+1)))),p,UNIQUE(n),q,IFERROR(REDUCE("",p,LAMBDA(a,b,VSTACK(a,IFERROR(TOROW(FILTER(A1:D14,n=b),3),"")))),""),FILTER(q,TAKE(q,,1)<>""))




文件有函数和VBA

求助贴.zip (17.19 KB, 下载次数: 1)

2024-11-29 09:55 上传

点击文件名下载附件