第1个回答 2012-06-19
Sub 提取不同数据()
Set du1 = CreateObject("Scripting.Dictionary")
Set du2 = CreateObject("Scripting.Dictionary")
For Each ran In Range("b:b").Value 'b:b为对比区域,自己更改
du1(ran) = 1
Next
For Each ran In Range("a:a").Value 'a:a为对比区域,自己更改
If Not du1.exists(ran) Then du2(ran) = 1 '如果把Not取消掉,则显示两列相同数据
Next
Range("d1").Resize(du2.Count, 1) = Application.Transpose(du2.keys) 'd1为显示不同数据的区域,自己更改
End Sub本回答被网友采纳