您的位置: 首页 > Office技巧 > excel技巧

VBA删除工作表中的重复行

时间:2013-12-13 整理:docExcel.net

[excel不能新建工作表怎么办]有时在打开的文件中发现无法新建新的工作表,怎么办?一起来看看如何解决吧...+阅读

如果要在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

本文地址:https://www.docexcel.net/show/3_3799.html

以下为关联文档:

Excel2021怎么给文字添加删除线有网友问Excel2021怎么给文字添加删除线?这篇文章主要介绍了Excel2021单元格文字添加删除线方法,需要的朋友可以参考下...

excel如何查看打开隐藏的工作表excel文件有时有些工作会被隐藏,隐藏的工作表如何查看和重新打开呢?一起来了解一下吧...

excel如何快速删除奇数列有时整理数据时,发现需要批量删除奇数列,有什么快速的操作方法吗?一起来了解一下吧...

excel怎么隐藏工作表名称栏默认的情况下在左下侧有显示工作表名称栏,有时需要将这个工作表标签栏隐藏,怎么操作呢?一起来了解一下吧...

Excel无法桌面右键新建工作表怎么办有时候鼠标右键会发现找不到新建Excel工作表,遇到这种情况的话不要急,接下来教你Excel无法桌面右键新建工作表解决方法,一起来了解一下吧...

Excel怎么批量删除电子表格中不同的文字想要快速替换掉表格里不规则的字段,但是既然想批量完成操作,就一定要找到某个规律,然后将不规则字段用星号进行替换,具体应该如何操作替换呢...

excel如何在多张工作表相同位置录入相同的数据实务工作中我们有时候需要在excel中,在多个工作表的同一个位置输入相同的内容。这种情况如何操作效率更高呢?一起来了解一下吧...

EXCEL2021怎么快速插入删除行列身边很多网友问EXCEL2021怎么快速插入/删除行列?这篇文章主要介绍了Excel2021快速插入/删除行列教程,需要的朋友可以参考下...

Word如何删除页眉水平横线在编辑word文档时,我们经常会插入页眉跟页脚,我们会发现页眉下面会出现一条横线,当有输入页眉文字时,该横线不会显得突兀,一旦去掉文字,这条横线就显得很难看了,...

相关推荐: