自定义函数 两列找不同速度太慢

thdyyf

1. Function nosame(x As Range, y As Range, z As Integer)
   
2. 
   
3. For Each b In x
   
4.     If Application.WorksheetFunction.CountIf(y, b) = 0 Then
   
5.         j = j + 1
   
6.         If j = z Then
   
7.            nosame = b
   
8.         End If
   
9.     End If
   
10. Next b
    
11. 
    
12. Application.Volatile
    
13. End Function

复制代码

请教大佬怎样提速

十里海棠

建议有字典去做

剑指E

thdyyf

剑指E 发表于 2024-5-21 11:41

老师，好像不行，我的想法是建立一个新函数nosame(x,y,row(a1)),将y列数据与x列比较，如果有不同数据就列出，然后通过下拉函数实现所有不同数据的列出。您给的方案通过字典确实快很多，不过结果#value!

老师是大神，奈何我是个小白，抄作业都抄错，dictionary少了个n