问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

利用excelVBA删除工作表中的重复行

发布网友 发布时间:2024-09-26 02:55

我来回答

1个回答

热心网友 时间:2024-10-30 22:29

如果要在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
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
万能粉碎机清洁规程 中药粉碎机如何清洗比较好 磨粉机能用水洗吗 正确的家用粉碎机清洗方法 粉碎机清洗不干净粉碎机怎么清洗才干净 励志语句长句精选123句 caxa如何保存图幅模板 美迪特MDT-IN158重要参数 打玻尿酸已一个月眼睛疼,会不会打玻尿酸一个月,突然眼睛疼会不会... 玻尿酸失明概率真的小吗-玻尿酸失明有光感还能恢复吗 陈华军人物简介 永续盘存存制什么意思 潮汕姜薯粉煮水的做法都有哪些? ...找20条超长(大概四十字)的比喻句、20条超长(大概四十字)拟人句... ...区三月三放假通知 广西壮族自治区2023年三月三放假时间 2023三月三放假多少天 三月三相关说法 2023广西南宁三月三放假时间表 2023年广西南宁三月三放假三天 韩剧的喜剧有哪些 三星 随笔输入 感染a.system.masterkey 手机遇到熊出没这种病毒怎么办? 为什么我手机里的病毒杀不掉呢? 跪求 谭浩强的C语言 完整版视频 vivo手机怎么启用VoLTE高清通话 谁知道哪里有下载C语言的视频教程呀 春天为什么会困? 为什么春天的时候会经常觉得又困又累呢? 太阳不落山电子书txt全集下载 乱宋txt全集下载 春天走一点路就很累 俗套小说的txt全集下载地址 王者荣耀生日福利怎么领 2022获得生日奖励方法 “芦苇晚风鸣”的出处是哪里 PS关闭全部图层和打开全部图层的快捷键是什么ps关闭全部图层和打开全部... 夏楚城在一个教堂里做演讲,讲的热血澎湃,他有一个爱国的心 陈迹的近义词 专升本考试通过率高吗? 网赚是什么什么是网赚趋势 统招专升本通过率高吗 计算机程序怎么求极值啊 计算机程序怎么求极值啊? 开三方怎么求本人在追求手算解三次方程 谁能帮我解这个方程...(我求函数极值) (x-4)(x^2-8x+25)^(-1/2... 公元前120年公元前120年-逝世出生 喜帕恰斯大事记 喜帕恰斯出生 哈尔摩狄奥斯和阿里斯托革顿概述 读会计大专要考什么证 大专会计可以考什么证 大专毕业可以考哪些会计证书? 高跟鞋好看不好穿真的吗 是不是好看的高跟鞋都不好穿啊?