在线Excel 365将多列按两两分组堆叠为指定规则两列的实现方案

算力阿峰

2026-9-30

结论

该需求仅用基础版在线Excel 365的原生公式即可实现，无需VBA，且网页版Excel本身不支持VBA运行，不需要考虑脚本方案。

实现方案

你可以直接在输出结果的起始单元格（如A1）输入以下动态数组公式，按下回车后会自动溢出所有处理后的结果，无需手动拖拽：

=LET(
  源范围,C1:AC1000,
  每组列数,2,
  总组数,COLUMNS(源范围)/每组列数,
  组序列,SEQUENCE(总组数),
  单组处理,LAMBDA(组序号,
    LET(
      组起始列,(组序号-1)*每组列数+1,
      组数据,CHOOSECOLS(源范围,组起始列,组起始列+1),
      组有效数据,FILTER(组数据,INDEX(组数据,,1)<>""),
      表头,TAKE(组有效数据,1),
      表体,DROP(组有效数据,1),
      表体加空行,TOCOL(IF(SEQUENCE(ROWS(表体)),VSTACK(表体,IF(INDEX(表体,,2)="sub",{"",""},NA()))),2),
      VSTACK(表头,{"",""},{"",""},表体加空行)
    )
  ),
  最终结果,VSTACK("内容列","属性列",DROP(REDUCE("",组序列,LAMBDA(累加,当前组,VSTACK(累加,单组处理(当前组)))),1)),
  FILTER(最终结果,BYROW(最终结果,LAMBDA(r,OR(r<>""))))
)

说明

你可以直接修改公式开头源范围、每组列数两个参数适配你的实际数据，无需调整后续逻辑
公式核心通过REDUCE遍历所有列组，对每组单独筛选有效数据，按规则插入空行后统一堆叠，自动适配各组不固定的有效行数
你之前写的INDEX类公式没有动态切换列组的逻辑，要实现跳转需要额外通过INT、MOD计算当前行对应的组号和组内行号，逻辑繁琐且无法自动适配有效行数变化，不推荐使用

注意事项