excel中删除重复数据

今天碰到的一个问题，删除重复数据，这里做个记录。

一列数据，有很多重复项目，现在需要删除重复的，如下图所示：

简单的方法是，选中该列，

工具栏“数据”项目中选择“删除重复项”：

按下确定：

按下确定完成重复项目的清理：

那么从vba的角度如何删除数据：

测试用添加数据如下：

Sub addData() 'Dim i As LongDim j As IntegerDim rndID As LongDim rndHex As StringDim rndValue As StringRandomizeFor i = 2 To 10000rndValue = ""For j = 1 To 4rndID = Rnd() * 25 + 65rndHex = Chr(rndID)rndValue = rndValue & rndHexNextSheets("Sheet1").Range("A" & i).Value = rndValueNext
End Sub

获得不重复的数据代码如下：

Sub getData()
Dim i As LongDim currentValue As String
Dim pos As Longpos = 3
For i = 2 To 10000currentValue = Sheets("Sheet1").Range("A" & i).ValueIf i > 2 ThenSet c = Sheets("sheet1").Range("A2:A" & CStr(i - 1)).Find(currentValue)If c Is Nothing ThenSheets("Sheet1").Range("B" & pos).Value = currentValuepos = pos + 1End IfElseSheets("Sheet1").Range("B" & pos).Value = currentValueEnd IfDoEvents
NextEnd Sub

需要注意的是：代码中加入 DoEvents，数据量大的时候，防止假死。

采用excel本身提供的“删除重复项”功能速度比代码快得多，但是不易控制。用vba更能适应更多的情况。

学习更多vb.net知识，请参看vb.net 教程目录

excel中删除重复数据相关推荐

Excel中删除重复数据(用VBA代码)
请仔细阅读并修改相关数据.我推荐使用第二种方法,是我修改的,很好用,第三种情况用得比较少. 第一种情况保留不重复的记录行,重复的只保留一行. 1.打开有重复数据的EXCEL 2.Alt+F11 打开 ...
Excel中删除重复的数据
Excel中删除重复的数据经常碰到excel中重复的数据,如果数量不多,手工删除或许尚可,如果数据比较大,就需要借助计算机拉,一般有两种方法,一种是用Excel中的高级筛选工具,另一种就是我下面说的 ...
textarea选中行删除_Easy Data Transform如何在Excel中删除重复的行？
Excel用户经常希望删除具有重复值的行.例如,要删除包含重复电子邮件的行,那么Easy Data Transform如何在Excel中删除重复的行?下面一起来看看吧. 先在您的Mac上安装Easy ...
MSSQL如何在没有主键的表中删除重复数据
MSSQL如何在没有主键的表中删除重复数据原文:MSSQL如何在没有主键的表中删除重复数据为了对重复数据进行实验,下面建一个设计不太好(没有主键)表并插入了一些重复数据: create datab ...
数据库中删除重复数据
数据重复,主要分为两种: 一是完全重复的记录,也即所有字段均重复的记录,二是部分关键字段重复的记录,比如身份证号字段重复,而其他字段不一定重复或都重复可以忽略,毕竟我们只要保证身份证号在表中数据唯一. ...
MySQL中删除重复数据
2019独角兽企业重金招聘Python工程师标准>>> 参考网页 SQL删除重复数据只保留一条 https://blog.csdn.net/anya/article/details/ ...
Access中删除重复数据行
1.什么是重复数据行: 1>.两笔记录的每一个字段都相同(表中没有主键): 2>.两笔记录的特定字段均相同,其余字段不同(表中可能有主键,也可能没有主键): 2.如何删除重复数据行: 1& ...
Excel 表格删除重复数据
WPS 删除重复数据的功能是要钱的.所以我想到了公式. 以A2 单元格为例,输入公式 =COUNTIF(A3:A$1416,A2) 也就是拿着当前值到后面的所有值去寻找,看有没有.然后把值为0的留下 ...
textjoin去重_excel中几列相同的数据,多列去重？ | excel表格删除重复数据
Excel中a列和c列的数据有相同的,也有不同的,如何去重后现在在另一个表格的a列这个不算难问题,你上传一下的数据表,帮你做了. excel 如何将各列数据去重后合并到各列的一个单元格里如图所示, ...
怎样删去csv中重复行_4个锦囊，祝你快速删去Excel中的重复数据
快速删去重复数据,雷哥在这里提供4种超简单的解决方法,大家一看就会. 为了更加直接明了地说明,雷哥在这里通过具体案例进行讲解. 案例:下图B列日期中,橘黄色部分是我们已经标记好颜色的重复项. 要求:快 ...

excel中删除重复数据

excel中删除重复数据相关推荐

最新文章

热门文章