[算表] 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