删除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