公式能不能实现上下行不相同间插入相应的空行

ty1014 · 发表于 2025-7-6 08:01

本帖最后由 ty1014 于 2025-7-6 08:03 编辑

表中类别不相同时插入相应的行，公式能不能实现

沈默00 · 发表于 2025-7-6 08:14

07版，，，？
VBA试试

ty1014 · 发表于 2025-7-6 08:26

沈默00 发表于 2025-7-6 08:14
07版，，，？
VBA试试

VBA是可以的，就是想看看公式有没有这功能

沈默00 · 发表于 2025-7-6 08:28

ty1014 发表于 2025-7-6 08:26
VBA是可以的，就是想看看公式有没有这功能

老版函数估计没多少希望，，新版倒可以试试堆一堆，，
所以说优选VBA，，解决问题是关键

ＷＳＣ123 · 发表于 2025-7-7 13:37

本帖最后由ＷＳＣ123 于 2025-7-7 15:47 编辑

=LET(W,TAKE(GROUPBY(数据!B3:B38,数据!A3:A38,MAX,,0),,-1),A,HSTACK(MAP(数据!A3:A38,LAMBDA(X,IF(ISNUMBER(MATCH(X,W,0)),1,0))),数据!$A$3:$H$38),B,HSTACK(K4:K15/0,K4:L15,EXPAND("",12,4),M4:M15),C,IFERROR(VSTACK(REDUCE(0,数据!A3:A38,LAMBDA(M,N,VSTACK(M,WRAPROWS(HSTACK(DROP(INDEX(A,N),,1),IF(INDEX(A,N,1)=1,TOROW(FILTER(B,LEFT(CHOOSECOLS(B,2))=INDEX(A,N,3))),"")),8)))),TAKE(B,-1)),""),FILTER(C,CHOOSECOLS(C,2)<>""))

ＷＳＣ123 · 发表于 2025-7-7 16:38

ＷＳＣ123 发表于 2025-7-7 13:37
=LET(W,TAKE(GROUPBY(数据!B3:B38,数据!A3:A38,MAX,,0),,-1),A,HSTACK(MAP(数据!A3:A38,LAMBDA(X,IF(ISNUMB ...

再优化公式=LET(W,LET(K,UNICODE(数据!B3:B38),DROP(FREQUENCY(UNIQUE(K),K-1),1)),A,HSTACK(W,数据!$A$3:$H$38),B,HSTACK(K4:K15/0,K4:L15,EXPAND("",12,4),M4:M15),C,IFERROR(VSTACK(REDUCE(0,数据!A3:A38,LAMBDA(M,N,VSTACK(M,WRAPROWS(HSTACK(DROP(INDEX(A,N),,1),IF(INDEX(A,N,1)=1,TOROW(FILTER(B,LEFT(CHOOSECOLS(B,2))=INDEX(A,N,3))),"")),8)))),TAKE(B,-1)),""),FILTER(C,CHOOSECOLS(C,2)<>""))

ty1014 · 发表于 2025-7-8 10:41

ＷＳＣ123 发表于 2025-7-7 16:38
再优化公式=LET(W,LET(K,UNICODE(数据!B3:B38),DROP(FREQUENCY(UNIQUE(K),K-1),1)),A,HSTACK(W,数据!$A$3 ...

谢谢回复，可惜我用不上啊

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

[求助] 公式能不能实现上下行不相同间插入相应的空行