|
楼主 |
发表于 2016-11-22 23:17
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
这个简单啊
Sub ipjp()
Dim arr As Variant, brr As Variant, i As Byte, j As Byte
Set d = CreateObject("Scripting.Dictionary")
arr = Range("a1").CurrentRegion
brr = Range("c1").CurrentRegion
For i = 2 To UBound(arr)
For j = 2 To UBound(brr)
If arr(i, 1) = brr(j, 1) Then d(arr(i, 1)) = "" '这里取相等就可以
Next
Next
Range("e2").Resize(d.Count, 1) = Application.Transpose(d.keys)
Set d = Nothing
End Sub |
评分
-
1
查看全部评分
-
|