求助随机排列

ruanxj

谢谢啊！呵呵，大侠你帮了我大忙了！

hhjjpp

函数就可以了：

yjh_27

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

1. Sub aa()
   
2. R = Range("a" & Rows.Count).End(xlUp).Row
   
3. arr = Range("a1:a" & R)
   
4. 
   
5. arr = YjhSort(arr, "0,r", "1,1", , , , "100,1")
   
6. 
   
7. Range("b1").Resize(UBound(arr, 1), 1) = arr
   
8. End Sub
   

复制代码

a列也可以是字符

YjhSort  见
多Key数组排序(分类、统计、重复处理)-自定义函数
http://club.excelhome.net/thread-1090007-1-1.html

yjh_27

参见附件。

bluexuemei

1. Sub t()
   
2. '须安装ACTIVERUBY.才能运行
   
3. '下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
   
4. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
5. ojs.eval ("def aa(aa);$aa=aa;end")
   
6. s = Join(Application.Transpose(Range("A1", [a1].End(4))), ",")
   
7. y = ojs.eval("a='" & s & "'.split(',');b=[];while a.size>0;b=b+a.slice!(0,100).shuffle;end;b")
   
8. [b1].Resize(UBound(y) + 1) = Application.Transpose(y)
   
9. 'Stop
   
10. End Sub
    

复制代码

bluexuemei

1. Sub t()
   
2. '须安装ACTIVERUBY.才能运行
   
3. '下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
   
4. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
5. ojs.eval ("def aa(aa);$aa=aa;end")
   
6. s = Join(Application.Transpose(Range("A1", [a1].End(4))), ",")
   
7. y = ojs.eval("a='" & s & "'.split(',');b=[];while a.size>0;b=b+a.slice!(0,100).shuffle;end;b")
   
8. [b1].Resize(UBound(y) + 1) = Application.Transpose(y)
   
9. 'Stop
   
10. End Sub

复制代码