利用excel VBA删除工作表中的重复行
发布时间：2022-07-12 15:07:59
如果要在Excel中用VBA的方法以根据某列内容删除重复的行，即当某列有重复数据时仅保留一行，可以用下面的VBA代码。假如以A列为参考，工作表的第一行为标题行，数据从第二行开始。
方法一：用工作表函数CountIf判断该行是否重复
Sub 删除重复行1()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 3 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, 1)) > 1 Then
Cells(i, 1).EntireRow.delete
End If
Next
Application.ScreenUpdating = True
End Sub
方法二：先高级筛选，再删除隐藏行
Sub 删除重复行2()
Dim rCell As Range, rRng As Range, dRng As Range
On Error Resume Next
Application.ScreenUpdating = False
Set rRng = Range("A1:A" & Range("A65536").End(xlUp).Row)
rRng.AdvancedFilter Action:=xlFilterInPlace, unique:=True
For Each rCell In rRng
If rCell.EntireRow.Hidden = True Then
If dRng Is Nothing Then
Set dRng = rCell.EntireRow
Else
Set dRng = Application.Union(dRng, rCell.EntireRow)
End If
End If
Next
If Not dRng Is Nothing Then dRng.delete
ActiveSheet.ShowAllData
Application.ScreenUpdating = True
End Sub
0
投稿猜你喜欢
学信网是全国高等教育学生信息网，只有在学信网上才能够查到有关高等教育毕业生的学历信息，由此可见学信网的安全保密性很高。但是毕业生本人凭借学生- Excel中的Find函数具有对数据的某个字符串进行查找定位的的功能。下面小编就和大家来分享一下Find函数的使用方法。第一步：在单元格中输
- 升级window10之后，不少用户表示Win10系统下删除某些程序后，通知区域的图标还保留着。就算把该程序的图标设置为关闭，但是选择在任务栏
- 微信，现在已经变成了很多朋友的聊天首选。当然，有朋友在使用微信的时候，也是会碰到各种问题。比如说：微信语音没声音怎么回事？这可是十分突出的一
- 如何使用ai设计彩色的圆环饼状图?ai是一款广泛应用于出版、多媒体和在线图像的工业标准矢量插画的软件。想要使用ai设计彩色的圆环饼环状图，但
- Taskade for Mac是一款运行在MacOS上的简单好用的任务清单管理工具。可以用于个人或团队协作的任务管理应用。它可以自动同步意味
- PPT自动翻页首先得保证PPT中效果的切换不是鼠标点击的。1、打开PPT2007，动画——自定义动画，右边的效果属性都是选择“之后”。这样P
- excel是一款非常实用的办公软件，在使用excel的时候如果想要创建excel副本大家知道如何创建吗？一起来看看下面的教程吧excel文件
- 很多使用Mac的用户会发现Mac的硬盘格式与常见的Windows系统所使用的硬盘格式是不同的，那么我们如何查看苹果Mac的硬盘格式呢？针对此
- 对于win10，如果遇到提示，表明本地连接不能访问未启用dhcp，请不要着急，小编的经验觉得可以通过网络和共享中心来设置，或者运行窗口的se
- 怎么参与淘宝早起打卡活动?早起，对于现代人来说简直是一个噩梦。那么，你有勇气参加早起打卡吗?早起打卡是淘宝最近推出的一个活动，参与活动就可以
- snagit是什么软件？snagit是基于Windows平台上的一个屏幕文本和视频捕获、编辑与转换软件，能够捕捉、编辑、共享您计算机屏幕上的
- 有些Win11用户，找不到自己的字体文件夹在哪里，本文就为大家带来了win11字体文件夹位置介绍，需要的朋友一起看看吧在win11中，我们可
- 在Excel中，如果要计算非空单元格的数量，可以使用DCOUNTA函数计算非空单元格的数量。Excel2007可使用DCOUNTA函数在数据
- 1.启动wps，并在左上角的菜单栏中选择“插入”。2.各种图形将出现在插入的形状下。你可以根据自己的需要选择。如果你想画一条直线，你可以在插
- word怎么添加边框？想给自己的word文档制作很漂亮的边框，该怎么办呢？下面我们来看看word文档制作花样边框的详细教程，过程很简单，需要
- 随着Win10在平板设备的普及，秒表应用逐渐成为不少人的日常工具。而对于在Win10系统上经常使用秒表应用的用户来说，将秒表固定到开始菜单无
- 微软已经表示，Xbox One版Win10预览版将于数周内推送，届时参与测试的玩家可收到该更新。另外，微软表示，运行Win10的Xbox O
- 为了更快速地清理系统垃圾，很多WindoWs10正式版用户都会在电脑中安装QQ管家软件。不过，部分用户反馈安装好QQ管家后，电脑开机时突然弹
- 相信有了解的朋友都清楚，包括Photoshop在内的许多图像处理软件都可以轻松的制作出纹理化效果。那么，在Adobe公司2018年10月份推
