Excel 用 VBA 随机数如何保留一位小数

c = Round(Rnd * 2000 + 8000, 0) 产生的是整数，c = Round(Rnd * 2000 + 8000, 0) / 10 为什么产生的小数位数特别多？c = Round(Rnd * 200 + 800, 1) 小数位数也特别多？VBA宏如何产生800.0~1000.0一位小数的随机数？

确实如你所述，但原因不知道。不过可用下面表达式间接解决：
C＝Int(Rnd * 2000 + 8000 +0.5) / 10
…………
我后来研究了一下，特此补充一下：
检查代码中的C值，也只有一位小数，但显示到工作表中就有多位小数了。
另外如果用工作表四舍五入函数就没问题：WorksheetFunction.Round(Rnd * 200 + 800, 1)
真不知道是怎么回事！

你遇到的问题好像是round函数造成的,用int(rnd * 2000 + 8000, 0) / 10 没有任何问题~~~ 具体原因不明

单元格以单精度表示了结果，所以然。定义一下以，为double，如果single 则变成好近似数dim c as doublec = format(Rnd * 200 + 800, "#0.00") range("a1")=c

= 800+ROUND(RND*200,1)