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
猜你喜欢
- 在我们使用excel的时候,经常需要将excel转换成PDF这种办公文件,转换的方法有很多,下面让小编为你带来excel表格转换成pdf格式
- 将数据图形化,有几种思路来做。思路1:利用条件格式的数据条条件格式搞定。 具体操作如下: 在下图中E列,用等号引用D列的数值,让其产生联动,
- Excel可以说是我们日常办公学习经常会使用到的软件之一,而最近不少用户在使用Excel的时候,Excel打开显示灰色不显示内容,这是什么情
- word中怎么输入"§"小节字符并设置快捷键?1、打开word文档,并切换到【插入】选项卡之下2、在最右边的【符号】中,
- 在使用Excel电子表格时,有时我们需要输入大段文字或进行表格与文字混排,此时若掌握一些技巧,会大大提高工作效率。一、直接输入文字在输入词组
- 有时我们需要添加word文档的页面背景,比如说使用颜色、图像等作为页面背景。那么下面就由小编给大家分享下在word中设置页面背景水印的技巧,
- 打开“员工信息表.xlsx”工作簿,切换至“Sheet1”工作表,本例中的原始数据如图12-56所示。某办公人员需要从该工作表中提取公司员工
- Excel中经常需要把金额转换成大写的形式,具体该怎么用公式进行转换大写格式呢?其实我们可以利用表格函数将其装换,接下来是小编为大家带来的e
- Excel是三大办公软件之一,它主要的作用在于数据的分析、整理、查看、统计、对比等。在excel中也经常需要画柱形图来让数据变得更直观、更好
- Word2007如何隐藏和显示文字隐藏文字1、选中要隐藏的文字,然后单击鼠标右键,在弹出的快捷菜单中选择“字体”选项。 &nb
- Word文档标记索引项要编制索引,就要先确定索引关键词,本文中以“正文”、“样式”、“图表”、“页眉”、“页脚”、“索引”、“脚注”、“尾注
- 有用户在更新系统的时候会失败,会被系统提示“我们无法连接到更新服务。我们稍后会再试,或者你现在可以检查,如果仍然无法正常工作,请确保你已经连
- Excel2019如何给插入图片加边框?Excel2019如何给图片重新着色?Excel2019如何给图片添加效果如三维旋转?Excel20
- 在Word文档中我们经常会需要输入各种注释性的内容,通常情况下我们都会将注释性内容放置在括号内,如果我们没有开启Word文档中的匹配左右括号
- excel 去掉公式保留数值内容常用于某种原因不愿意让别人知道公式本身,下面小编就为大家介绍Excel使用方方格子一键去掉公式只保留数值方法
- word软件作为Office软件的重要组成部分,其文字处理功能在日常办公中发挥着重要的作用;那么大家知道怎么解决word文档打不开吗?下面小
- 当我们使用Excel时,按列排序无疑是最常用的方法,但不可否认的是,有时我们想要按行排序表格。虽然只有一个词不同,但这两种方法相距甚远。王琦
- Word怎么导出jpg格式图片不失真呢?很多朋友都被此问题难住了,下面小编给大家介绍Word图片导出jpg格式不失真的方法,非常不错,感兴趣
- 我们在使用电脑时,暂时不用的情况下电脑会进入睡眠状态,在Win10系统电脑进入睡眠后再次唤醒就会自动重新启动,那么关于这个问题我们要怎么解决
- 我们有时候在使用Win10系统电脑时,会遇到一些提示驱动程序签名的问题,很多小伙遇到这种情况都不清楚要怎么办了,这时我们可以通过关闭驱动数字