VBA内存二维数组对象的多key稳定排序算法

香川群子 · 发表于 2015-12-9 09:32

附件中代码参数适当调整。

qx-liuwx · 发表于 2015-12-10 09:28

本帖最后由 qx-liuwx 于 2015-12-10 09:41 编辑

香川群子发表于 2015-12-9 09:31
从同文件夹的Data.txt文件中提取80万有效数据，然后整理输出的代码附件。

好方法！
请教老师，如果此TXT文件超过500万行，excel能否通过循环来将此全部数据分次将有效的选取到指定表格中？谢谢！

qx-liuwx · 发表于 2015-12-10 09:36

香川群子发表于 2015-12-8 21:04
含数据的文件太大。删去大部分数据后上传附件。

再次劳烦老师：
为进一步加速，选取过程对CY/A/B列的排序暂不考虑，
针对原附件只针对CX列的中值为1的数据全部选取到表2中，
要如何简化代码使运行速度更快，谢谢！
又给您添麻烦了。谢谢！

香川群子 · 发表于 2015-12-10 12:32

qx-liuwx 发表于 2015-12-10 09:28
好方法！
请教老师，如果此TXT文件超过500万行，excel能否通过循环来将此全部数据分次将有效的选取到 ...

不知道你这500万行数据中，有效数据有多少行。如果是5万行左右，处理起来很快的。

一般说，读取Txt文件、标记并提取有效行、
然后用我的VBA二维数组多key稳定排序算法，应该很快就能出结果。

但是，把5万行结果输出到工作表，就会耗费很长时间。（如果你的机器内存够大、CPU够快可能好一点。）

香川群子 · 发表于 2015-12-10 12:43

qx-liuwx 发表于 2015-12-10 09:36
再次劳烦老师：
为进一步加速，选取过程对CY/A/B列的排序暂不考虑，
针对原附件只针对CX列的中值为1的 ...

【提取然后马上输出】、和【提取、排序后输出】的耗时差别不大。

因为VBA内存数组的排序，只要十几秒即可完成。

qx-liuwx · 发表于 2015-12-12 11:51

香川群子发表于 2015-12-10 12:43
【提取然后马上输出】、和【提取、排序后输出】的耗时差别不大。

因为VBA内存数组的排序，只要十几秒 ...

明白，感谢香川老师的帮助！

zcz171392416 · 发表于 2016-8-5 19:50

谢谢楼主
学习中

jinhaitiao16 · 发表于 2017-3-31 19:30

谢谢楼主
学习中

blackttea1 · 发表于 2017-4-1 11:50

深度好帖，必须学习。

任浪漫 · 发表于 2017-4-3 13:39

谢谢楼主，学习中

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

[原创] VBA内存二维数组对象的多key稳定排序算法