查看: 4732|回复: 16
[Excel VBA]
重复值的筛选删除！数据过万，excel卡死！大神帮帮忙？急
新鲜人, 积分 8, 距离下一级还需 2 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
情况如下：
左边：原始数据13万个
右边：保留数据4万多个
说明：保留数据 属于 原始数据
问题：现在想删除掉原始数据 这列 里的保留数据（相当于删除这两列的重复值了），剩下即非保留数据。
我的方法是：
1、选中两列--开始--条件格式--重复值--标红（这两列中相同的数据就标红了，所以保留数据列全部标红了，此列作为依据而已）
2、选中原始数据 列---筛选---按颜色筛选
3、删除该列里带有颜色的数据即可
少量数据尝试是可行的。但是因为数据量太大，excel总是卡死！有木有啊。
希望好心大神帮忙解决这个问题！感激不尽！
新鲜人, 积分 8, 距离下一级还需 2 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 zdx0 于
12:02 编辑
a.png (10.39 KB, 下载次数: 0)
12:02 上传
截图是整个例子，需要的话我可以上传原文件！
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
把B列数据剪切到A列下面，直接使用“删除重复值”命令（07以上）或者数据透视表或“高级筛选”命令
条件格式挺耗内存的，感觉不太适合你的情况。
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
1，2007版以上用删除重复项功能；
2，或者借Access导下：
Select Distinct [字段名称]
From [表名称]
新鲜人, 积分 8, 距离下一级还需 2 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
<font color="#Mouse 发表于
把B列数据剪切到A列下面，直接使用“删除重复值”命令（07以上）或者数据透视表或“高级筛选”命令
条件格 ...
哦，是哈。我的是2010版本，谢谢啊！
新鲜人, 积分 8, 距离下一级还需 2 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
嘉昆2011 发表于
1，2007版以上用删除重复项功能；
2，或者借Access导下：
Select Distinct [字段名称]
嗯嗯。我的是2010版本，谢谢你们！
新鲜人, 积分 8, 距离下一级还需 2 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
我要常过来向各位学习！谢谢诸位！
中级二, 积分 929, 距离下一级还需 121 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
<font color="#Mouse 发表于
把B列数据剪切到A列下面，直接使用“删除重复值”命令（07以上）或者数据透视表或“高级筛选”命令
条件格 ...
初级二, 积分 160, 距离下一级还需 90 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
放在数据库中删选最方便而且应该不卡
初级三, 积分 327, 距离下一级还需 173 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
Sub 提取不重复值()
Dim i, j, m, n, p, q, r
q = ActiveCell.Column
n = Cells(1048576, q).End(xlUp).Row
Range(Cells(m, q + 1), Cells(Cells(1048576, q + 1).End(xlUp).Row, q + 1)) = &&
For i = m To n
& & For j = m To i - 1
& && &&&If Cells(i, q) = Cells(j, q) Then
& && && &&&p = p + 1
& && &&&End If
& & Next j
& & If p = 0 Then
& && & Cells(m + r, q + 1) = Cells(i, q).Value
& && & r = r + 1
& & End If
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by推荐到广播
27781 人聚集在这个小组
(Lyla.燕子)
(洋洋与洋)
(旧日的足迹)
第三方登录：帖子很冷清，卤煮很失落！求安慰
手机签到经验翻倍！快来扫一扫！
求高手和大神帮帮忙！
10浏览 / 6回复
帮忙看看这数据好不好！我肿么本來玩王者荣耀挑选好英雄开局不需要读比率，肿么现在需要读了！是不是哪里不对呀！还是网速的事？
沙发自己坐！6+128的这数据到底行不行呀！
作为一名禽兽，我深感亚历山大
相当细致的拆解啊 这个形式不错
看看效果怎样
您需要登录后才可以回帖&&&|&&&&&
可能感兴趣的板块：
用户名/注册邮箱/注册手机号
其他第三方号登录胆囊息肉吃什么药好 大神帮帮忙！
核心提示：胆囊息肉包括有由胆囊炎症所引起的黏膜息肉样增生、胆囊黏膜细胞变性所引起的息肉样改变、胆囊腺瘤性息肉以及息肉样胆囊癌等。　建议服用胆石通胶囊，清热利湿，利胆排石。
　　 & & & 是指胆囊壁向腔内呈息肉样突起的一类病变的总称，又称“”。临床上所指的胆囊息肉包括有由症所引起的黏膜息肉样增生、胆囊黏膜细胞所引起的息肉样改变、胆囊性息肉以及息肉样等。胆囊息肉在病理上有良性息肉和恶性息肉之分。良性胆囊息肉分为良性和假瘤性息肉两大类，其中良性肿瘤性息肉可来源于上皮组织（腺瘤）和支持组织（、脂肪瘤等），而假瘤性息肉则包括性息肉、炎性息肉、胆囊腺肌瘤病、组织异位性息肉等。　　 & & & &胆囊腺瘤性息肉是潜在的癌前病变，与胆囊癌的发生有关。与此相比，假瘤性息肉如胆固醇性息肉、炎性息肉及胆囊腺肌瘤则不会发生癌变。胆囊息肉的外科处理主要涉及到对胆囊息肉良恶性的判定，从而做到早期发现恶性病变及癌前病变，早期手术切除。　　 & &建议服用胆石通胶囊，清热利湿，利胆排石。用于肝胆湿热，右胁疼痛，痞渴呕恶，黄疸口苦，以及胆石症、胆囊炎、胆道炎属肝胆湿热证者。　　（1）少吃高脂肪、高胆固醇食物，　　（2）多吃富含维生素A的食品，如胡萝卜、番茄等。维生素A能减少胆固醇结晶的形成。
　　（3）增加食品中的蛋白质和碳水化合物的比例，以保证热量需要和利于肝糖原的生成。　　（4）减少纤维素含量，少渣饮食还可减少对胃肠的刺激。　　（5）增加进餐次数，以刺激胆汁分泌，减少胆囊中胆汁淤滞浓缩。
这些疾病都不是你要找的？ 用工具试试！
分享到微信朋友圈
“扫一扫”分享
胆囊息肉相关资讯
胆囊息肉问答
答：你好，根据你的描述，你是多发性胆囊息肉。建议平时清淡饮食，不要吃油腻不消...[]
答：1.在临床上多发性息肉（指两个或两个以上的）、息肉大于1.0厘米的都建议手术...[]
答：你好，根据描述的问题分析是可以继续观察的，一般情况下建议及时饮食清淡。[]
答：您好，您说的这种情况考虑是多发胆囊息肉，建议您暂时观察，清淡饮食，如果有...[]
主任医师科室：胆石病科
科室主任科室：微创外科
主任医师科室：普外科
副主任医师科室：肝胆外科（普外一科）
副主任医师科室：肝胆外科（普外一科）
主任医师科室：普外三科
副主任医师科室：普外科
副主任医师科室：普外科
主治医师科室：小儿外科
肝胆外科热门疾病
疾病精彩推荐
您最近浏览的疾病}