Excel表格生成满足条件的随机数

1、打开Excel表格，点击【开发工具】、【Visual Basic】打开VBA编辑器，或者使用【Alt+F11】组合键打开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

5、生成的随机数个数验证：在D1单元格里面输入公式=COUNTIFS(A1:A100,">98")，将会统计出100个数里面大于98的数的个数为1，已经满足给出的条件。在D2单元格里面输入公式=COUNTIFS(A1:A100,"<=98",A1:A100,">=90")，将会统计出100个数里面小于等于98且大于等于90的数的个数为2，满足给出的条件。