Function 小爪排除某字符后判断是否有重复(a As Range, b As String)
Dim d, I
Set d = CreateObject("Scripting.Dictionary")
For Each I In a
If I <> "" And I <> b Then
If d.Exists(CStr(I)) Then
小爪排除某字符后判断是否有重复 = "最先出现重复的是：" & I
Exit Function
Else
d(CStr(I)) = ""
End If
End If
Next
小爪排除某字符后判断是否有重复 = "无重复"
End Function
=IF(SUM((FREQUENCY(MATCH($A$1:$A$7,$A$1:$A$7,),MATCH($A$1:$A$7,$A$1:$A$7,))>1)*1)>1,"有重复","无重复")
数组
