《EXCEL中删除重复数据行的宏》由会员分享，可在线阅读，更多相关《EXCEL中删除重复数据行的宏（2页珍藏版）》请在金锄头文库上搜索。
1、一、按 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“ Di
2、m 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 = Star
3、tRow 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 表，运行菜单 【工具】【宏】【宏】 ，选择 删除重复数据 这条宏，然后按执行。统计出不重复的行数即个数 =SUM(1/COUNTIF(数据列,数据列) 数组公式 Ctrl+Shift+Enter
