在EXCEL中，一个单元格取-5至10之间的数且不等于0。求此函数怎么编？先谢过！

Question

非常抱歉，我要取整啊- -

Answer 1

Sub test()
Dim s
s = Int(-5 + Rnd() * 15)
If s <> 0 Then
Sheet1.[A2] = s
End If

End Sub追问

大哥，好复杂，看不懂。求解释。

追答

Sub test()'定义一个随机变量
Dim s'把变量限制在定义-5到10之间
s = Int(-5 + Rnd() * 15)'如果变量非零，则把变量写入表sheet2的A2单元格。
If s 0 Then
Sheet1.[A2] = s
End If

End Sub这不是你想要的吗？

Answer 2

=RAND()*15-5
可以生成-5到10之间的数，但是有可能等0
rand()生成0-1随机数，*15就是0-15随机数，再减去5就是-5到10追问

你能直接帮我编一个我试试么

追答

就是直接复制下面到任意单元格就行啊
=RAND()*15-5

追问

如果要取整的话，=ROUND(RAND()*15-5,0) 这样会产生。