Sub aa()
s = Range("a1")
a = s
b = s / a
Do While Abs(a - b) > 0.00001
a = (a + b) / 2
b = s / a
Loop
Range("a2") = a
End Sub
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/24345566/viewspace-1049099/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
VBA里运行的一段关于数组的程序
下一篇：
关于删除内表重复字段所在行的问题
请登录后发表评论
登录
全部评论
