请大神看下，为啥使用结果是#value！

thdyyf

1. Function nosame(x As Variant, y As Variant, z As Integer)
   
2. 
   
3. Application.Volatile
   
4. 
   
5. Dim dic As Object
   
6. Dim ar, b, j&
   
7. 
   
8. Set dic = CreateObject("scripting.dictioary")
   
9. ar = x
   
10. For Each b In ar     '先把x的每一个单元格作为元素添加到字典
    
11.    dic.Add (b), ""
    
12. Next
    
13. ar = y         '然后Y的每个单元格，看下字典里有没有同样的元素
    
14. For Each b In ar
    
15.         If dic.exists(b) Then
    
16.             j = j + 1
    
17.             If j = z Then    '无相同，输出结果
    
18.                 nosame = b
    
19.                 Exit For
    
20.             End If
    
21.         End If
    
22.    
    
23. Next
    
24. Set dic = Nothing
    
25. 
    
26. End Function

复制代码

taller

楼主要实现什么功能？

thdyyf

建立新函数NOSAME(A,B,ROW(a1)) ,AB两列数据比较，输出B列不同于A列的数据。

thdyyf

taller 发表于 2024-5-22 09:49
楼主要实现什么功能？

建立新函数NOSAME(A,B,ROW(a1)) ,AB两列数据比较，输出B列不同于A列的数据。

ykcbf1100

建议楼主上传附件解决。
自定义函数，在使用时变量定义要一致才行。

thdyyf

已添加附件

taller

thdyyf 发表于 2024-5-22 09:55
建立新函数NOSAME(A,B,ROW(a1)) ,AB两列数据比较，输出B列不同于A列的数据。

第三个参数用途是什么？需求没用解释清楚，大家没法回答你的问题

thdyyf

taller 发表于 2024-5-22 10:33
第三个参数用途是什么？需要没用解释清楚，大家没法回答你的问题

我的想法是这样的：比方输入nosame($a$3：$a$999,$b$3:$b$999,row(a1))下拉,如果第三个参数是9，那么J=J+1循环到j=9（即b列第9个单元格）

thdyyf

额 全是低级错误 1、dictionary少了个字母/2、一会dic一会d, 3、d.add(b),""改成d(b)="" 好像可以了