怎样用公式的方式把连续出现“1”笔数最大的5段数标识出来

一块臭豆腐

各位老师好，有一问题请教：
如果Ｂ列一个数据比上一个数据大，那么，该数据及其以后的数据，只要是大于或等于上一个数据，则都标识为“1”。如果存在一个数据比上一个数据小，那么中断，直到又出现下一数据比上一数据大为止。在本论坛 世界客都 老师的帮助下，用公式=SCAN(0,B6:B227,LAMBDA(x,y,IF(AND(N(OFFSET(y,{0;1;2},))>=N(OFFSET(y,{-1;0;1},)))+(x=1)*(y>=OFFSET(y,-1,)),1,0)))可以实现以上目标，并同时剔除连续出现“1”小于3笔的数，对连续出现“1”大于等于3笔的数仍保留标识，效果展示如G列。

如果意图把连续出现“1”笔数最大的5段数仍标识出来（我已在表中人工标记为红色），其余的标识为“0”，请问，不用下拉、辅助列，而用公式一次性实现，具体要达到的效果如J列。应该怎么写公式？

zhumumu1816

硬写的   看看大神有没有更好的思路

1. =LET(a,SCAN(0,B6:B227,LAMBDA(x,y,IF(AND(N(OFFSET(y,{0;1;2},))-N(OFFSET(y,{-1;0;1},))>{0;-1;-1}%%)+(x=1)*(y>=OFFSET(y,-1,)),1,0))),b,IF(a>0,ROW(1:222),9^9),c,DROP(REDUCE("",b,LAMBDA(m,n,VSTACK(m,LET(_a,MATCH(n,b,),IF(OR(SUM(TAKE(DROP(b,_a-1),5))<9^9,SUM(TAKE(DROP(b,_a-5),5))<9^9,(SUM(TAKE(DROP(b,_a-2),2))+SUM(TAKE(DROP(b,_a),2)))<9^9),1,0))))),1),c)

复制代码

一块臭豆腐

zhumumu1816 发表于 2025-3-25 16:27
硬写的   看看大神有没有更好的思路

谢谢您的帮忙，但有个小瑕疵：如果把数组延长、5换成其他数，就执行错误。如=LET(a,SCAN(0,B6:B2787,LAMBDA(x,y,IF(AND(N(OFFSET(y,{0;1;2},))-N(OFFSET(y,{-1;0;1},))>{0;-1;-1}%%)+(x=1)*(y>=OFFSET(y,-1,)),1,0))),b,IF(a>0,ROW(1:2782),9^9),c,DROP(REDUCE("",b,LAMBDA(m,n,VSTACK(m,LET(_a,MATCH(n,b,),IF(OR(SUM(TAKE(DROP(b,_a-1),20))<9^9,SUM(TAKE(DROP(b,_a-20),20))<9^9,(SUM(TAKE(DROP(b,_a-2),2))+SUM(TAKE(DROP(b,_a),2)))<9^9),1,0))))),1),c)

zhumumu1816

一块臭豆腐 发表于 2025-3-25 17:12
谢谢您的帮忙，但有个小瑕疵：如果把数组延长、5换成其他数，就执行错误。如=LET(a,SCAN(0,B6:B2787,LAMB ...

你这个20太多是因为取不到数字了，可以在vstak前面加一个iferror试下。如果你要改成20的话or里面最后的条件就得把2变成10

zhumumu1816

一块臭豆腐 发表于 2025-3-25 17:12
谢谢您的帮忙，但有个小瑕疵：如果把数组延长、5换成其他数，就执行错误。如=LET(a,SCAN(0,B6:B2787,LAMB ...

你要做20的话就全变成0了  没有超过20的，公式可以参照下面的。其实这里面原理很简单，就是挨个数字reduce，只要他向上20个或者向下20个或者向上向下10个，取完数字求和只要满足要求就是1，否则就是0

1. =LET(a,SCAN(0,B6:B227,LAMBDA(x,y,IF(AND(N(OFFSET(y,{0;1;2},))-N(OFFSET(y,{-1;0;1},))>{0;-1;-1}%%)+(x=1)*(y>=OFFSET(y,-1,)),1,0))),b,IF(a>0,ROW(1:222),9^9),c,DROP(REDUCE("",b,LAMBDA(m,n,IFERROR(VSTACK(m,LET(_a,MATCH(n,b,),IF(OR(SUM(TAKE(DROP(b,_a-1),20))<9^9,SUM(TAKE(DROP(b,_a-20),20))<9^9,(SUM(TAKE(DROP(b,_a-10),10))+SUM(TAKE(DROP(b,_a),10)))<9^9),1,0))),""))),1),c)

复制代码

一块臭豆腐

zhumumu1816 发表于 2025-3-25 17:26
你要做20的话就全变成0了  没有超过20的，公式可以参照下面的。其实这里面原理很简单，就是挨个数字reduc ...

因为这个问题有点特殊性，发的表的行数少了，如果选一个连笔最大20的段的话，根本取数不到，发一个2787行的大表的话，手工逐一标识又确实有难度，我后来补发了一个附件，有2787行，麻烦您再试一下。另，似乎加长公式里设置的数组行数后，执行计算比较慢

世界客都

=SCAN(0,B6:B227,LAMBDA(x,y,IF(AND(N(OFFSET(y,ROW(1:5)-1,))-N(OFFSET(y,ROW(1:5)-2,))>{0;-1;-1;-1;-1}%%)+(x=1)*(y>=OFFSET(y,-1,)),1,0)))
这样吗？