七月的风，八月的雨，卑微的我喜欢遥远的你……
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) + 1Next
数据遍历完成后，数组的情况就成了下图这样。
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, rDim i&, j&, n&, k&Dim lngMin&, lngMax&aData = Range("b2:g2").Value'数据源装入数组adatalngMax = Application.Max(aData)'数据中的最小值lngMin = Application.Min(aData)'数据中的最大值ReDim r(lngMin To lngMax)to 10ReDim 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) + 1NextFor i = lngMin To lngMax'正序遍历数组，也就是从小往大取值If r(i) > 0 Then'如果指定数组下标内有数据For j = 1 To r(i)'按出现次数提取数据k = k + 11) = i'数据写入结果数组NextEnd IfNext1) = aResult'排序后的数据写入工作表End Sub
