您的位置: 首页 > EXCEL技巧 > ExcelVBA >

VBA删除工作表中的重复行

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

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

VBA删除工作表中的重复行 问题:VBA删除工作表中的重复行
回答:如果要在Excel中用VBA的方法以根据某列内容删除重复的行,即当某列有重复数据时仅保留一行,可以用下面的VBA代码。假如以A列为参考,工作表的第一行为标题行,数据从第二行开始。 方法一:用工作表函数CountIf判断该行是否...
用VBA删除单元格、行和列 问题:用VBA删除单元格、行和列
回答:如果要用VBA代码在Excel工作表中删除指定的单元格、行和列,可以使用下面的代码:Sub DeleteCellRowColumn()    '删除活动单元格,下方单元格上移    ActiveCell.Delete Shift:=xlUp    '删除选定的区域,右方单元格...
VBA批量删除自定义单元格样式 问题:VBA批量删除自定义单元格样式
回答:...况,工作簿中的自定义单元格样式非常多,需要将其全部删除,如果手动逐一操作显得有些繁琐,如下图所示的自定义单元格样式。 这时用下面的VBA代码可一次删除所有的自定义单元格样式,方法如下。1.按Alt+F11打开VBA编辑器...
用VBA删除空行和空列 问题:用VBA删除空行和空列
回答:在Excel中删除空行和空列的方法有很多,下面的方法是用VBA代码来删除工作表指定区域中的空行和空列: Option Explicit Sub Delete_Empty_Rows()   Dim rnArea As Range   Dim lnLastRow As Long, i As Long, j As Long    Application...
用VBA进行多表合并计算一例 问题:用VBA进行多表合并计算一例
回答:... 方法是:将要存放合并数据的工作表命名为“汇总”,删除工作簿中没有合并数据的工作表,各工作表中要合并的数据右侧和下边没有其他数据。然后在VBA编辑器中运行下面的代码: Sub Summary() Worksheets( 汇总 ).[e5].CurrentRegion.Cl...
EXCEL总是有宏提示 问题:EXCEL总是有宏提示
回答:...没有病毒! 参考回答:1.把宏删掉 工具-宏-打开宏,选择删除宏 2.工具-宏-VBA编译器-把其中的代码注释掉或删掉(有可能有多个工作表中都有VBA代码)
相关推荐: