同一子表内不同列进行比对去重

ofina

先谢谢各位大神。

问题：表内有三列不相邻的内容，但其中有部分重复内容，想问下有没有什么公式可以将对三列进行查重去重，而后留下唯一值？

痛痛痛痛

=UNIQUE(VSTACK(A4:A16,C4:C16,E4:E16))

ofina

痛痛痛痛 发表于 2024-3-20 13:35
=UNIQUE(VSTACK(A4:A16,C4:C16,E4:E16))

这个函数过于高级了，office2019没有这个函数，难受。

ofina

先提前谢谢各位大神。

问题：想请教下各位大神，不相邻的列怎么去重？

xlllw203

1. =UNIQUE(TOCOL(A4:E16,1))

复制代码

高版本，话说你这个3列数据一毛一样啊

低版本如下

1. =INDIRECT(TEXT(MIN(IF((COUNTIF(J$3:J3,A$4:E$16)=0)*{1,0,1,0,1},ROW($4:$16)/1%+COLUMN(A:E))),"r0c00"),)

复制代码

ofina

xlllw203 发表于 2024-3-20 13:53
高版本，话说你这个3列数据一毛一样啊

比较懒就没有写新数据，但其中有几个是不一样的，哈哈哈。但是我木有高版本，我的excel不支持UNIQUE...

xlllw203

ofina 发表于 2024-3-20 13:58
比较懒就没有写新数据，哈哈哈。但是我木有高版本，我的excel不支持UNIQUE...

楼上加了低版本，参考

ofina

xlllw203 发表于 2024-3-20 13:59
楼上加了低版本，参考

谢谢，超级无敌大感谢

swl4561255

1. Sub 去重()
   
2. Dim myr As Range
   
3. Set myr = Union(Range("C3").CurrentRegion, Range("E3").CurrentRegion)
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For Each a In myr
   
6.    If a.Value <> "单号" Then
   
7.      d(a.Value) = ""
   
8.    End If
   
9. Next
   
10. k = d.keys
    
11. [H4].Resize(d.Count, 1) = Application.Transpose(k)
    
12. Set d = Nothing
    
13. End Sub
    

复制代码

xlllw203

ofina 发表于 2024-3-20 14:00
谢谢，超级无敌大感谢

感谢请送花