使用EXCEL2010+VB6.0
1、在vb6.0中新建一个ActiveX dll工程 名:=阿亮自定义DLL
2、新建一个类(名:=aliangDLL)
3、写入代码
Function 不重复数(rng As Object) As Integer
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each r In rng
d(r.Value) = ""
Next
不重复数 = d.Count
End Function
4、文件-生成dll
5、打开EXCEL-开发工具-加载项-自动化-浏览-选择生成的dll
6、在自动化服务器列表中选中 阿亮自定义DLL -确定
7、使用
在EXCEL的[A1]单元格输入公式 “=不重复数(B1:B3)” 即可直接调用。