查看: 6250|回复: 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币好友
在线时间 小时
最后登录月度优秀 次
我要常过来向各位学习！谢谢诸位！
中级二, 积分 936, 距离下一级还需 114 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
<font color="#Mouse 发表于
把B列数据剪切到A列下面，直接使用“删除重复值”命令（07以上）或者数据透视表或“高级筛选”命令
条件格 ...
初级二, 积分 160, 距离下一级还需 90 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
放在数据库中删选最方便而且应该不卡
初级三, 积分 330, 距离下一级还需 170 积分
积分学习力
魅力值 影响力
消费券 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 by60万的数据量，用Excel一计算就卡死，求指教_百度知道
60万的数据量，用Excel一计算就卡死，求指教
有人说用数据库，但不会用啊。
我有更好的答案
尽量分步简化你的计算，使用排序后辅助列的计算方式，将全局性的计算变成小区域的计算，不要用什么数组公式和SUMPRODUCT。刚刚帮一位知友处理了3万条的数据统计（他用sumproduct电脑奔溃了）。
采纳率：76%
来自团队：
60万的数据量用excel 必定卡死，个人感觉excel 最多5万的数据量，超过这个量即使是删除都很慢。所以学数据库吧Access ，规则数据导入进去 ，界面也比较像excel ，但是在大量数据处理时会非常爽。
1、等一等，看看能不能算出来。2、换个高性能的电脑，内存要大的。
分开计算，分成一块块不卡的量
其他1条回答
为您推荐：
其他类似问题
excel的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 944|回复: 2
表格里用了大量数据公式导致一运算就卡死，能不能用VBA代替？
阅读权限20
在线时间 小时
我需要将一张10列*8万行左右的原始数据表生成两张交叉表。第一张表用了近500个数组公式，2分钟能算完，第二张表有近3000个数组公式，一运算电脑就几乎死机…请问一下能不能用VBA代替数组公式，提高计算效率？
之前没怎么接触过VBA，就录过几个宏，所以看了一下午VBA教程也没搞懂该从哪里入手，请各位大神指点QvQ
表格太大没法传附件，丢度盘上了…
https://pan.baidu.com/s/1i4PCNXz
阅读权限95
在线时间 小时
可以肯定的告诉你，用VBA可以很好的解决，数据多了千万别用函数，会很卡的...............................
函数适合于很小的数据量，有时候还是比较方便的
阅读权限20
在线时间 小时
可以肯定的告诉你，用VBA可以很好的解决，数据多了千万别用函数，会很卡的............................... ...
请问具体该怎么写QAQ……
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师使用了大量数组公式导致Excel卡死，有没有解决方法？（一）
我的图书馆
使用了大量数组公式导致Excel卡死，有没有解决方法？（一）
知乎上有这么一个问题原始数据是10列*近8万行的一维表，按要求需要生成一张交叉表，所求的值是中位数。access或者透视表都没法求中位数，所以我只能写公式。但是这个交叉表总共有近3000个单元格，用了近3000次数组公式，所以一运行电脑就几近死机…有没有更好的解决方法呢？---------------------------------------------------想了一下还是想用VBA代替数组公式实现功能，因为不是很想破坏现在整个报表草稿的结构…（好不容易搞出来的…）然而我之前只录过几个简单的宏，看了一下午VBA教程也没搞懂该怎么做…有没有dalao能指点一下？咳咳可能饼干之前几篇干货写得太干了结果跳出率有点高 。。饼干心里苦 。。（链接放在文末了）这次饼干要借这个问题和大家一起聊一聊做报表的正确思路和方法分析问题题主的问题是：原始数据是10列×79562行的一维表要交叉分组求中位数，有没有好的方法？作为一个专业的做表的数据分析师，饼干可以很明确的告诉大家：有！不需要学编程！也不需要装软件！认真看完这篇安利答案就能上手！熟练工 20分钟 就能做完模板！题主这个量级的数据跑一次根本用不了 10s！不黑不吹！毕竟饼干平时跑报表 行数 一般是这样的…在正式安利之前，我们先整理一下目前提到的方式题主想到的：数据透视表、数组公式、Access、VBA知友推荐的：Oracle、SSRS、SPSS、SAS、Python为什么不推荐这些方式？我们看一下题主提供的原始报表：这是一张具有中国特色的混合式报表从上到下分为 4 块月度放款时效中位数时长环比下降率（月环比的衍生）指定日期的放款时效中位数指定月份下每日放款时效中位数同时最右侧一列是读取另一份数据源的放款时效，并且也分了上述 4 块现有的方式数据透视表适合处理大量数据，但不支持中位数数据库（Oracle）、统计软件（SPSS、SAS、Python）能算中位数，但是和 Excel 的交互差…尤其是中国特色混合式报表…顺便吐槽统计软件有 Python 没 R 不服SSRS 没用过，但用过 MSTR 的饼干表示 BI 软件的部署绝对是个大工程而题主最后的选择数组公式，本身不适合用于大量数据，尤其被引用的单元格是公式计算的结果VBA，可以通过 UDF 解决，但会涉及到多维数组或者换句话说，既然题主问的是有没有 好的方法，那么以饼干对这些方式的了解并没有可以在半小时甚至半天内达到以下效果的显示明细的月份切片重点关注的日期切片20 分钟的制作时间10 秒钟的刷新时间关键是Excel 自带！上手容易！！不得不说，微软确实厉害早早看到个性化专业化数据分析的需求Excel → Power Query → Power Pivot → Power View → Power BI从查询到分析到可视化一应俱全，绝对是新手上路的不二选择！具体操作：当然，我不会告诉你知乎上有完整答案的说好的干货：关注饼干，少加点班更多内容移步公众号：CookieData本文为头条号作者发布，不代表今日头条立场。
馆藏&55634
TA的最新馆藏
喜欢该文的人也喜欢}