Question

请问如何用VBA 把一列中的值与另一列比较后，复制不同的值到第三列中去。

如B列有“张三”，“李四”，“王五”，“赵六”。A列有很多很多的数据但是没有“张三”，“王五”。现在通过比较，要把A列中没有但B列中有的“张三”，“王五”，复制到D列来。如何用VBA来做？请各位大侠帮忙，谢谢！！!

Answer 1

arr = Application.Transpose([A:A])
j = 1
For i = 1 To [B1].End(xlDown).Row
If UBound(VBA.Filter(arr, Range("B" & i))) < 0 Then
Range("D" & j) = Range("B" & i)
j = j + 1
End If
Next