如何在相邻行中找出等差为2的数字，并在第三行继续求等差为2的数字

icxh

附件是一份EXCEL文档里，A列B列为序号，第一二行为空，第三行开始每一行的C至V列都为1-80之间的20个数字。
如果任意相邻的两行数字中存在差为2的数字（同一行相差为2的数字不符合要求），想在它们的下一行求出与它们存在等差为2的数字，这些数字也必须在1-80之间，将这些数字输出在它们的下一行的X列开始，每一个单元格一个数字，自小到大排列。
比如第一行的数字6、8、15、27、28、30、37、38、39、44、46、49、51、52、59、70、75、77、78、80，第二行的数字2、5、10、13、19、23、26、29、32、35、42、53、55、57、58、60、62、67、78、79对比发现，两行之间的8与10，15与13，27与29，30与32，37与35，44与42，51与53,59与57,77与79，这些相差为2，那么第3行应该得出12、11、31、34、33、40、55、55、81，其中55重复，81超过了80，都去掉。最终得到数字为11、12、31、33、34、40、55。
但是，一直没法达到想要的效果，运行代码后，得出的数字有些奇怪，不知如何下手修改。
请各位大神帮忙，感激不尽

LIUZHU

这个等差为2的求差，不是按位置对应的啊？

micch

这个意思吗？

LIUZHU

参与下，楼主介绍第二行和第一行的差的时候，漏了一组，28和26

LIUZHU

JS代码，供参考

1. function 求等差数据(){
   
2.         const arr=Sheets.Item("data").Range("a2").CurrentRegion.Value2.slice(1);
   
3.         let res=arr.slice(1).reduce(function(res,x,i){
   
4.                 let temp=arr[i].slice(2), st=new Set();
   
5.                 x.slice(2).forEach(y=>{
   
6.                         for (let j=0;j<temp.length;j++){
   
7.                                 if (Math.abs(y-temp[j])!=2) continue;
   
8.                                 if (y+y-temp[j]<80) st.add(y+y-temp[j]);
   
9.                                 break;
   
10.                         }
    
11.                 });
    
12.                 res["len"]=Math.max(res["len"] || 0, st.size);                //最大长度
    
13.                 return res.push([...st].sort((a,b)=>a-b)), res;
    
14.         },[]);
    
15.         Sheets.Item("data").Range("x5").Resize(res.length, res["len"]).Value2=res;
    
16. }

复制代码

grf1973

。。。。。。。。。。。。。。。

grf1973

JS做了一个，结果和VBA一样。
可以直接调用部分数组，Set去重，数组排序，比VBA方便很多。

笨鸟飞不高

icxh

笨鸟飞不高 发表于 2024-6-26 10:22

非常感谢！醍醐灌顶。

icxh

grf1973 发表于 2024-6-26 10:10
JS做了一个，结果和VBA一样。
可以直接调用部分数组，Set去重，数组排序，比VBA方便很多。

感谢分享，感谢提供新的方法。