ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
Python自动化办公应用大全 Excel 2021函数公式学习大典 Kutools for Office 套件发布 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: Zamyi

[求助] 有点难度,关于去除“重复”(已解决)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:16 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
[quote]原帖由 xyh_bear 于 2009-8-6 16:11 发表
用以下代码测试你那38340行数据,只需要140秒左右,可以说算最快的了。
楼主再要嫌慢,那就没办法了。

我已经在30秒附近了,最快你恐怕谈不上了

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:16 | 显示全部楼层
其实思路都是一样的, 出现差异在哪,源码啊源码啊

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:17 | 显示全部楼层
我还在等结果,看看结果多少条,一会告诉你在我机器上需要多长时间,刚运行1万

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:22 | 显示全部楼层
我的算法是,将12个数据分成两段
如:"3 16 19 4 15 5 18 6 14 11 13 22"
则组合成
" 3 16 19 4 15 5 18 6 14 11 13 22 3 16 19 4 15 5 18 6 14 11 " & chr(10) & " 3 22 13 11 14 6 18 5 15 4 19 16 3 22 13 11 14 6 18 5 15 4 "
第一条直接写进字典,当后面的数据读进来之后,两头加空格与已经生成的字典各KEY进行相似性比较,看是否包含居已有的字典中
如,后面来了一组数据 为 "6 14 11 13 22 3 16 19 4 15 5 18" ,则可以判断为重复数据,"22 13 11 14 6 18 5 15 4 19 16 3"也是重复数据
之所以前后加空格,是避免"2 13 11 14 6 18 5 15 4 19 16 3"这一组数据认作重复。

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:28 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 xyh_bear 于 2009-8-6 16:11 发表
用以下代码测试你那38340行数据,只需要140秒左右,可以说算最快的了。
楼主再要嫌慢,那就没办法了。

附件为:561954

具体实现思路如下:

利用 Dictionary 字典,主键唯一性。

1、逆向逐 ...



应该说,你可能没有理解透楼主的意思
并不是判断数据重合,不能打乱排列,所以你一说排序就错了!

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:30 | 显示全部楼层
数据排列顺序不能改变,楼主,是不是这样理解

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:31 | 显示全部楼层

回复 41楼 thtfzhaobo 的帖子

哈哈,楼主是38340行哦,你的代码测试过这么多吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-8-6 16:31 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 zldccmx 于 2009-8-6 16:30 发表
数据排列顺序不能改变,楼主,是不是这样理解

对,就是每一组数据最多只有12种重复

[ 本帖最后由 Zamyi 于 2009-8-6 16:40 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-8-6 16:34 | 显示全部楼层

回复 46楼 zldccmx 的帖子

我没理解错,我是对行的12个数排序到一个字符串,真正在表格中并没有排序哦

你运行一下附件看看嘛
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-12-21 00:01 , Processed in 0.022512 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表