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

CAONI · 发表于 2014-1-18 16:31

本帖最后由 CAONI 于 2014-1-18 16:34 编辑

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)

yjh_27 · 发表于 2014-1-19 00:08

参见附件。

CAONI · 发表于 2014-1-19 09:38

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

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

yjh_27 · 发表于 2014-1-19 11:33

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

参见附件。

CAONI · 发表于 2014-1-19 13:39

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

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

bluexuemei · 发表于 2014-3-16 11:21

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

复制代码

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

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

评分