EXCEL2003随机数;A1到AX20范围内,生成1到1000的不重复随机整数,可以帮忙写一段这样的VBA代码吗?也希望最后生成的数字不容易被看出什么规律(因为自己复制过一段代码,但最后生成的结果总是每

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 22:01:59
EXCEL2003随机数;A1到AX20范围内,生成1到1000的不重复随机整数,可以帮忙写一段这样的VBA代码吗?也希望最后生成的数字不容易被看出什么规律(因为自己复制过一段代码,但最后生成的结果总是每

EXCEL2003随机数;A1到AX20范围内,生成1到1000的不重复随机整数,可以帮忙写一段这样的VBA代码吗?也希望最后生成的数字不容易被看出什么规律(因为自己复制过一段代码,但最后生成的结果总是每
EXCEL2003随机数;
A1到AX20范围内,生成1到1000的不重复随机整数,可以帮忙写一段这样的VBA代码吗?也希望最后生成的数字不容易被看出什么规律(因为自己复制过一段代码,但最后生成的结果总是每一列的20个数字,总是相邻的,例如A列的数字虽然是随机的,到1到20范围,B列是21到40,C列是41到60''''希望能解决这个问题,又能达到目标的VBA代码),同志,

EXCEL2003随机数;A1到AX20范围内,生成1到1000的不重复随机整数,可以帮忙写一段这样的VBA代码吗?也希望最后生成的数字不容易被看出什么规律(因为自己复制过一段代码,但最后生成的结果总是每
鼠标右击【Sheet1】,选【查看代码】,会打开VBE的代码窗口!粘贴下面的代码:
Sub ouyang()
Dim a(1000)
Randomize (Timer)
For i = 1 To 1000
a(i) = i
Next
For i = 1000 To 1 Step -1
t = Int(i * Rnd + 1)
tt = a(t)
a(t) = a(i)
a(i) = tt
Next
For i = 1 To 20
For j = 1 To 50
k = k + 1
Cells(i,j) = a(k)
Next
Next
End Sub
按F5运行程序,按Alt + F11回到Excel,去看看A1:AX20的结果吧!
这是一个很“高级”的洗牌的算法!你可以考虑多加点分,以资鼓励哟!

EXCEL2003随机数;A1到AX20范围内,生成1到1000的不重复随机整数,可以帮忙写一段这样的VBA代码吗?也希望最后生成的数字不容易被看出什么规律(因为自己复制过一段代码,但最后生成的结果总是每 EXCEL2003随机数;A1到AX20范围内,生成1到1000的不重复随机整数,可以帮忙写一段这样的VBA代码吗?也希望最后生成的数字不容易被看出什么规律(因为自己复制过一段代码,但最后生成的结果总是每 excel2003怎么产生随机数? excel2003怎么同时冻结A1到A68和A1,BI,CI,D1,E1 excel2003为何不能=randbetween产生随机数? EXCEL2003版本,随机数等于定值问题.要求:1、随机数数据在同一列,如:在A1:A172、随机数范围在50-90之间.3、17个数的和为1200. excel2003怎样计算a1到a11单元格中数值和平均值 excel2003怎么弄30-35之间的随机数 在excel2003中 单元格C1=A1+B1,将公式复制到C2时 C2的公式是---- excel 函数 怎么计算:当A1等于1到5的随机数,并且不等于B1,B2? 在Excel2003中,如果将A1单元格中的公式“=C$1*$D2”复制到B2单元格,则B2单元格中的公式为 我想在EXCEL2003中实现3.9840-4.0160之间的随机数,请问如何实现我想在EXCEL2003中一行实现3.9840-4.0160之间的随机数,请问如何实现 Excel2003计算A1:A4单元格区域数据的公式 excel2003 IF函数问题要实现以下目的A1 EXCEL2003乘法计算比如说我在A1到A10之间都是数字,我需要把这些数字全部乘以8,显示还在A1到A10的位置,还有除法 EXCEL2003 多重条件函数当B1>=A1的时候D1=A1/2,当A1 请教如何在Excel2003中给定区域填充随机数相加为某值 excel生成一个固定的随机数A1用公式 =ROUND(RAND()*5+5.5,2) 生成一个5.5到10.5的随机数值,现在B2想生成一个大于A1的随机数,大于范围是1.7至2.2.比如A1生成5.72,那么B2生成7.42到7.70中的一个随机数.A1生