求职
您所在位置:求职指南网 >> 求职就业电脑培训学习办公软件学习Excel教程VBA删除工作表中的重复行

VBA删除工作表中的重复行

07-22 15:36:07| http://www.caiwu51.com |Excel教程|人气:526我要推荐此文给好友

VBA删除工作表中的重复行,本站还有更多Excel教程,Excel学习,excel视频教程方面的资料。
正文:

方法一:用工作表函数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

如果觉得《VBA删除工作表中的重复行》不错,可以推荐给好友哦。


文章关键字:电脑培训学习 - 办公软件学习 - Excel教程,Excel学习,excel视频教程   

与VBA删除工作表中的重复行 相关的文章