Function funIntersection(array1, array2)

    Rem>>求两个集合的交集

    Rem>>要求原数组无重复信息

    Dim len1

    Dim len2

    Dim cycle

    Dim cycleArray

    Dim findArray

    Dim resultArray()

    Dim eachOne

    Dim i

    Dim findStatus

    Dim resultLen

    len1 = UBound(array1)

    len2 = UBound(array2)

    resultLen = 

    '以最小数组循环，减少循环次数

    If len1 >= len2 Then

        cycle = len2

        cycleArray = array2

        findArray = array1

    Else

        cycle = len1

        cycleArray = array1

        findArray = array2

    End If

    For i =  To cycle Step

        eachOne = cycleArray(i)

        findStatus = Application.Match(eachOne, findArray, )

        If Not IsError(findStatus) Then

            resultLen = resultLen +

            ReDim Preserve resultArray( To resultLen)

            resultArray(resultLen) = eachOne

        End If

    Next

    funIntersection = resultArray

End Function

ReDim Preserve resultArray( To resultLen)改变数组resultArray的大小

Sub test()

    Rem>>

    Rem>>

    Dim array1()

    Dim array2()

    Dim array3()

    Dim array4()

    Dim array5()

    Dim array12()

    Dim array13()

    Dim array45()

    Dim inersectionCount

    array1 = Array("张三", "李四", , , , , )

    array2 = Array("张三", "王五", , , , )

    array3 = Array(, )

    array4 = Array(, , , , , )

    array5 = Array(, , , , )

    array12 = funIntersection(array1, array2)

    array13 = funIntersection(array1, array3)

    array45 = funIntersection(array4, array5)

    Err.Clear

    On Error Resume Next

    inersectionCount = UBound(array13)

    If Err.Number <>  Then

        MsgBox "空数组"

    End If

    On Error GoTo

End Sub