取消合并单元格，并且把原单元格的值均摊

再三回味

取消合并单元格，并且把原合并单元格的值均摊到取消后的每一个单元格内。
目前有一个数组公式，=LOOKUP(1,0/A$1:A1,A$1:A1)/SUM(N(SUBTOTAL(2,OFFSET(A$1,,,ROW($1:$34)))=COUNT(A$1:A1)))
这个公式的缺点是当数据有10000行的时候，运行非常卡顿一动不动的，并且出现合并单元格是0的时候数据不准确，会套用上面非合并单元格的数值。
有没有大哥帮忙弄一下？看能否优化公式？或者直接帮忙写两句VBA代码行吗？

dim麻辣君

B4公式下拉

1. =LOOKUP(9E+307,A$4:A4)/(MATCH(1=1,A5:A28<>"",)+ROW()-MATCH(9E+307,A$1:A4))

复制代码

再三回味

dim麻辣君 发表于 2023-6-20 18:04
B4公式下拉

感谢！非常感谢，虽然我不知道这个是什么原理，但是我那个10000行确实卡顿，这个公式复制进去拖10000行一点都不卡顿，谢谢！

dim麻辣君

再三回味 发表于 2023-6-20 18:15
感谢！非常感谢，虽然我不知道这个是什么原理，但是我那个10000行确实卡顿，这个公式复制进去拖10000行一 ...

嗯嗯，你之前那个公式运算量比较大，后面这个公式的话算法相对简洁一些，没有大规模运算，不过瑕疵是最后一个单元格之后需要加一个任意字符

再三回味

dim麻辣君 发表于 2023-6-20 18:16
嗯嗯，你之前那个公式运算量比较大，后面这个公式的话算法相对简洁一些，没有大规模运算，不过瑕疵是最后 ...

为什么最后一个单元格要加任意字符呢？否则倒数第一个格子就无法计算是吗？

dim麻辣君

再三回味 发表于 2023-6-20 18:29
为什么最后一个单元格要加任意字符呢？否则倒数第一个格子就无法计算是吗？

是的，因为这个公式是判断的下一个不为空的位置是在哪里，最后一个的话就没有下一个了

再三回味

dim麻辣君 发表于 2023-6-20 18:30
是的，因为这个公式是判断的下一个不为空的位置是在哪里，最后一个的话就没有下一个了

原来如此，谢谢~

丢丢表格

再三回味 发表于 2023-6-20 18:36
原来如此，谢谢~

只是 合并2个单元格的话：：

=IF(A4<>"",A4/(1+(A5=""))/OR(A5:A9<>""),B3)

alan57

1. =LET(_a,SCAN(0,A4:A34,LAMBDA(x,y,x+(y<>""))),_b,MAP(_a,LAMBDA(x,SUM(N(_a=x)))),_c,SCAN(0,A4:A34,LAMBDA(x,y,IF(y<>"",y,x))),_c/_b)

复制代码

再三回味

丢丢表格 发表于 2023-6-20 19:24
只是 合并2个单元格的话：：

=IF(A4"",A4/(1+(A5=""))/OR(A5:A9""),B3)

=LOOKUP(9E+307,A$4:A4)/(MATCH(1=1,A5:A28<>"",)+ROW()-MATCH(9E+307,A$1:A4))
跟这个公式异曲同工之妙哦，最后一个单元格不能计算，必须填充任意值。是吧