求助随机排列

ruanxj · 发表于 2014-4-20 09:23

求助帮忙，1-10500个数字，每隔100个数字随机排列一次，例如1-100，101-200，201-300，301-400，401-500，501-600。。。随机排列，谢谢呀！

百度不到去谷歌 · 发表于 2014-4-20 10:02

本帖最后由百度不到去谷歌于 2014-4-20 10:50 编辑

以前写好的有通用乱序函数这就简单了

'---------Function RndFromArr---原作:洗牌算法---整理:百度不到去谷歌 2014/3/28---------------------------
'功能 : 从单列二维数组或单元格区域中不重复随机抽取N个数,返回抽取的的二维数组(单列)
'变量 : RngArr 单元格区域/二维单列数组
' N 要抽取的个数
'---------------------------------------------------------------------------------------------------------
Function RndFromArr(RngArr, n&)
Dim M&, arr(), rng As Range, r&, i&, t
If TypeName(RngArr) = "Range" Then '接受单元格区域,可多行多列,所有传入数据转为数组
ReDim arr(1 To RngArr.Count, 1)
For Each rng In RngArr
M = M + 1: arr(M, 1) = rng
Next
Else
arr = RngArr
End If
ReDim brr(1 To n, 1 To 1) '定义结果数组
M = UBound(arr) '
If n > M Then RndFromArr = "Err": Exit Function
Randomize '随机种子初始化以保证每次得到不同的随机序列
For i = 1 To n '遍历提取n个数据
r = Int(Rnd * (M - i + 1)) + i '从剩余数据中得到随机位置r (注意里面剩余数计算用m 不是n)
t = arr(r, 1): arr(r, 1) = arr(i, 1): brr(i, 1) = t
'用临时变量t进行随机位置和当前位置的交换保证得到随机不重复乱序结果
Next
RndFromArr = brr
End Function
Sub 按钮1_Click()
Dim n&, i&, j&
n = [E3]: i = [E4]
For j = 1 To n Step i
[b1].Offset(j).Resize(i) = RndFromArr([A1].Offset(j).Resize(i), i)
Next
End Sub

复制代码

ruanxj · 发表于 2014-4-20 10:13

谢谢您的回复，可能我说的不太清楚了，我想把1-100之间的数字随机排列，1-100是一个区组，101-200是一个区组，201-300是一个区组等等。。。。

ruanxj · 发表于 2014-4-20 10:18

百度不到去谷歌发表于 2014-4-20 10:02
以前写好的有通用乱序函数这就简单了

我想把1-100之间的数字随机排列，1-100是一个区组，101-200是一个区组，201-300是一个区组等等。。。。

ruanxj · 发表于 2014-4-20 10:19

效果图，每隔100个数字是一个区间，这个区间内进行随机了

百度不到去谷歌 · 发表于 2014-4-20 10:43

ruanxj 发表于 2014-4-20 10:19
效果图，每隔100个数字是一个区间，这个区间内进行随机了

我说你看了我的结果么我不正是这个结果么

百度不到去谷歌 · 发表于 2014-4-20 10:44

你要在原位置排就改一下这里啊
[b1].Offset(j).Resize(i) = RndFromArr([A1].Offset(j).Resize(i), i)
改为[A1].Offset(j).Resize(i) = RndFromArr([A1].Offset(j).Resize(i), i)

百度不到去谷歌 · 发表于 2014-4-20 10:47

本帖最后由百度不到去谷歌于 2014-4-20 10:49 编辑

ruanxj 发表于 2014-4-20 10:19
效果图，每隔100个数字是一个区间，这个区间内进行随机了

你妹的改参数改错了你把这里改一下
n = [E3]: i = [E4]E3是随机的总数 E4是区间你这个是100 也可以改为50 200都可以

ruanxj · 发表于 2014-4-20 10:58

百度不到去谷歌发表于 2014-4-20 10:44
你要在原位置排就改一下这里啊
.Offset(j).Resize(i) = RndFromArr([A1].Offset(j).Resize(i), i)
改为 ...

呵呵，谢谢呀，这个程序随机出来的数字没有分段了，例如A1-A100之间随机出来的数字只想要1-100之间的数字（数字不重复），A101-A200之间想要101-200之间的数字，还是非常感谢你的答复！

百度不到去谷歌 · 发表于 2014-4-20 11:02

不对分段了啊你再看一下我改了附件重新传了前面那个写错了一个参数按全区段随机了
因为我不小心把大区间和的分段区间写成了一个现在应该是对的
QQ截图20140420110154.jpg

		自动登录	找回密码
密码			免费注册