Excel 找出重复行并只保留一个的实现方法
方法如下：1、首先将表格按照需要查找的那一列排序。
2、录制一个新宏，这个宏不用任何操作，将用以下的代码来完成。如果愿意可以给个快捷键。
3、打开宏编辑器，将如下代码贴到宏的SUB里，然后执行即可，执行的时候记得要让比较的第一个单元格做为活动单元格：
复制代码
代码如下:Sub 你的宏名称()
x = ActiveCell.Row
Z = ActiveCell.Column
Do While Cells(x, Z).Value <> ""
y = x + 1
Do While Cells(y, Z).Value <> ""
If (Cells(x, Z).Value = Cells(y, Z).Value) Then
'Cells(x, z).Interior.ColorIndex = 3
'Cells(y, z).Interior.ColorIndex = 3
'上面这两行可以将重复的标为红色。
Rows(y).Delete
End If
y = y + 1
Loop
x = x + 1
Loop
End Sub
IT时代网(关注微信公众号ITtime2000，定时推送，互动有福利惊喜)所有原创文章版权所有，未经授权，转载必究。
创客100创投基金成立于2015年，直通硅谷，专注于TMT领域早期项目投资。LP均来自政府、互联网IT、传媒知名企业和个人。创客100创投基金对IT、通信、互联网、IP等有着自己独特眼光和丰富的资源。决策快、投资快是创客100基金最显著的特点。
TA的最新文章
热门文章
精彩评论
-
小何华为现在牛的不只是设备商了，，华为的手机现在也是全球销量不错，国内也算是老大了，之前用小米，，现在都改华为了。。产品确实不错。 -
小何三星手机在中国还有市场吗？看看现在满大街的vivo和oppo ，，华为，，小米线下店，，就是知道三星的市场基本没有了。。
-
小何滴滴打车现在也没有之前那么火了，，补贴也少了。。
-
小何今日头条要把腾讯的地方各频道给霸占了。。