EXCEL表格中直接使用vb6创建的dll中的自定义函数

使用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)”  即可直接调用。