两组数据对比，计算相同个数 找个最优越的办法：）

Question

两组数据如下：01 02 05 07 08 11 12 15 16 18 20.....02 05 12 15 20 25 27 29 11 35 30.....计算相同号码个数

Answer 1

先排序数组Function Find(a, b) As Integer
  Dim i, j, m, n
  i = 0:  j = 0:  Find = 0
  m = UBound(a):  n = UBound(b)
  Do Until i > m Or j > n
    If a(i) < b(j) Then
      i = i + 1
    ElseIf a(i) = b(j) Then
      Find = Find + 1: i = i + 1: j = j + 1
    ElseIf a(i) > b(j) Then
      j = j + 1
    End If
  Loop
End Function