有没有公式能求解这样的值

kxlong3134

感谢各位,7770和21.6不是不变的,这个只是示例,需要求解的结果条件如上,
试了各位的公式6656和5.43的求解结果不对,正确的数值应该为6516

长耳朵小白免

这个需要用到函数里的循环引用和迭代运算，你了解了这方面的知识这个问题就迎刃而解了。

LSL1128xgw

match(1,0/(mod(row(indirect("1:"&7760)),21.6)=0))

q447096568

自定义函数。

mmlzh

=FLOOR(7770/21.6,5)*21.6

ww87725244

1. =MAX(IF(INT(ROW(1:7770)/21.6)=ROW(1:7770)/21.6,ROW(1:7770),""))
   
2. 三键

复制代码

ww87725244

1. Sub aa()
   
2. Dim ar(), k&, i&, m&
   
3. For k = 1 To 7770
   
4.     For m = 1 To 7770
   
5.         If k / 21.6 = m Then
   
6.             i = i + 1
   
7.             ReDim Preserve ar(1 To i)
   
8.             ar(i) = k
   
9.         End If
   
10.     Next
    
11. Next
    
12. MsgBox ar(UBound(ar))
    
13. End Sub

复制代码

micch

=floor(7770/21.6,5)*21.6不就行了吗？

kxlong3134

LSL1128xgw 发表于 2018-4-3 22:26
match(1,0/(mod(row(indirect("1:"&7760)),21.6)=0))

公式使用后显示#DIV/0!,我使用的是2003

kxlong3134

mmlzh 发表于 2018-4-3 22:36
=FLOOR(7770/21.6,5)*21.6

能再帮忙看看吗?比如6656和5.43求解的结果不正确