Dim arr(), brr(), crr(), i&, j%, s&
Set dic = CreateObject("scripting.dictionary")
brr = Range("d1:d4")
[h1:h1000].ClearContents '清除结果内容
arr = Range("a2").CurrentRegion '指定数组1范围
For i = 2 To UBound(arr) '循环原数组行号
For j = 1 To UBound(brr)
If arr(i, 1) = brr(j, 1) Then '判断条件是否符合
s = s + 1
crr(s, 1) = arr(i, 1)
End If
Next
Next
Set dic = CreateObject("scripting.dictionary")
brr = Range("d1:d4")
[h1:h1000].ClearContents '清除结果内容
arr = Range("a2").CurrentRegion '指定数组1范围
For i = 2 To UBound(arr) '循环原数组行号
For j = 1 To UBound(brr)
If arr(i, 1) = brr(j, 1) Then '判断条件是否符合
s = s + 1
crr(s, 1) = arr(i, 1)
End If
Next
Next