[已解决]VBA数组计算一行左边含有右边多少个

laoau138

VBA数组计算一行左边含有右边多少个

最佳答案

月排行榜 / 总排行榜

france723

2017-5-30 03:21

这种找重复代码写过很多次，而且都是用数组写的。不光要看的懂，还要学会自己去写

1. Sub aaa()
   
2. Dim ar, br, i, n, m, s
   
3. ar = Range("A11").CurrentRegion
   
4. br = Range("H11").CurrentRegion
   
5. For i = 1 To UBound(ar)
   
6. s = 0
   
7.     For n = 1 To UBound(ar, 2)
   
8.         For m = 1 To UBound(br, 2)
   
9.             If ar(i, n) = br(i, m) Then
   
10.                 s = s + 1
    
11.             End If
    
12.         Next m
    
13.     Next n
    
14. Range("Q" & i + 10) = s
    
15. Next i
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

france723

这种找重复代码写过很多次，而且都是用数组写的。不光要看的懂，还要学会自己去写

1. Sub aaa()
   
2. Dim ar, br, i, n, m, s
   
3. ar = Range("A11").CurrentRegion
   
4. br = Range("H11").CurrentRegion
   
5. For i = 1 To UBound(ar)
   
6. s = 0
   
7.     For n = 1 To UBound(ar, 2)
   
8.         For m = 1 To UBound(br, 2)
   
9.             If ar(i, n) = br(i, m) Then
   
10.                 s = s + 1
    
11.             End If
    
12.         Next m
    
13.     Next n
    
14. Range("Q" & i + 10) = s
    
15. Next i
    
16. End Sub
    

复制代码

laoau138

france723 发表于 2017-5-30 03:21
这种找重复代码写过很多次，而且都是用数组写的。不光要看的懂，还要学会自己去写

这个代码不用index 如何改写吧

Sub test()
Dim a, b, c, d, e(1 To 5, 1 To 1), i%, j%, k%, m%
a = [a11].CurrentRegion
b = [h11].CurrentRegion
For i = 1 To 5
    m = 0
    c = Application.Transpose(Application.Index(b, i, 0))
    d = Application.Transpose(Application.Index(a, i, 0))
    For j = 1 To 6
        For k = 1 To 6
            If c(j, 1) = d(k, 1) Then m = m + 1
        Next
    Next
    e(i, 1) = m
Next
[q11].Resize(5, 1) = e
End Sub

laoau138

france723 发表于 2017-5-30 03:21
这种找重复代码写过很多次，而且都是用数组写的。不光要看的懂，还要学会自己去写

你知道如何做吧

laoau138

france723 发表于 2017-5-30 03:21
这种找重复代码写过很多次，而且都是用数组写的。不光要看的懂，还要学会自己去写

VBA数组不定位跟随错在哪里


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