Question

excel里我怎么把1,2,3......400的数字打乱，要随机打乱？全是整数的，急用，请高手指点，谢谢

谢谢，很有用，但是我有这样一组数字ab 100,cd 25,mn 30,我要把它做到excel表格里，第一列是数字，第二第三列是字母，也就是说每个字母占一列。做表格的时候我是先把100个ab弄上，再依次写上25个cd，30个mn,但是我不要这样的结果，我要的是自由排序的，比如前面有10个ab，然后出现一个mn，然后是cd，等等几个都行，就是他随机排列的结果，一定要一个字母占一行，最后所有的ab加起来总共是100个，而cd是25个，mm是30个，怎么弄啊？

Answer 1

公式法:
=int(rand()*400)+1

宏代码法:'这个宏是产生1-400个数 不重复,但位置是不定的
Sub 数字打乱()
Dim i%, x&, y&: i = 1
Do While i < 401
x = Int(Rnd() * 20) + 1 '控制列号 目前全部
y = Int(Rnd() * 20) + 1 '控制行号 目前全部
If Cells(y, x) = "" Then Cells(y, x).Value = i: i = i + 1
Loop
MsgBox "ok" & i
End Sub

Answer 2

假如数字在a列，在b1中输入公式
=rand()
下拉公式，再对b列排序，a列就打乱了。每次排序，打乱有顺序完全不一样。

追问

谢谢，很有用，但是我有这样一组数字ab 100,cd 25,mn 30,我要把它做到excel表格里，第一列是数字，第二第三列是字母，也就是说每个字母占一列。做表格的时候我是先把100个ab弄上，再依次写上25个cd，30个mn,但是我不要这样的结果，我要的是自由排序的，比如前面有10个ab，然后出现一个mn，然后是cd，等等几个都行，就是他随机排列的结果，一定要一个字母占一行，最后所有的ab加起来总共是100个，而cd是25个，mm是30个，怎么弄？

追答

同样方法。在D列输入公式：
=rand()
对D列排序即可。字母是不会打乱的。

Answer 3

=randbetween(1,400)