ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
Python自动化办公应用大全 Excel 2021函数公式学习大典 终极工具 Kutools 和 Office Tab 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 311|回复: 12

[已解决] 麻烦大神们,这个公式怎么写。

[复制链接]

TA的精华主题

TA的得分主题

发表于 2025-6-9 21:42 | 显示全部楼层 |阅读模式
本帖最后由 gaozengxun 于 2025-6-10 23:48 编辑

麻烦大神们,这个双循环公式怎么写,我公式问题出在哪里,最好说一说,如果双循环递归怎么写,最好不要VBA代码的。
image.png

递归双循环事例0.zip

51.54 KB, 下载次数: 19

TA的精华主题

TA的得分主题

发表于 2025-6-9 22:03 | 显示全部楼层
试试看。
  1. =LET(
  2.     x数据源, A1:A16,
  3.     xN, ROWS(x数据源),
  4.     x_1,LAMBDA(yN, REDUCE("", SEQUENCE(xN-yN+1,,yN), LAMBDA(acc,x,
  5.             LET(
  6.                 y_1, INDEX(x数据源,x),
  7.                 y_2, IF(INDEX(acc,1)="",y_1, VSTACK(acc,y_1)),
  8.                 y_2
  9.             )
  10.         ))),
  11.     x_2, REDUCE("",SEQUENCE(xN-1), LAMBDA(acc,x,
  12.             LET(
  13.                 y_1, INDEX(x数据源,x),
  14.                 y_2, x_1(x+1),
  15.                 y_3, y_1 & "、" & y_2,
  16.                 y_4, IF(INDEX(acc,1)="",y_3, VSTACK(acc,y_3)),
  17.                 y_4
  18.             )
  19.         )),
  20.     x_2
  21. )
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2025-6-9 22:12 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
没循环,不知道行不行?
  1. =TOCOL(IFS(ROW(1:16)<COLUMN(A:P),A1:A16&"、"&TOROW(A1:A16)),2)
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-6-9 22:28 | 显示全部楼层
无关岁月 发表于 2025-6-9 22:12
没循环,不知道行不行?

大师,麻烦看看我的公式问题出在哪里,顺便问一下双循环可不可以写递归。

TA的精华主题

TA的得分主题

发表于 2025-6-9 22:35 | 显示全部楼层
=TOCOL(MAKEARRAY(16,16,LAMBDA(x,y,IF(x<y,INDEX(A1:A16,x)&","&INDEX(TOROW(A1:A16),,y),\))),3)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2025-6-9 22:43 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
大师们,双循环可不可以写成递归函数。

TA的精华主题

TA的得分主题

发表于 2025-6-9 22:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
leepoison 发表于 2025-6-9 22:35
=TOCOL(MAKEARRAY(16,16,LAMBDA(x,y,IF(x

有个语法糖
  1. =TOCOL(IF(MAKEARRAY(16,16,NPV)<1,x,A1:A16&"、"&TOROW(A1:A16)),2)
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2025-6-10 09:55 | 显示全部楼层
=LET(ARR,A1:A16,BRR,TOROW(A2:A16),fx,LAMBDA(x,y,TOCOL(IF(x<>"",y))),HSTACK(fx(BRR,ARR),fx(ARR,BRR)))

TA的精华主题

TA的得分主题

发表于 2025-6-10 10:03 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 wanglichun2020 于 2025-6-10 10:06 编辑
  1. =TOCOL(A1:A16&TOROW(A1:A16))
复制代码

试试这个是不是你想要的结果。

TA的精华主题

TA的得分主题

发表于 2025-6-10 10:05 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-6-19 10:46 , Processed in 0.026991 second(s), 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表