[已解决]自定函数求个数问题

meet10010

自定函数求个数问题

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-16 14:44

1. Function zd1(rng1, rng2)
   
2. Dim d, i&, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. h = rng1.Rows.Count
   
5. l = rng1.Columns.Count
   
6. For i = h To 1 Step -1
   
7.     For j = 1 To l
   
8.         d(rng1(i, j).Value) = ""
   
9.         If d.Count = 5 Then GoTo line1
   
10.     Next
    
11. Next
    
12. line1:
    
13. For Each c In rng2
    
14.     If d.exists(c.Value) Then s = s + 1
    
15. Next
    
16. zd1 = s
    
17. End Function
    
18. Function zd2(rng1, rng2)
    
19. Dim d, i&, j%
    
20. Set d = CreateObject("scripting.dictionary")
    
21. h = rng1.Rows.Count
    
22. l = rng1.Columns.Count
    
23. For i = h To 1 Step -1
    
24.     For j = l To 1 Step -1
    
25.         d(rng1(i, j).Value) = ""
    
26.         If d.Count = 5 Then GoTo line1
    
27.     Next
    
28. Next
    
29. line1:
    
30. For Each c In rng2
    
31.     If d.exists(c.Value) Then s = s + 1
    
32. Next
    
33. zd2 = s
    
34. End Function

复制代码

跳转到最佳答案楼层

meet10010

如没有描述清楚，可补充。

dsmch

1. Function zd1(rng1, rng2)
   
2. Dim d, i&, j%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. h = rng1.Rows.Count
   
5. l = rng1.Columns.Count
   
6. For i = h To 1 Step -1
   
7.     For j = 1 To l
   
8.         d(rng1(i, j).Value) = ""
   
9.         If d.Count = 5 Then GoTo line1
   
10.     Next
    
11. Next
    
12. line1:
    
13. For Each c In rng2
    
14.     If d.exists(c.Value) Then s = s + 1
    
15. Next
    
16. zd1 = s
    
17. End Function
    
18. Function zd2(rng1, rng2)
    
19. Dim d, i&, j%
    
20. Set d = CreateObject("scripting.dictionary")
    
21. h = rng1.Rows.Count
    
22. l = rng1.Columns.Count
    
23. For i = h To 1 Step -1
    
24.     For j = l To 1 Step -1
    
25.         d(rng1(i, j).Value) = ""
    
26.         If d.Count = 5 Then GoTo line1
    
27.     Next
    
28. Next
    
29. line1:
    
30. For Each c In rng2
    
31.     If d.exists(c.Value) Then s = s + 1
    
32. Next
    
33. zd2 = s
    
34. End Function

复制代码

dsmch

………………