QQ网名大全

下面这个字典还有一点问题,请高手改写一下

Function 不重复个数(rg As Range)
Dim d, r As Range
Set d = CreateObject("scripting.dictionary")
For Each r In rg
d(r.Text) = ""
Next
不重复个数 = d.Count
End Function
佚名
2024-05-18 08:18:09
最佳回答
类似问题(10)