请大神进入，比较两个

fkshcn

父阶料号由多个子阶料号组成。
第一张表是父阶料号与子阶料号的关系。
第二张表是要求返回各个父阶比较其所有的子阶料号后，他们差异（不同的）的子阶料号的个数。
比如A有50个料号，B有20个料号，其中相同有15个，不同的有5个，还有30个是都不包括的。那么他们相同的个数是15个，不同的个数是35个。
返回的值是35个。
有个大神做了公式，但是由于料号太多，运算公式立刻卡死。
请高手能不能帮忙做个不会卡死的，或者是宏和什么程序都可以，谢谢

fkshcn

等待啊等待，等待奇迹的出现

fkshcn

等待啊等待，等待奇迹的出现

simon5412

1. Function BJ(x As Range, y As Range)
   
2. Dim arr1(), arr2()
   
3. Set d = CreateObject("scripting.dictionary")
   
4. k1 = 0
   
5. k2 = 0
   
6. n = 0
   
7. For i = 2 To 88014
   
8. If Sheet1.Cells(i, 1) = x.Value Then
   
9. ReDim Preserve arr1(k1)
   
10. arr1(k1) = Sheet1.Cells(i, 2)
    
11. k1 = k1 + 1
    
12. End If
    
13. If Sheet1.Cells(i, 1) = y.Value Then
    
14. ReDim Preserve arr2(k2)
    
15. arr2(k2) = Sheet1.Cells(i, 2)
    
16. k2 = k2 + 1
    
17. End If
    
18. Next
    
19. For i = 0 To UBound(arr1)
    
20. d(arr1(i)) = ""
    
21. Next
    
22. For i = 0 To UBound(arr2)
    
23. If d.exists(arr2(i)) = False Then n = n + 1
    
24. Next
    
25. Set d = Nothing
    
26. BJ = n
    
27. End Function
    

复制代码

simon5412

没有测试过，靠你自己测试了