做题目，写公式

袁勇

VBA处理

pgp5866

=DROP(REDUCE(0,D1:D5,LAMBDA(x,y,VSTACK(x,IFNA(HSTACK(y,WRAPROWS(TOCOL(OFFSET(y,,1,,12),3),3,"")),y)))),1)

咔咔乱坠

参与一下

1. =DROP(REDUCE(0,D1:D5,LAMBDA(x,y,VSTACK(x,LET(a,OFFSET(y,,1,,12),b,TAKE(OFFSET(a,,-1),,1),IFNA(HSTACK(b,WRAPROWS(TOROW(a,1),3,"")),b))))),1)

复制代码

shaowu459

lws 发表于 2023-10-30 22:55
=FILTER(HSTACK(DROP(REDUCE("",D1:D5,LAMBDA(X,Y,VSTACK(X,EXPAND(Y,4,,Y)))),1),WRAPROWS(TOCOL(E1:P5&"" ...

点评没办法回复。确实没用，我在公式里剔除了tocol函数。直接堆积x、x和下一个字符的合并结果就成，都是列方向。以前有的时候是一列的x和一行多个字符合并，合并结果转成列更新x，写顺手了。

lws

shaowu459 发表于 2023-10-31 15:19
点评没办法回复。确实没用，我在公式里剔除了tocol函数。直接堆积x、x和下一个字符的合并结果就成，都是 ...

昨天才看到那个帖子，学习中，超版对新函数太精通了。

丢丢表格

shaowu459 发表于 2023-10-30 21:04
抛砖引玉：

公式在于长，长长流水行云

1. =T(OFFSET($D$1,SUM(N(COUNTIF($M$9:$M9,$D$1:D$5)>=MMULT(N($E$1:$P$5>0),S1:S12+1)/3)),MAX(,COUNTIF($L$10:L10,INDEX($L10:L10,1+(COLUMN()>13)))*3-4+COLUMN(A1))))

复制代码

1. =T(OFFSET($D$1,SUM(N(COUNTIF($M$9:$M9,$D$1:D$5)>=MMULT(N($E$1:$P$5>0),S1:S12+1)/3)),MAX(,COUNTIF($L$10:L10,HLOOKUP("*",$L10:L10,1,))*3-4+COLUMN(A1))))

复制代码

丢丢表格

shaowu459 发表于 2023-10-30 21:04
抛砖引玉：

低版本的一般套路写法是：

1. =T(INDIRECT(IF({1},TEXT(TRUNC(SMALL(IF(COLUMN(A:L)>CEILING(MMULT(N($E$1:$P$6>0),S1:S12+1),3),99,ROW($1:$6))/1%+COLUMN(A:L),ROW()*3-29+{0,0,1,2}),{-2,1,1,1})+4,"r0c00")),))

复制代码

shaowu459

丢丢表格 发表于 2023-11-1 09:45
低版本的一般套路写法是：

再过几年，这些低版本套路估计就要退出历史舞台了。wps都要上新函数了

高个子

shaowu459 发表于 2023-11-1 09:59
再过几年，这些低版本套路估计就要退出历史舞台了。wps都要上新函数了

WPS上新函数也拦不住一帮人用旧版Excel，不用365和WPS…

丢丢表格

高个子 发表于 2023-11-1 10:45
WPS上新函数也拦不住一帮人用旧版Excel，不用365和WPS…

单位电脑WIN XP 系统， 还在用 2003 的表格， 太可怜了。。。。