请教老师，用VBA，找出两列的相同个数，并把相同数量值显示出来，谢谢！

cui26896

都用的split,用len和mid搭配也可行的

1. Sub test2()
   
2. Dim ar As Variant
   
3. Dim i&, j&, k&
   
4.   With Worksheets("Sheet1")
   
5.     .Activate
   
6.     ar = .Range("a1:c23")
   
7.     For i = 1 To UBound(ar)
   
8.       ar(i, 3) = 0
   
9.       For j = 1 To Len(ar(1, 1)) Step 3
   
10.         For k = 1 To Len(ar(1, 2)) Step 3
    
11.           If Mid(ar(i, 1), j, 2) = Mid(ar(1, 2), k, 2) Then ar(i, 3) = ar(i, 3) + 1
    
12.         Next
    
13.       Next
    
14.     Next
    
15.     .Range("a1:c23") = ar
    
16.   End With
    
17. End Sub
    

复制代码