经验直达：
- wps产生随机数怎么做
- wps有没有随机排序
- 请问如何用wps表格制作随机数
一、wps产生随机数怎么做
需要使用到WPS中自带的公式计算软件 。
WPS表格2007个人版可满足你对随意数的各种要求，可以生成0-1之间的随机数也可以生成0-100之间的整数也可以让随机数生成后不再变动，主要使用到了rand函数及round函数 。
使用方法：
1、生成0-1之间的随机数
这个最容易 ， 因为WPS表格内置了随意机生成函数rand函数，用法也很简单，只要在需要生成随意数的单元格内输入“=rand()” 。
输入完成后回车，该单元格即出现一个大于或等于0,并小于1随机小数 。如果你需要很多这样的随机数的话，可以选中该单元格，然后用鼠标左键在该单元格 右下角的方形点（即填充柄）按下，并向下拖动到合适的位置，则这一范围内所有的单元格均生成一个随机数 。
如果还要更多，则再选中已经生成随机数的所有单元 格，并在选区右下方如法向右拖动 ， 则拖出的矩形区域内的所有单元格都会生成随机数 。
2、生成0-100之间的整数
如果还要用rand函数的话，则必须借助另一个函数round函数 。round函数的格式为：ROUND(数值,小数位数)，其功能是按指定的位数对数值进行四舍五入后返回，如“round(1.2586,2)”表示取1.2586小数点后2位有效数字 ， 即返回值为“1.26” 。
有了round函数的帮助，生成0-100之间的整数就不难 ， 输入“=ROUND(RAND(),2)*100”（不含外侧双引号） 。
即先用RAND函数生成一个0-1之间的随机小数，再取该数值小数点后2位有效数字 ， 然后乘以100,即可生成一个0-100之间的整数 。
不过 ， 在WPS表格2007中，引入了一个特别的函数RANDBETWEEN,这个函数的格式是RANDBETWEEN(最小整数,最大整数)，其功能是取最小整数和最大整数之间的随意整数 。上面的公式可以改写成“=RANDBETWEEN(0,100)”即可达到相同的效果 。
注意事项：
1、"" 引号内可以填写任何文本
2、添加文本后要用“&”隔开
类似函数：
1、单一字母取随机数
=CHAR(RANDBETWEEN(1,26) 96)
2、单一字母取随机数加单一数值
=CHAR(RANDBETWEEN(1,26) 96)&RANDBETWEEN(0,9)
3、如果想要两位字母加数字可以这样写
=CHAR(RANDBETWEEN(1,26) 96)&RANDBETWEEN(0,9)&CHAR(RANDBETWEEN(1,26) 96)
二、wps有没有随机排序
下面来说明一下随机排序的方法，下表中B2：B126是一列名单，是按笔画顺序排列的，为了便于查看最后的效果，在姓名的左边加了一个序号列 。
操作步骤：
1、 在名单列表的右边增加一列，在第一个姓名的右侧单元格（此处为C2）中输入“=RAND()”并回车，可以看到随机函数RAND()产生了一个随机数 。
2、 再次选择C2单元格，双击单元格右下角的填充柄，Excel自动将随机数列填充到每个姓名的右侧 。
3、 从C2单元格开始选择整个姓名右侧的单元格 ， 本例中为C2:C126，然后输入“=RAND()”，输入的内容可以在编辑栏和C2单元格中看到，最后按“Ctrl Enter”将随机数填充到整个选中的范围 。
4、 选择C2:C126中的某一单元格，单击工具栏中的排序按钮，选“A→Z”或“Z→A”都可以 。这时Excel自动用“扩展选定区域”的方式将整个A1:B126随机排列好了 。
5、排序时，C列中的随机函数又重新产生了新的随机数，所以排序后的C列看上去并不是按升序或降序排列的 。但这并不影响所需要的结果 。以后每单击一次排序按钮，Excel都会进行一次新的随机排序 。
三、请问如何用wps表格制作随机数
这个只能使用VBA程序来实现的 ， 毕竟函数公式的随机函数每次刷新只能执行一次，没法执行找到所需的函数结果的 。
程序代码如下：
Sub RndNumber()
Dim a1, n, x, i, j, k
On Error Resume Next'忽略运行过程中可能出现的错误
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
a1 = mysheet1.Cells(1, 1)'定义A1单元格
x = 0
If a1 < 1 And a1 >= 0 Then'如果A1单元格的值>=0且<1，则
Do
x = x1'统计循环次数
i = Rnd()'Rnd随机数为>=0且<1
j = Rnd()
k = Rnd()
n = (ijk) / 3'三个随机数平均值
If n > a1 - 0.005 And n < a10.005 Then'随机数的平均值在A1值的 -0.005，则
mysheet1.Cells(1, 2) = i'写入B1单元格
mysheet1.Cells(1, 3) = j'写入B1单元格
mysheet1.Cells(1, 4) = k'写入C1单元格
Exit Do'退出Do循环
End If
If x > 300000 Then'如果循环次数大于300000，则强制退出，避免死循环
Exit Do
End If
Loop
End If
End Sub
执行结果如下：
【wps有没有随机排序 wps产生随机数怎么做】
