Excel中删除重复的数据

经常碰到excel中重复的数据，如果数量不多，手工删除或许尚可，如果数据比较大，就需要借助计算机拉，一般有两种方法，一种是用Excel中的高级筛选工具，另一种就是我下面说的，利用vb脚本实现，或许更好用些。

1.函数1

Sub deleteDouble()

'用户输入提示
    Dim userInput
        userInput = Application.InputBox("输入需要检查的起始行,结束行,以及需要检察的列,格式如 1,20,C")

    Dim arrUserInput
        arrUserInput = Split(userInput, ",")

    Dim theColumn
        theColumn = Asc(arrUserInput(2)) - 64   '需要进行检验的列

    Dim theStart
        theStart = arrUserInput(0)  '数据的起始行

    Dim theEnd
        theEnd = arrUserInput(1) '最后一行数据的号码.

    Dim i   '每一行的号码
    Dim j   '
    For i = theStart To theEnd '循环处理过程，如果数据比较大，可能耗费时间较多
        For j = i + 1 To theEnd '从当前行至结尾.
            If Cells(i, theColumn) = Cells(j, theColumn) Then
                Rows(j).Delete
            End If
        Next
    Next

End Sub

2.函数2

用宏处理这样的问题相对方便一点，有兴趣试试：

一、按ALT+F11 打开VB编辑器

二、双击左边靠上的【工程资源管理器】中的【MS Excel 对象】中的ThisWorkbook，在右边的代码窗口贴入下面的代码：

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

Excel中删除重复的数据相关推荐

textarea选中行删除_Easy Data Transform如何在Excel中删除重复的行？
Excel用户经常希望删除具有重复值的行.例如,要删除包含重复电子邮件的行,那么Easy Data Transform如何在Excel中删除重复的行?下面一起来看看吧. 先在您的Mac上安装Easy ...
Excel中删除重复数据(用VBA代码)
请仔细阅读并修改相关数据.我推荐使用第二种方法,是我修改的,很好用,第三种情况用得比较少. 第一种情况保留不重复的记录行,重复的只保留一行. 1.打开有重复数据的EXCEL 2.Alt+F11 打开 ...
python去重复行_python 去除Excel中的重复行数据
原博文 2019-08-05 16:15 − 导入pandasimport pandas as pd1.读取excel中的数据:frame = pd.DataFrame(pd.read_csv('ex ...
xlsx表格怎么筛选重复数据_在Excel中怎样筛选以及删除重复的数据呢？
Excel中大量的公式函数可以应用选择,分析信息并管理电子表格或网页中的数据信息列表与数据资料图表制作,可以实现许多方便的功能,带给使用者方便.今天就跟着小编一起来看一看:在Excel中怎样筛选以及删 ...
如何去除Excel中的重复的行数据
转自:https://blog.csdn.net/fox009521/article/details/78116816 很多时候我们在处理EXCEL表格的数据时,需要去除重复的行数据.假如数据不多,可 ...
MSSQL如何在没有主键的表中删除重复数据
MSSQL如何在没有主键的表中删除重复数据原文:MSSQL如何在没有主键的表中删除重复数据为了对重复数据进行实验,下面建一个设计不太好(没有主键)表并插入了一些重复数据: create datab ...
mysql scrapy 重复数据_MySQL大数据量表中删除重复记录
MySQL大数据量表中删除重复记录最近工作中需要抓取大量新闻,抓取的数据中由于一些原因存在一些重复数据,而整个数据表的记录数接近10万条,大小接近1个G,又在我自己的渣渣本本上,查询速度十分不理想, ...
怎么在excel中对比两列数据并查找重复项
怎么在excel中对比两列数据并查找重复项方法一: 方法二: 方法三: Excel查找2列相同的数据,并且返回对应列的另1列数据: IF函数语法格式: 方法一: =MATCH(A1,D$1:D95, ...
在excel中如何筛选重复数据_Excel表格技巧—如何在 Excel 中查找重复值
今天和大家一起分享一下excel表格中如何快速查找重复值,在办公中很经常需要它. 先打开一张需要查找重复数据或重复值的EXCLE表格,如图我们以B2做为查找列: 点击工具菜单栏的"开始&qu ...

Excel中删除重复的数据

Excel中删除重复的数据

Excel中删除重复的数据相关推荐

最新文章

热门文章