連續相同數字 分列取出

hcm19522

shaowu459

请忽略公式长短，继续推广一下我一个帖子里的针对此类问题（从上到下，根据一定的条件分组、提取、变换、堆积）的通用做法。优点是可以忽略特殊的技术细节，一个套路完成。

递归替换REDUCE某类循环方式的一种方法（完结）
https://club.excelhome.net/thread-1694233-1-1.html

1. =LET(f,LAMBDA(f,arr,res,LET(s,MATCH(1=1,arr<>@arr,),IF(@arr=0,IFNA(DROP(res,,1),""),IF(s>2,f(f,DROP(arr,s-1),HSTACK(res,TAKE(arr,s-1))),f(f,DROP(arr,1),res))))),f(f,+B1:B15,0))

复制代码

上面退出条件写的是=0，主要是看数据源没有0值。如果可能包括0值，将退出条件改成=""即可。注意：公式选择了数据区域下方的空白单元格。

1. =LET(f,LAMBDA(f,arr,res,LET(s,MATCH(1=1,arr<>@arr,),IF(@arr="",IFNA(DROP(res,,1),""),IF(s>2,f(f,DROP(arr,s-1),HSTACK(res,TAKE(arr,s-1))),f(f,DROP(arr,1),res))))),f(f,+B1:B15,0))

复制代码

shaowu459

对2楼公式的简单说明如下：

hugeinfo

=LET(a,LET(r,SCAN(,A2:A13,LAMBDA(x,y,IF(y=OFFSET(y,-1,),x,x+1))),DROP(REDUCE("",SEQUENCE(MAX(r)),LAMBDA(x,y,IFNA(HSTACK(x,IF(COUNTA(FILTER($A$2:$A$13,r=y))>1,FILTER($A$2:$A$13,r=y),"")),""))),,1)),FILTER(a,TAKE(a,1,)<>""))





我理解意思就是 只要求出=SCAN(,A2:A13,LAMBDA(x,y,IF(y=OFFSET(y,-1,),x,x+1)))  也就b列的值    那就好解决  解决方法很多    是否可以这样理解   

edwin11891

超版用的递归，我还是循环吧：

1. =LET(s,SCAN(0,B2:B14,LAMBDA(x,y,IF(y=OFFSET(y,-1,),x,x+1))),R,GROUPBY(s,s,COUNT,0,0,),Rs,FILTER(TAKE(R,,1),TAKE(R,,-1)>1),Re,DROP(REDUCE("",Rs,LAMBDA(x,y,HSTACK(x,FILTER(B2:B14,s=y)))),,1),IFERROR(Re,""))

复制代码

人有言兮是然

edwin11891 发表于 2025-3-19 15:15
超版用的递归，我还是循环吧：

测试了下，你这个ok。wps前年底增加动态数组函数后，let这个函数，我几乎没用过。瞅了眼你用的let，感觉是可以从左到右逐步带入。如果数据量大，这种方法，是不是会增加计算量或者耗费内存过大？

edwin11891

人有言兮是然 发表于 2025-3-19 15:21
测试了下，你这个ok。wps前年底增加动态数组函数后，let这个函数，我几乎没用过。瞅了眼你用的let，感觉 ...

没有专门测试过，貌似运算效率跟WPS对函数自身的优化有关，比如GROUPBY函数，貌似复杂，其实其运算效率是非常快的，比类似其它函数快很多。
LET函数是解决复杂问题、编程式公式的有效工具，新函数的动态数组也比传统的下拉方式效率高很多。

jivy1212

1. =IFERROR(IF(ROW(),N(OFFSET($B$1,ROW(INDIRECT(TEXT(NPV(99,SMALL(IF(CHOOSE({1,2},($B$3:$B$15<>$B$2:$B$14)+($B$1:$B$13=$B$2:$B$14),($B$3:$B$15=$B$2:$B$14)+($B$1:$B$13<>$B$2:$B$14))=0,ROW($2:$14)),COLUMN(A1)*2-{1;0}))/1%%,"0!:00")))-1,)),""),"")

复制代码

单说只要结果来说，思路困难度为0，但是老版本写起来太坑了。竖向区域数组右拉