Excel 找出重复行并只保留一个的实现方法

今天一个朋友叫帮她改几个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

上一篇：Excel 中通过下拉列表输入重复数据 下一篇：EXCEL 照相机功能的使用方法

相关文章

• Excel教程 Excel表格下拉列表怎么设置

  Excel表格下拉列表怎么设置呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel表格下拉列表怎么设置的回答，希望能够对大家有所帮助。......

  2023-01-18

  详细阅读
• Excel教程 Excel如何打印选定区域

  Excel如何打印选定区域呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Excel如何打印选定区域的回答，希望能够对大家有所帮助。......

  2023-01-18

  EXCEL 照相机功能的使用方法

  Excel中，有一个“照相机”的功能，但是几乎80%使用Excel的人，并不知道这个很有效的“摄影”工具，更别提使用了。

  详细阅读
• Excel教程 Excel怎么设置英文首字母大写

  Excel怎么设置英文首字母大写？Excel中输入英文首字母大写怎么操作？当我们需要将Excel表格中的英文单词，把首字母全部大写，该怎么操作呢，怎么将Excel中英文首字母大写，Excel怎么设置英文首字母大写，下面就和小编一起来看看吧！......

  2023-01-18

  详细阅读
• Excel教程 Excel怎么给所有的数字加10

  Excel怎么给所有的数字加10？Excel数字怎么全部加10？怎么全部加1？当我们在使用Excel时，所有的数字都少10，或者1，该怎么给所有的数字都 10、 1呢，Excel怎么给所有的数字加10，EXcel数字怎么全部加10，下面就和小编一起来看看吧！......

  2023-01-18

  详细阅读
• Excel教程 Excel怎么设置日期自动更新

  Excel怎么设置日期自动更新？Excel怎么设置日期自动更新？当我们Excel表格中的日期需要实时更新到最新日期，该怎么设置呢，怎么将Excel表格日期自动更新到最新日期，Excel怎么设置日期自动更新，下面就和小编一起来看看吧！......

  2023-01-18

  详细阅读

Excel技巧 打印大幅面拼接图文

本文介绍Excel中打印大幅面拼接图文的一些方法。