[算表] Excel自订函数 寻找重复资料

楼主: home0303 (Blue night)   2018-11-30 18:15:10
软件:EXCEL
版本:2010
https://imgur.com/a/xRyLjck
我自订了一个自订函数 如下
Function FindDuplicate(范围)
For Each cell In 范围
If Application.CountIf(范围, cell) > 1 Then
FindDuplicate = FindDuplicate & "," & cell.Value
End If
Next
FindDuplicate = Mid(FindDuplicate, 2, Len(FindDuplicate) - 1) '不要第一个,符号
End Function
目的是寻找指定范围内如果有相同的值则输出 那个重复的值
所以按图所述 2出现2次 5出现2次 所以输出 2,5,2,5
但如果我只想得到 2,5 这样的结果
应该怎么修改呢
谢谢
作者: soyoso (我是耀宗)   2018-11-30 18:25:00
https://i.imgur.com/PCokjHm.jpg 再加上个条件,看是否已存在于FindDuplicate内
楼主: home0303 (Blue night)   2018-11-30 18:40:00
了解了 感谢S大

Links booklink

Contact Us: admin [ a t ] ucptt.com