乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > EXCEL表格如何自动删除每行的重复值,只保留一个?-excel自动删除重复,excel删除所有重复数据

EXCEL表格如何自动删除每行的重复值,只保留一个?-excel自动删除重复,excel删除所有重复数据

作者:乔山办公网日期:

返回目录:excel表格制作


操作步骤如下:

1.删除A列重复的,保留B列值最大的

2.先对B列进行逆向排序

3.选择AB列,并删除重复项

4.勾选A列

5.完成



亲,打开你的Excel文件,按“Alt+F11”打开VBA编辑zd窗口,然后在左侧对应的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

把表1拷到表2的下方,在右边插一列,写公式=countif(a:a,a1),向下复制粘贴,然后选中这一列的数据,复制,粘贴数值,再把表1的内容删除掉。再筛选这一列的值为1的数据,把筛选出的数据复制,粘贴到新表就行了。
原理,通过公式知道表二与表一中有重复的数据,值大于1的就是有重复的。
复制,粘贴数值zd是防止删除掉表1后,所有的数据都会变成1
筛选出来的1的就是没重复的,保留。

在B2中输入或zhidao复制粘贴下列公式

=INDEX(A:A,SMALL(IF(MATCH($A$2:$A$13,$A$2:$A$13,)=ROW($2:$13)-1,ROW($2:$13),4^8),ROW(A1)))&""

按三键CTRL+SHIFT+ENTER结束公式输入

下拉填充

此公式的结果会将A列的数值,转换为文本

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网