用VBA数组计算一行含有另一行多少个

laoau138

用VBA数组计算一行含有另一行多少个

老司机带带我

1. Sub 计算()
   
2.     Dim dc, i&, j&, k&, x&
   
3.     Set dc = CreateObject("Scripting.Dictionary")
   
4.     With Sheet1
   
5.         For i = 11 To 15
   
6.             For j = 1 To 6
   
7.                 dc.Add .Cells(i, j).Value, ""
   
8.             Next
   
9.             For k = 8 To 13
   
10.                 If dc.Exists(.Cells(i, k).Value) Then
    
11.                     x = x + 1
    
12.                 End If
    
13.             Next
    
14.             .Cells(i, 17) = x
    
15.             x = 0
    
16.             dc.RemoveAll
    
17.         Next
    
18.     End With
    
19. End Sub

复制代码

laoau138

老司机带带我 发表于 2017-2-5 20:28

用数组不要用字典

老司机带带我

1. Sub 计算()
   
2.     Dim arr, brr, i&, j&, k&, x&
   
3.     With Sheet1
   
4.         arr = .Range("a11:F15")
   
5.         brr = .Range("h11:m15")
   
6.         For i = 1 To 5
   
7.             For j = 1 To 6
   
8.                 For k = 1 To 6
   
9.                     If arr(i, j) = brr(i, k) Then x = x + 1
   
10.                 Next
    
11.             Next
    
12.             .Cells(i + 10, 17) = x
    
13.             x = 0
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码

laoau138

老司机带带我 发表于 2017-2-6 08:38

VBA用基本写法 再写一次这个

http://www.excelpx.com/thread-427515-1-1.html

laoau138

老司机带带我 发表于 2017-2-6 08:38

VBA用基本写法 再写一次这个

http://www.excelpx.com/thread-427515-1-1.html