excel利用VBA删除工作表中的重复行
发布时间：2023-10-30 14:34:36
如果要在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
投稿猜你喜欢
今天这篇文章带大家看一下在Word中如何使用制表位，一起来看看吧！首先我们在word中编辑好需要的文字，如下图所示：- 想必大家都知道微软要在 Windows 10 中逐步使用「设置」应用彻底掉传统控制面板，虽然大家（例如我）可能会不太习惯，还是建议大家为了顺
- 在编辑文档的时候，为了保护文档内容的安全，电脑WPS软件中有很多功能都可以限制他人查看或者编辑文档内容，比如设置WPS软件中的宏安全性，或者
- 使用windows10,并且想清理磁盘的朋友可以看一下下面的教程，希望可以帮到您。方法/步骤右下角操作中心，所有设置，打开设置面板！左键单击
- win10系统有定位设置功能，你想开启或者关闭都可以的，但是有的小伙伴不知道Win10纯净版定位设置在哪里？和小编一起来看看吧！Win10纯
- Power Designer是一款功能非常强大的数据库设计软件， Power Designer可以设计模型、快速创建表格、给企业建模、设计方
- project2016任务添加子任务的方法，project2016是一款强大的项目管理软件，比如通过任务进行添加子任务可以更好的安排，对于刚
- 第一步、打开“搜狗输入法”，单击“输入法修复器”。 第二步、单击“一键修复”。 如果还是
- MacBook、MacBook Pro 和 MacBook AIr 的按键下方有键盘灯。在黑暗中很方便，但您也可以更改亮度或将其完全关闭。多
- 使用XP系统运行应用程序时，有时会遇到失败问题导致无法运行，其中错误代码(0xc0000135)是一个比较常见的问题，遇到0xc000013
- 大家知道，Excel中的函数有许多，要一一记住确实很难。实际上Excel中的函数不需要可以去记，只要记住首字母或前两个字母就可以。例一、输入
- 在使用excel的时候，有时候我们需要对一些特殊的的数据进行特殊处理，例如让其变红，在EXCEL中让一个单元格变成红色需要用到条件格式，那怎
- 新购买的苹果笔记本电脑安装上mac系统发现Finder左边边栏文件中仅文档和下载文件夹，没有其他文件夹，对于用惯windows系统的人来说，
- 羊了个羊是最近爆火的一款小程序游戏，很多玩家在玩第一关的时候觉得非常简单，这有什么难的！没想到到第二关就难度加倍，有些小伙伴花了几个小时都没
- 为什么软件默认安装位置是在C盘？首先，需要明确一点，如果操作系统被安装在D盘，就会发现少有软件会自动识别系统路径并出现D盘的默认安装位置，然
- 最近有Win10用户反映，系统更新到10041版本后，网络连接图标上就显示了一个红叉，导致网络无法连接，用户并不知道要如何解决，为此非常苦恼
- 如何使用支付宝公交周卡?支付宝是一个移动支付平台，里面有很多便民的功能，例如支付宝公交周卡。但是很多用户不知道支付宝公交周卡怎么使用，下面就
- 当我们win7旗舰版操作系统中准备使用连接vpn的时候出现了虚拟网卡不存在或者被禁用的提示，导致无法正常使用vpn的现象，是怎么回事呢？系统
- LINUX相信很多用户都很少接触到，而技术人员或是IT人士就会经常接触。而在Linux系统中想要让Vim编辑器发挥更大的作用，就要对给给它安
- 系统更新可以使我们系统拥有微软公司最新发布的一些功能，还能修复之前那系统存在的漏洞，但是有的用户发现系统更新完之后电脑就无法开机了，这个问题
