EXCEL删除被重复了的所有数据的函数

原创 2008年09月28日 13:05:00

Sub 删除重复数据()
'删除col列的重复数据
'本例是删除标题为sheet1的EXCEL表中A列(从A2单元格开始)的重复数据
Application.ScreenUpdating = False
'可根据实际情况修改下面三行的结尾值
Dim sheetsCaption As String: sheetsCaption = "Sheet1"
Dim Col As String: Col = "A"
Dim StartRow As Integer: StartRow = 1
'以下不需要修改
Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
Dim Count_1 As Integer: Count_1 = 0
Dim j As Integer: j = 0
Dim i As Integer: i = StartRow
With Sheets(sheetsCaption)
Do
j = i + 1
Count_1 = 0
Do
If .Range(Col & i) = .Range(Col & j) Then
Count_1 = 1
.Range(Col & j).EntireRow.Delete
j = j - 1
EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
End If
j = j + 1
Loop While j < EndRow + 1

If Count_1 = 1 Then
.Range(Col & i).EntireRow.Delete
EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
i = i - 1
End If
i = i + 1
Loop While i < EndRow
End With
MsgBox "删除成功!"
Application.ScreenUpdating = True
End Sub

 

Excel 删除重复值 一个不留

假设你的数据在A列 在B1输入公式 =if(countif(a:a,a1)>1,"删除","") 双击B1右下角的实心小黑点完成全列填充 选择AB两列后按B列排序,把要删除的排在一起,批量删除掉即可...
  • huaishuming
  • huaishuming
  • 2014年04月01日 19:58
  • 1864

C# excel 删除重复

string wlpath = this.Server.MapPath("Excel") + "\\" + filepath;
  • t44958
  • t44958
  • 2014年06月27日 16:18
  • 165

Excel条件删除(删除两列中相同的数据所在的行)

目的:删除两列中相同的数据所在的行(如图:删除红线的两行) 思路:利用excel 中if函数,添加条件,之后进行筛选删除,步骤如下: 直接删除这四行 ...
  • qq_30349961
  • qq_30349961
  • 2018年01月10日 13:31
  • 81

EXCEL里如何把一列中重复的内容删除

     EXCEL里如何把一列中重复的内容删除假如数据在A列,插入B列作为辅助列,B1=IF(COUNTIF($A$1:A1,A1)>1,"重复",""),公式向下拖,删除B列出现"重复"的行,最后...
  • owen_008
  • owen_008
  • 2010年06月29日 13:49
  • 6342

EXCEL函数实现从列数据中提取不重复值

EXCEL函数实现从列数据中提取不重复值
  • jyh_jack
  • jyh_jack
  • 2017年02月15日 10:11
  • 604

EXCEL如何整理出两列中不重复的数据

=IF(COUNTIF($B:$B,A2)=0,A2,"")
  • wwwyuanliang10000
  • wwwyuanliang10000
  • 2015年01月26日 10:01
  • 1127

2003版excel 删除某列数据相同的行只保留一行的方法

假设要把列A数据相同的行删除只保留一行 在新的一列(假设为C列)的第一行输入 =countif(A$1:A1,A1),回车后再选中C1,鼠标移到其右下角,双击那个”+“;选中C列,数据,筛选,自动筛...
  • old_imp
  • old_imp
  • 2013年03月26日 16:24
  • 4726

删除重复数据和删除所有重复数据不同处理方法

仔细想才发现处理过程是不一样的,删除重复数据要删除后面重复的保留第一个,删除所有的是把包括第一次出现的一起删除了。不知道有没有理解对。下面是一次作业的代码,比较懒没有把和删除无关的部分截掉。 // ...
  • Ehcoing
  • Ehcoing
  • 2016年01月10日 21:48
  • 375

python中查找excel某一列的重复数据 剔除之后打印

http://www.4byte.cn/learning/935.html 1.在python中excel的简单读写操作,推荐使用xlrd(特别是读操作)  2.到http://pypi.py...
  • liuyukuan
  • liuyukuan
  • 2015年12月31日 22:13
  • 1139

EXCEL中如何根据某列找到重复的行,并将重复只保留一条其余的删除?

Sub 删除重复数据() '以col列为条件删除的重复行数据 '本例是删除标题为sheet1的EXCEL表中以A列(从A2单元格开始)为条件的重复韩国数据 Application.Scre...
  • qlslvsnow
  • qlslvsnow
  • 2014年02月16日 18:26
  • 372
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:EXCEL删除被重复了的所有数据的函数
举报原因:
原因补充:

(最多只允许输入30个字)