excel如何多列去重急！

darni · 发表于 2012-7-19 20:26

本帖最后由 darni 于 2012-7-19 20:59 编辑

我现在有n列数据，需要将里面的数据去重，不单单式本列的重复的需要去掉，和其他列重复的也要去掉。如果把重复值标出来再去，太慢了，有好多列了。把它们整理到一个列去也太慢了，有啥快点的办法么？谢谢了各位了。

a  1  8
b  3  4
d  4  a
e  7  g

打个比方，我选中这3列，这3列中有a, 4 是重复的。然后我有好多列这样的数据。

little-key · 发表于 2012-7-19 20:51

如果用2010
可以使用【删除重复项】

darni · 发表于 2012-7-19 20:53

little-key 发表于 2012-7-19 20:51
如果用2010
可以使用【删除重复项】

没用啊，我用的就是2010，如果其他列和本列的数据有重复的值，它没反应的。

little-key · 发表于 2012-7-19 20:54

有的时候重复只是视觉上重复
不是真正的重复

darni · 发表于 2012-7-19 20:56

darni 发表于 2012-7-19 20:53
没用啊，我用的就是2010，如果其他列和本列的数据有重复的值，它没反应的。

a  1  8
b  3  4
d  4  a
e  7  g

打个比方，我选中这3列，这3列中有a, 4 是重复的。然后我有好多列这样的数据。

SuperBirds · 发表于 2012-7-19 20:59

用字典，举例如下：（根据自己的需要更改红色部分代码）
dim dic as object , cel as range
set dic=createobject("scripting.dictionary")
for each cel in [d5].currentregion
dic(cel.value)=1
next
[n2].resize(dic.count,1)=application.transpose(dic.keys)

darni · 发表于 2012-7-19 21:05

SuperBirds 发表于 2012-7-19 20:59
用字典，举例如下：（根据自己的需要更改红色部分代码）
dim dic as object , cel as range
set dic=crea ...

红色的是要去掉的重复的值么？问题是有n多的重复值，而且我不知道哪些是重复的。

SuperBirds · 发表于 2012-7-19 21:24

那是vbａ代码，楼主没给附件，只能你自己根据实际需要更改数据区域和结果显示的区域

用字典提取不重复值.rar (8.67 KB, 下载次数: 176)

datafield · 发表于 2016-6-12 21:09

SuperBirds 发表于 2012-7-19 21:24
那是vbａ代码，楼主没给附件，只能你自己根据实际需要更改数据区域和结果显示的区域

您好！您这附件很好！想再麻烦问一下，输出的数据，能自动排序吗？比如自动升序排序？

qhdlhb · 发表于 2022-1-18 16:55

本帖最后由 qhdlhb 于 2022-1-18 16:58 编辑

=IFERROR(INDIRECT(TEXT(SMALL(IF((A$2:C$5>"")*(COUNTIF(E$1:E1,A$2:C$5)=0)*(A$2:C$5>0),ROW($2:$5)/1%+COLUMN(A:C)),1),"!R0C00"),),"")
数组公式，三键好像没有显示数字我有空再看看这个公式数字不行

		自动登录	找回密码
密码			免费注册

[已解决] excel如何多列去重 急！

[已解决] excel如何多列去重急！