Excel.VBA 快速删除重复记录
2012-12-07 16:28
447 查看
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 直接运行宏
相关文章推荐
- 在SQL Server中快速删除重复记录
- oracle-快速删除重复的记录
- oracle-快速删除重复的记录
- 在SQL Server中快速删除重复记录(多图)
- 在SQL Server中快速删除重复记录(多图)
- 在SQL Server中快速删除重复记录
- 快速删除重复记录(Oracle)
- oracle-快速删除重复的记录
- 在SQL Server中快速删除重复记录
- oracle-快速删除重复的记录
- 在Excel2007中快速删除重复记录的方法
- oracle 快速删除大批量数据方法(全部删除,条件删除,删除大量重复记录)
- 快速删除重复的记录
- 如何对EXCEL一列的数据中快速提取不重复的记录
- oracle 快速删除大批量数据方法(全部删除,条件删除,删除大量重复记录) 转
- 快速删除ORACLE重复记录
- oracle快速删除重复的记录
- Excel中删除重复数据(用VBA代码)
- oracle-快速删除重复的记录
- 在SQL Server中快速删除重复记录