vba 两个数组取交集

以下是VBA代码示例，用于计算两个数组的交集：

Sub Intersection()

Dim arr1() As Variant
Dim arr2() As Variant
Dim arr3() As Variant

arr1 = Array(1, 2, 3, 4, 5)
arr2 = Array(3, 4, 5, 6, 7)

For i = LBound(arr1) To UBound(arr1)
For j = LBound(arr2) To UBound(arr2)
If arr1(i) = arr2(j) Then
ReDim Preserve arr3(UBound(arr3) + 1)
arr3(UBound(arr3)) = arr1(i)
Exit For
End If
Next j
Next i

For k = LBound(arr3) To UBound(arr3)
Debug.Print arr3(k)
Next k

End Sub

在此示例中，我们使用三个变量arr1，arr2和arr3。arr1和arr2是要比较的两个数组，arr3将包含它们的交集。我们使用两个嵌套的For循环来比较arr1和arr2中的每个元素。如果它们相等，我们将该元素添加到arr3中。最后，我们使用另一个循环打印arr3中的所有元素。

请注意，此示例假定arr3是空的数组。如果arr3包含任何元素，您需要在添加新元素之前使用ReDim保留数组的大小。