科技大本营|EXCEL用VBA代码查询两列数据差异( 二 )


.Value=https://pcff.toutiao.jxnews.com.cn/p/20200816/brr
EndWith
MsgBox"核对完成 。 "&vbLf&brr(0,1)&vbLf&brr(0,2)&vbLf&brr(0,3)
EndIf
Setd=Nothing
Setrng=Nothing
Setrng1=Nothing
Setrng2=Nothing
Erasearr1:Erasearr2:Erasebrr
EndSub
代码运行动画:
1 , 代码使用了字典对象 , 首先将第一列的数据装入字典 , 并将item统一设置为“不存在” , 然后判断第二列的数据是否在字典中存在 , 如果存在 , 则将条目对应的item修改为“存在” , 最后遍历字典 , 查询item仍然为“不存在”的数据 。
2 , 代码允许用户选取整列数据 , 使用了Intersect方法避免运算量虚大效率低下的问题 , 但不允许用户选取多列或单个单元格 。
3 , 代码无视空格 , 不区分文本值和数值 。
图文作者:看见星光


推荐阅读