时间：2018-04-04 22:48作者：admin来源：未知人气：723我要评论(0)
如果要在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
相关阅读 你想学的FILTER函数用法，很全了当Excel体积臃肿，运行卡顿时，我们应该做些什么？带合并单元格的表格，求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复Excel图例位于底部怎么设置Excel图表怎么嵌入单元格Excel没保存不小心关闭怎么恢复Excel图表怎么设置X轴Y轴
热门文章
excel怎么制作表格？制作excel表格的步骤技巧
excel 常见的六个排序方法，你必须要学会
excel自动换行显示不全怎么办
excel 数据透视表 选定区域不能分组 的原因和解决方法
最新文章
你想学的FILTER函数用法，很全了
当Excel体积臃肿，运行卡顿时，我们应该做些什么？
带合并单元格的表格，求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复
人气排行 excel怎么制作表格？制作excel表格的步骤技巧excel 常见的六个排序方法，你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法Excel高级筛选怎么用 excel高级筛选多个条件（并且、或用法）excel if函数的多个条件使用方法Excel中的快速填充键ctrl+e没反应，不能用是为什么？excel 判断两列数据是否一致的四种方法
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>