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 直接运行宏

Excel.VBA 快速删除重复记录相关推荐

php sql 去除重复数据,MSSQL_快速删除重复记录,SQL Server如何实现？，如果一张表的数据达到上百万 - phpStudy...
如果一张表的数据达到上百万条,用游标的方法来删除简直是个噩梦,因为它会执行相当长的一段时间-- 开发人员的噩梦--删除重复记录想必每一位开发人员都有过类似的经历,在对数据库进行查询或统计的时候不时地 ...
Excel快速删除重复值注意不保留唯一值的操作！
今天我和大家分享的是:Excel快速删除重复值注意不保留唯一值的操作,详见下面的动图演示. 那小明呢是某某公司的活动推广部的一个核销人员,也就是说核销终端推行活动推广中所进行的发票费用的报销信息.那我 ...
Oracle数据库删除重复记录的方法
Oracle数据库删除重复记录的方法,做项目的时候,一位同事导数据的时候,不小心把一个表中的数据全都搞重了,也就是说,这个表里所有的记录都有一条重复的.这个表的数据是千万级的,而且是生产系统.也就是说 ...
SQL操作语句之查询及删除重复记录的方法
delete from 表 where id not in(select min(id) from 表 group by name ) //删除重复名字的记录删除之前请用语句 select * fr ...
SQL Server 删除重复记录，只保留一条记录
原文地址:http://blog.csdn.net/eriato/article/details/17417303 有张表格之前没有设计关键字段的唯一约束,导致有时候执行插入操作时不小心执行了多次就出 ...
mysql删除重复文章标题_MySQL中查询、删除重复记录的方法大全
前言本文主要给大家介绍了关于MySQL中查询.删除重复记录的方法,分享出来供大家参考学习,下面来看看详细的介绍: 查找所有重复标题的记录: 一.查找重复记录 1.查找全部重复记录 2.过滤重复记录( ...
mysql删除重复记录
如果要删除的记录不多的话,可以把这个表创建成内存表形式: CREATE TABLE `tmp_wenku` ( `wk_id` int(8), `wk_title` varchar(200) ) EN ...
ORACLE查询删除重复记录
比如现在有一人员表 (表名:peosons) 若想将姓名.身份证号.住址这三个字段完全相同的记录查询出来复制代码代码如下: select p1.* from persons p1,perso ...
mysql删除重复的判断_MySQL中查询、删除重复记录一共有多少种方法？
前言本文主要给大家介绍了关于MySQL中查询.删除重复记录的方法,分享出来供大家参考学习,下面来看看详细的介绍: 查找所有重复标题的记录: select title,count(*) as coun ...

Excel.VBA 快速删除重复记录

Excel.VBA 快速删除重复记录

Excel.VBA 快速删除重复记录相关推荐

最新文章

热门文章