第1个回答 2012-08-22
假如两列都是在A列,选择表1的C列,设置为文本格式。从C2起为存放结果。代码如下:
Sub 数组查找()
Dim i%, j%, arr1(), arr2, e, d$
arr1 = Range([a1], Cells(Rows.Count, 1).End(xlUp))
With Worksheets(2)
arr2 = .Range(.[a1], .Cells(Rows.Count, 1).End(xlUp))
End With
For i = 1 To UBound(arr1)
e = Application.vlookup(arr1(i, 1), arr2, 1, 0)
If TypeName(e) = "Error" Then
d = d & "," & arr1(i, 1)
j = j + 1
End If
Next i
Range("c1:c" & j + 1) = Application.Transpose(Split(d, ","))
End Sub