七月的风,八月的雨,卑微的我喜欢遥远的你……
1,
大家好,我是看见星光。
长期关注我们EH公众号的朋友都知道,老祝家有个丫头在统计局上班,她曾经眼睛都不眨的对我说过这样一句话:
排序是数据分析与处理过程中最常见也是最重要的问题之一,搞定排序可以提升工作效率3.485626%……
看在老祝爱发红包的份上,我当然对她这话发自肺腑的相信,所以曾发过两篇推文:
Excel自带的排序功能确实已经足够强大,既能单列排序也能多列排序,既能按数值排序还能按颜色排序,甚至支持自定义规则排序,而且排序效率也非常优秀……
不过,有些情况,就不适合使用工作表排序方案了。比如……
大小不一合并单元格的情况下它会罢工。
复杂数据结构下的排序它会歇菜。
另外,毕竟这家伙是基于单元格对象的,如果咱们需要排序的数据并非存放在单元格中,它就更爱莫能助了。
比如VBA数组内部的元素如何排序?
恩,很遗憾,VBA数组并没有像其它语言那样自带排序的属性方法。
当此危难时刻,说不得咱就得自力更生,掌握点传说中编程的核心科技……排序算法了。
排序算法有很多,但复杂的咱们没闲心管,少用的我们也懒得理,所以就分享三个最常用最简单的:计数排序,冒泡排序,快速排序。
2,
先说计数排序。
为什么先说它呢?不是它长的帅,理智+帅气如我不会犯如此幼稚的错误,原因只有一个——这货最简单。
什么是计数排序?简单的说,就是利用数组下标来确定元素的正确位置,在数组中记录元素出现的次数,最后得出有序数据。
举个例子还是。
如下图所示,为某公司几位拥有百万年薪……小职员的考核得分表,得分范围是1~10之间的整数。
现在,我们需要把“看见星光”……也就是理智+帅气的在下了……的得分按升序排列,结果如下。
……
首先,我们根据得分的范围,也就是最低分1,最高分10,建立一个数组。
Redim r(1 to 10)
如此一来,我们声明了一个数组r,里面包含10个元素。数组是有序的元素集合,因此第一个元素就是r(1),第2个元素就是r(2)……其余以此类推。
目前这个数组是空的,刚建国,一穷二白,啥都没有。
然后我们遍历数据,按号入座,把每个得分按照对应的数组索引号计入数组,并累加出现次数。
比如说7,那就是r(7)=r(7)+1
当7第一次出现时,r(7)=1
当7第二次出现时,r(7)就等于1+1,也就是2……对吧?
于是代码如下
For Each rng In [b2:g2]
n = rng.Value
r(n) = r(n) + 1
Next
数据遍历完成后,数组的情况就成了下图这样。
1、4、6、10各出现了一次,计数为1,7出现了两次,计数为2.
……
最后,我们根据数组记录的次数,依次把数据算出就OK了。
r(1)存在1次,说明数据源出现过一个1,于是我们得出一个1
r(2)为空,不管它
r(3)为空,不管它
r(4)存在1次,说明数据源出现了一个4,于是我们得出一个4
r(5)为空,不管它
r(6)存在1次,我们得出一个6
r(7)存在2次,说明数据源出现了两个7,于是我们得出7和7
……
因此最后得出升序排序结果1、4、6、7、7、10
整个过程的完整代码如下:
Sub VBACountingSort()
Dim aData, aResult, r
Dim i&, j&, n&, k&
Dim lngMin&, lngMax&
aData = Range('b2:g2').Value
'数据源装入数组adata
lngMax = Application.Max(aData)
'数据中的最小值
lngMin = Application.Min(aData)
'数据中的最大值
ReDim r(lngMin To lngMax)
'建立一个数组,范围是最小值到最大值之间,例如1 to 10
ReDim aResult(1 To UBound(aData)*UBound(aData,2), 1 To 1)
'结果数组
For i = 1 To UBound(aData, 2)
'遍历数据,按照索引号定位数据在数组r的正确位置,并累计出现次数
n = aData(1, i)
r(n) = r(n) + 1
Next
For i = lngMin To lngMax
'正序遍历数组,也就是从小往大取值
If r(i) > 0 Then
'如果指定数组下标内有数据
For j = 1 To r(i)
'按出现次数提取数据
k = k + 1
aResult(k, 1) = i
'数据写入结果数组
Next
End If
Next
Range('j1').Resize(k, 1) = aResult
'排序后的数据写入工作表
End Sub
联系客服