Excel 找出重复行并只保留一个的实现方法
发布时间：2009-08-30 22:42:48 作者：佚名 
我要评论
我要评论今天一个朋友叫帮她改几个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
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
相关文章
excel中使用VBA提取指定文件夹中指定扩展名的所有文件名的技巧
项目结束后，要把相关文件的存放位置整理成清单交给同事或领导，提取文件夹名称和路径后，能让接收方精准找到对应文件，减少沟通成本，确保工作衔接顺畅，下面我们就来看看2026-02-26不使用VBA! excel表格提取指定文件夹的所有文件名的技巧
Excel提供了一个名为FILES的宏表函数，可以直接在Excel中批量提取指定文件夹下的文件名,这种方法适合有一定Excel基础的用户，操作相对简单2026-02-26- excel表格中数据很多，也存在很多空白单元格，想要统计空白单元格，该怎么操作呢？下面我们就通过公式快速实现2026-02-26
你还在逐个隐藏和取消隐藏工作表吗? Excel快速批量取消隐藏工作表技巧
在制作Microsoft Excel工作簿时，一般情况下很少会删除源数据所在的Excel工作表，通常的操作办法就是将暂时不用的Excel工作表隐藏起来，下面我们就来看看 Excel批量隐藏和2026-02-09excel表格中销售数据拧麻花怎么办? 教你一招轻松搞定按颜色求和计数的
职场工作中经常会遇到带有设置单元格颜色的表格数据需要求和，或者按字体颜色和表格颜色求和，那么如何来进行计算呢，详细请看下文介绍2026-02-09- excel表格中的数据想要制作成创意图表，该怎么制作玫瑰图呢？下面我们就来看看excel玫瑰图的制作方法2026-02-09
单元格还可以按需自定义设置! Excel单元格格式自定义技巧
excel表格中可以按需自定义设置，该怎么设置呢？下面我们就来根据实际的例子来看看详细设置方法2026-01-19- 规划求解是一个相对较复杂的分析工具，但是在对数据的预测分析上，可谓功能强大，下面我们就来举例看看2026-01-15
- “规划求解”是一组命令的组成部分,借助“规划求解”，可求得工作表上某个单元格中公式的最优（最大或最小）值，并受工作表上其他公式单元格的值的约束或限制，详细请看下2026-01-15
轻松掌握基础功能! 给excel初学者的16个VBA基本代码
欢迎来到VBA的世界！这里有一些简单的代码示例，帮助你快速理解VBA的基础概念，通过这些代码，你可以逐步掌握VBA的精髓，为更复杂的任务打下基础2026-01-13
最新评论