1、打开Excel表格，点击【开发工具】、【Visual Basic】打开VBA编辑器，或者使用【Alt+F11】组合键打开VBA编辑器。
2、在VBA编辑器的菜单栏上面点击【插入】、【模块】插入代码模块。
3、在模块的代码框里边输入以下VBA程序代码，然后按下【F5】键运行程序。Sub Rn蟠校盯昂dNumbers()Di罪焐芡拂m i1, i2, i3, i4, i5On Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1i1 = 0 'i1，i2初始化i2 = 0Doi5 = i5 + 1 '每执行一次循环，i5增加1i3 = Rnd() * 40 + 60 '随机生成 60-100 的数值If i3 > 98 And i1 < 1 Then '如果生成的随机数>98且记录的个数为零，则 i1 = i1 + 1 'i1递增1 i4 = i4 + 1 '单元格行数递加1行 mysheet1.Cells(i4, 1) = i3 '把数值写入单元格End If If i3 >= 90 And i3 <= 98 And i2 < 2 Then '如果生成的随机数<=98且>=90,记录的个数<2，则 i2 = i2 + 1 '记录的个数递增1 i4 = i4 + 1 mysheet1.Cells(i4, 1) = i3End IfIf i3 < 90 Then '如果生成的随机数<96，则 i4 = i4 + 1 mysheet1.Cells(i4, 1) = i3End IfIf i5 >= 200000 Or i4 >= 100 Then '如果循环次数超过200000次，或生成的随机数个数>=100个，则 Exit Do '退出Do循环End IfLoopEnd Sub
4、回到Excel工作表界面，将会看到生成的随机数。
5、生成的随机数个数验证：在D1单元格里面输入公式=COUNTIFS(A1:A100,">98")，将会统计出100个数里面大于98的数的个数为1，已经满足给出的条件。在D2单元格里面输入公式=COUNTIFS(A1:A100,"<=98",A1:A100,">=90")，将会统计出100个数里面小于等于98且大于等于90的数的个数为2，满足给出的条件。
6、VBA程序函数解释说明：（1）Rnd随机函数的取值范围是大于等于0且小于1，要榨施氅汝求某个数的范围时，可以添加相关的参数进行限定。（2）在求鞅瓞慈玢解某一条件的数值时，可以借用中间变量加以限定，这样即使得到满足条件的随机数也不会再写入表格里面。（3）使用Do……Loop循环时，应当尽量避免死循环的出现，以免造成软件无响应的情况发生。（4）COUNTIFS函数主要是统计同时满足条件的个数，其语法为COUNTIFS(查找的区域1,查找的条件1,查找的区域2,查找的条件2……），条件之间的关系是“与”的逻辑关系，即统计同时满足条件的个数。
