Question

EXCEL表格如何自动删除每行的重复值，只保留一个？

把重复两次以上的删除掉，只留一个。

Answer 1

两种方法：

一、删除重复项功能

1. 选择数据列，依次点击菜单“数据”-“删除重复项”，在打开的“删除重复项”对话框中，勾选有重复项的列，点击【确定】按钮即可；

   

2. 

二、条件格式-突出显示单元格规则，再筛选

1. 选择数据列，依次点击菜单“开始”-“条件格式”-“突出显示单元格规则”-“其他规则”

   

2. 在打开的“新建格式规则 ”对话框中，选择“仅对唯一值或重复值设置格式”-点击【格式】按钮

   

3. 在打开的“设置单元格格式”对话框中，选择“填充”选项卡，选择任意颜色，点击【确定】；

   

4. 选择数据列，依次点击菜单“数据”-“筛选”，点击筛选下拉框，选择“按颜色筛选”，选择设置的颜色；

   

5. 选择筛选结果，单击鼠标右键-“删除行”即可；

Answer 2

1、首先在excel表格中输入一组数据，其中有重复值，需要将重复值删除。

2、选中单元格后点击工具栏中的“数据”选项。

3、然后在“数据”中选择“删除重复值”选项。

4、即可打开“删除重复值”的对话框，勾选“列A”选项后点击确定按钮。

5、即可弹出“发现重复值”的提示框，点击确定按钮。

6、即可看到选中的单元格已经将重复的数据删除了，只保留了相同的一个数值。

Answer 3

亲，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Sub qcf()
Dim d
Set d = CreateObject("Scripting.Dictionary")
Dim i, j, r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To r
    For j = 1 To 10
        d(Cells(i, j).Value) = ""
    Next
    Range("L" & i).Resize(1, d.Count) = d.keys
    d.RemoveAll
Next
Set d = Nothing
End Sub

Answer 4

代码实现。。。。

追问

等于没说

追答

代码不是说的要写的！

追问

不会写才问的嘛，，，，

追答

楼下的可用，高手真快啊

Answer 5

使用下面的工具，录入网址: www.excelfb.com,注意有的浏览器不支持，最好使用谷歌、火狐支持html5的浏览器

点击“自动删除重复的行”

选择要删除的Excel文件

点击“删除相同--生成新文件”

下载生成的文件即可，不过这个会去掉公式，如果Excel里有公式就不要用了