Excel.VBA 快速删除重复记录

Excel.VBA 快速删除重复记录

日常工作中的工作表中经常会有重复记录，清除这些重复记录是一个繁琐的工作，即使在排序之后再进行手工筛选，也经常会出现遗漏，而使用VBA代码就可以快速准确地删除重复记录。

待处理数据如下：

列1列2111223233536

功能实现步骤如下：

1、快捷键Alt+F11打开VBA界面，打开"插入"菜单，插入模块，输入如下代码：

Sub RemoveDuplicateRecord()
' 快速删除重复记录
Dim Row0 As Long, Row1 As Long
With ActiveSheet
    Row0 = .Cells(1048576, 1).End(xlUp).Row
    .UsedRange.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
    Row1 = .Cells(1048576, 1).End(xlUp).Row
End With
MsgBox "共删除" & Row0 - Row1 & "(" & Row0 & "-" & Row1 & ")" & "条记录", vbInformation, "提示"
End Sub

2、"开发工具"选项卡"控件"中"插入"按钮控件，指定宏为RemoveDuplicateRecord然后确定退出对话框
3、修改按钮控件显示名为"删除重复"

到现在一起准备妥当，单击"删除重复"按钮试试。执行结果如图

 

 

 

或者快捷键 Alt+F8 直接运行宏