搜公众号
推荐 原创 视频 Java开发 开发工具 Python开发 Kotlin开发 Ruby开发 .NET开发 服务器运维 开放平台 架构师 大数据 云计算 人工智能 开发语言 其它开发 iOS开发 前端开发 JavaScript开发 Android开发 PHP开发 数据库
Lambda在线 > VBA编程学习与实践 > 聊一下VBA编程中常用的排序算法(一)计数排序

聊一下VBA编程中常用的排序算法(一)计数排序

VBA编程学习与实践 2019-07-27
举报

七月的风,八月的雨,卑微的我喜欢遥远的你……

This browser does not support music or audio playback. Please play it in WeChat or another browser. 聊一下VBA编程中常用的排序算法(一)计数排序
1,

半夜好哦,大家。

聊一下VBA编程中常用的排序算法(一)计数排序

排序是数据分析与处理过程中最常见也是最重要的问题之一,搞定排序可以提升工作效率3.485626%……

聊一下VBA编程中常用的排序算法(一)计数排序

看在老祝爱发红包的份上,我当然对她这话发自肺腑的相信,所以曾发过两篇推文:



抗拒从严来说,Excel自带的排序功能确实已经足够强大,既能单列排序也能多列排序,既能按数值排序还能按颜色排序,甚至支持自定义规则排序……

但如果持有坦白从宽的政策……那么……呵呵呵……不好意思啊……Excel自带的排序功能当然就没有那么完美了。

大小不一合并单元格的情况下它会罢工。

复杂数据结构下的排序它会歇菜。

另外,毕竟这家伙是基于单元格对象的,如果咱们需要排序的数据并非存放在单元格中,它就更爱莫能助了。

比如VBA数组内部的元素如何排序?

恩,很遗憾的一个事儿,VBA数组并没有像其它语言那样自带排序的属性方法。

当此危难时刻,说不得咱就得自力更生,掌握点传说中编程的核心科技……排序算法了。

排序算法有很多,但复杂的咱们没闲心管,少用的我们也懒得理,所以就分享三个最常用最简单的:计数排序,冒泡排序,快速排序。

2,

先说计数排序。

为什么先说它呢?不是它长的帅,理智+帅气如我不会犯如此幼稚的错误,原因只有一个——这货最简单。

什么是计数排序呢?简单的说,就是利用数组下标来确定元素的正确位置,在数组中记录元素出现的次数,最后得出有序数据。

举个例子还是。

如下图所示,为某公司几位拥有百万年薪……小职员的考核得分表,得分范围是1~10之间的整数。

聊一下VBA编程中常用的排序算法(一)计数排序

现在,我们需要把“看见星光”……也就是理智+帅气的在下了……的得分按升序排列,结果如下。

聊一下VBA编程中常用的排序算法(一)计数排序

……

首先,我们根据得分的范围,也就是最低分1,最高分10,建立一个数组。

Redim r(1 to 10)

如此一来,我们声明了一个数组r,里面包含10个元素。数组是有序的元素集合,因此第一个元素就是r(1),第2个元素就是r(2)……其余以此类推。

聊一下VBA编程中常用的排序算法(一)计数排序

目前这个数组是空的,刚建国,一穷二白,啥都没有。

然后我们遍历数据,按号入座,把每个得分按照对应的数组索引号计入数组,并累加出现次数。

比如说7,那就是r(7)=r(7)+1

当7第一次出现时,r(7)=1

当7第二次出现时,r(7)就等于1+1,也就是2……对吧?

聊一下VBA编程中常用的排序算法(一)计数排序

于是代码如下

    For Each rng In [b2:g2]
        n = rng.Value
        r(n) = r(n) + 1
    Next

数据遍历完成后,数组的情况就成了下图这样。

聊一下VBA编程中常用的排序算法(一)计数排序

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(r), 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


3,

简单说一下计数代码的扩展应用。

我们曾经使用计数排序搭配字典,实现过自定义规则排序,参考链接:


然后依然使用第一张图的数据为例,假设需要提取每个人前三名的成绩明细,结果如下图所示。你要不要动手写写代码?

聊一下VBA编程中常用的排序算法(一)计数排序


4,

计数排序有以下两个局限点:

1),仅限于整数。

换个带小数点的,比如圆周率3.1415926,如果不变通的话,在数组中,按数组下标或者说索引定位,它就无处安放了。

聊一下VBA编程中常用的排序算法(一)计数排序

所以,计数排序在实际应用中特别适合日期排序,毕竟在Excel中日期都是整数。

那么是不是说带小数的数值它就无能为力了呢?

比如下图所示的考试成绩表,可能包含84.5这样的小数,有几万条,能否使用计数排序?

聊一下VBA编程中常用的排序算法(一)计数排序

其实是可以的。

嗯?前面不是说?

聊一下VBA编程中常用的排序算法(一)计数排序

么么哒,我前面只是说如果不变通的话,带小数点的数值,计数算法它不行……

既然计数排序只能算整数,那你把小数转化成整数不就是了?84.5乘以10不就成了整数845了吗?

把数值全部统一放大十倍,也就把小数都变成了整数,计数排序后,从数组中取值时再除以10还原不就OK了??

做人不要太死板,对不对?

2),整数的跨度范围不宜过大

比如说,三个数排序,分别是1、100000、100000000,跨度范围是1到1亿之间,尽管它们是整数,但也不适合计数排序,时间和空间的复杂度都渣的一匹,大部分人的电脑估计连声明数组这步都会被警告内存不足……

那么此时我们应该怎么办呢?

如下图酱紫的,假设需要提取每个人前三收入的金额数据,怎么办?

……

——客官,不……不好意思……天太晚了……本店……本店打烊了,欲知后事如何,下次再来啊……

版权声明:本站内容全部来自于腾讯微信公众号,属第三方自助推荐收录。《聊一下VBA编程中常用的排序算法(一)计数排序》的版权归原作者「VBA编程学习与实践」所有,文章言论观点不代表Lambda在线的观点, Lambda在线不承担任何法律责任。如需删除可联系QQ:516101458

文章来源: 阅读原文

相关阅读

关注VBA编程学习与实践微信公众号

VBA编程学习与实践微信公众号:exceleasytools

VBA编程学习与实践

手机扫描上方二维码即可关注VBA编程学习与实践微信公众号

VBA编程学习与实践最新文章

精品公众号随机推荐

举报