三九宝宝网宝宝百科宝宝知识

Excel中删除重复数据

12月04日 编辑 39baobao.com

[Excle如何查找重复值]2选中指定区域后,在开始菜单中,找到条件格式。3点击条件格式,选择 突出显示单元格规则---》重复值,点击确认。4在弹出的提示框中点击确认,或者也可以选择设置为其他颜色。5这...+阅读

请仔细阅读并修改相关数据。

1、打开有重复数据的EXCEL

2、Alt+F11 打开宏编辑器

3、左边双击:ThisWorkBook

4、贴入以下代码并运行即可:

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 = 2

'以下不需要修改

Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row

Dim Count_1 As Integer: Count_1 = 0

Dim count_2 As Integer: count_2 = 0

Dim i As Integer: i = StartRow

With Sheets(sheetsCaption)

Do

Count_1 = Count_1 + 1

For j = StartRow To i - 1

If .Range(Col & i) = .Range(Col & j) Then

Count_1 = Count_1 - 1

.Range(Col & i).EntireRow.Delete

EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row

i = i - 1

count_2 = count_2 + 1

Exit For

End If

Next

i = i + 1

Loop While i< EndRow + 1

End With

MsgBox "共有" & Count_1 & "条不重复的数据"

MsgBox "删除" & count_2 & "条重复的数据"

Application.ScreenUpdating = True

End Sub

5、按F5键运行即可

以下为关联文档:

如何在Word中添加删除线2选中想要添加删除线的文字内容。3切换到开始选项卡。4在字体区域中找到删除线按钮。5点击按钮即可给选定内容添加删除线。6想要删除删除线的话,只需要再次选中添加了线...

当孩子爱上重复:爸妈最应该做这件事这是第多少次讲这个故事了,大人讲都讲烦了,孩子为什么还要听呢?其实等孩子感觉自己已经“熟练掌握”这项技能时,就会自动转移注意力,而在此之前还是会不断重复重复对孩子来说...

有个严重的问题,手足口病可重复感染吗近期,气温忽高忽低,此时也是手足口病的高发季节。暑假即将来临,孩子们将在家中度过炎炎夏日,手足口病散发形势会否更加严峻?现象医院儿科感染科多见手足口病一连几天,我们门诊部...

21分钟生下宝宝,医生重复说这句话,让宝妈开心不已!文好孕姐小莉早起六点去厕所见红,但是量不多,就赶紧喊上老公和婆婆去医院,当时老公带着她去医院,婆婆在家煮了一些鸡蛋,说吃了有力气生孩子。到了医院后做了胎心监护,然后回屋里...

孩子总是重复读一本书是什么原因?家长要怎么做爱听故事是每个宝宝的天性,讲故事是每个家长的天职。早期阅读启蒙,亲子阅读是必不可少的方式,孩子爱上读书,应该是件好事情,但是很多妈妈不禁疑虑,宝宝总是喜欢反复阅读一本书,不愿...

宝宝做重复性动作时,你是否急着打断他有的家长说7-9个月这个时期自家的宝宝会不断的把给他的玩具扔出去,或者说吃饭的时候把勺子扔了,捡起来又扔,有的家长说捡2-3次还好,可是最多的时候10次以上那是常事呀!让家长疲惫...

重复投递简历,一定会被HR封杀职场上关于求职方面的传闻有许多,例如,有人说重复投简历只会被HR列入黑名单……事实真如传闻吗?这么做一定会招致求职失败吗? 有不少求职者曾在前程无忧论坛(bbs.51job.)上发帖表...

解析小孩子喜欢重复事情的缘由前言:相信和孩子的时间呆得长久了,父母就会发现宝宝特别爱重复的做一些事情,一遍又一遍不厌其烦的去做,当然许多的妈妈也是不会懂得孩子为什么会这样,下面就由育儿专家来为我们详...

拒绝你的公司,可以重复投递简历吗求职者迫切想要得到某职位的心情可以理解,但凡事过犹不及,一个职位重复投递不仅不会提高获得面试的机会,反而是增加了HR的工作量。 有不少求职者曾在前程无忧论坛(bbs.51job.)上...

推荐阅读
图文推荐