求：将区域中各数字每隔3行为一小组按出现次数升序排序的vba程序

CAONI

1、在区域b5:h3000中分别填有不同数字；
2、以行为单位，每隔3行为一小组，即b5-h7，b8-h10，b11-h13各为一组...将各组数字按出现次数多少按升序排序在k5开始的k列各单元格， 即b5-h7排序在k5开始的第5行每个单元格一个数字，b8-h10排序在k6开始的第6行每个单元格一个数字，b11-h13排序在k7开始的第7行每个单元格一个数字。
3、或将附件中的3个si程序改成循环。
谢谢！
排序 (2).rar (20.43 KB, 下载次数: 11)

2014-1-18 16:33 上传

点击文件名下载附件

yjh_27

参见附件。

CAONI

yjh_27 发表于 2014-1-19 00:08
参见附件。

看来这个程序挺复杂的，正在消化中，从目前使用来看，由于排序后的数据还要处理，所以数据中不能含有次数，只要排序后的数据就可以了；另外目前每点击一次按钮，相同次序的数字都会重排一次，请将这点改为：相同次序的数字其：大数排在小数前面，麻烦你再修改一下吧，谢谢！

yjh_27

CAONI 发表于 2014-1-19 09:38
看来这个程序挺复杂的，正在消化中，从目前使用来看，由于排序后的数据还要处理，所以数据中不能含有次数 ...

参见附件。

CAONI

yjh_27 发表于 2014-1-19 11:33
参见附件。

修改后，程序完全满足要求，由此可见老师真是功力深厚，谢谢！

bluexuemei

1. '须安装ACTIVERUBY.才能运行
   
2. '下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
   
3. Sub test()
   
4. Dim ojs, i&, arr, brr
   
5. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
6. ojs.eval ("def aa(aa);$aa=aa.flatten!;end")
   
7. k = -1
   
8. With Sheet1
   
9.     For i = 5 To [B65536].End(3).Row Step 3
   
10.              k = k + 1
    
11.              arr = .Cells(i, 2).Resize(3, 7)
    
12.              y = ojs.Run("aa", arr)
    
13.              brr = ojs.eval("$aa.sort_by{|v|[-$aa.count(v),v]}.uniq")
    
14.             .Cells(5 + k, "K").Resize(1, UBound(brr) + 1) = brr
    
15.     Next i
    
16. End With
    
17. Set ojs = Nothing
    
18. Stop
    
19. End Sub
    

复制代码