[已解决]简化老长老长的公式

丢丢表格 · 发表于 2014-3-11 21:37

本帖最后由丢丢表格于 2014-3-11 21:41 编辑

这是块硬骨头，我是啃不动了，在这里有请高手！

最佳答案

月排行榜 / 总排行榜

孤单无所谓

2014-3-11 23:22

本帖最后由孤单无所谓于 2014-3-11 23:41 编辑

=COLUMN()-1+MMULT(-2^(COLUMN()>2),INT((ROW()-1)/3^(ROW($8:$13)-COLUMN())))
见楼下附件

跳转到最佳答案楼层

xdragon · 发表于 2014-3-11 22:44

本帖最后由 xdragon 于 2014-3-11 23:23 编辑

函数玩不来，我玩vba的。。。

Sub t()
Dim arr(1 To 750, 1 To 6)
Dim i As Integer, j As Byte, cnt As Byte, cnt2 As Byte
For j = 1 To UBound(arr, 2)
For i = 1 To UBound(arr)
Do Until (i - 1) Mod 3 ^ (7 - j) = 3 ^ (7 - j) - 1 Or i > UBound(arr)
arr(i, j) = cnt + j
i = i + 1
Loop
If i <= UBound(arr) Then arr(i, j) = cnt + j
cnt2 = cnt2 + 1
cnt = cnt + 1
If cnt2 = 3 Then cnt2 = 0: cnt = cnt - 2
Next
cnt = 0: cnt2 = 0
Next
Range("B1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

复制代码

孤单无所谓 · 发表于 2014-3-11 23:22

本帖最后由孤单无所谓于 2014-3-11 23:41 编辑

=COLUMN()-1+MMULT(-2^(COLUMN()>2),INT((ROW()-1)/3^(ROW($8:$13)-COLUMN())))
见楼下附件

孤单无所谓 · 发表于 2014-3-11 23:30

只限B1:G1输入，组合键，下拉。

kunlin_liu · 发表于 2014-3-12 08:41

好呀，朋友

vadera · 发表于 2014-3-12 09:10

本帖最后由 vadera 于 2014-3-12 09:54 编辑

=A1+1+INT((ROW()-1)/3^(8-COLUMN()))-3*INT((ROW()-1)/3^(9-COLUMN()))
B1开始右拉下拉

硬改区域数组公式吧
b1:g1
=A1:F1+1+INT((ROW()-1)/3^(8-COLUMN()))-3*INT((ROW()-1)/3^(9-COLUMN()))
然后下拉

要是任意高度区域的话
=A1:FX+1+INT((ROW()-1)/3^(8-COLUMN()))-3*INT((ROW()-1)/3^(9-COLUMN()))

x=最大行号……

kunlin_liu · 发表于 2014-3-12 09:37

不懂呀

tgydslr · 发表于 2014-3-12 11:04

实在是高

vadera · 发表于 2014-3-12 11:19

本帖最后由 vadera 于 2014-3-12 11:20 编辑

要是任意高度区域的话
=A1:FX+1+INT((ROW()-1)/3^(8-COLUMN()))-3*INT((ROW()-1)/3^(9-COLUMN()))

x=最大行号……

chinaman_86 · 发表于 2014-3-13 20:29

数学计算要取整或四舍五入应在最后结果时才进行，为什么对中间过程多次取整？是模型选取有误还是有意设置？若是有意如此，则如此老长老长的公式已经简化完成，若是对最后结果取整，则可以去掉现有的取整函数，可以继续进行合并简化后再取整，公式可以更简单些，不知对否？

		自动登录	找回密码
密码			注册

[已解决]简化老长老长的公式

评分

评分

评分