Excel.VBA 快速删除重复记录

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

待处理数据如下：

列1列2111223233536

功能实现步骤如下：

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

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

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

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

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

只有这样才不会被“不可能”束缚，才能不断超越自我。