两列数据中，更高效率找出不同数据，并把找出的不同数据填列在另一个列

davel

本来想自己解决的，搞了一个晚上也解决不了，只好求助大神们！

通过比较A列与C列的数据，找出C列在A列中没有的数据，并填列在E列，详情请见附件，先谢谢了！由于数据量庞大，故请求用最有效率的数组来实现，若用循环found太慢了！

守护最爱的坤坤

application.screenupdating = false
dim arow,crow,i,m  as long
dim arr
dim dic as object
arow= range("a65536").end(xlup).row
crow=range("c65536").end(xlup).row
set dic = new createobject("Scripting.dictionary")
with dic
for i=2 to crow
     .item(range("c"& i).value)=""
next i
for m =2 to arow
     .item(range("a"& m).value)=""
next m
arr = .keys
end with
range("e2").resize(arow,1).value = application.worksheetfunction.transpose(arr)
range("e2").resize(crow,1).delete shift:=xlshiftup
application.screenupdating=true

守护最爱的坤坤

把c列数据放到字典里，再把a列数据放到字典里，这样字典的key值从第crow加1个开始到最后一个就是未被使用的了

deadzlq

PQ参考解法

davel

deadzlq 发表于 2019-7-25 08:30
PQ参考解法

高手啊！非常感谢您的费心。我有个疑问，请你解惑。我设计了一个WMS系统，由于进出库频繁，所以点击一些按钮的频率很高（一天用下来好几百次吧），这就出现了一个问题，点击某些按钮一开始（前面几十票）都没问题，VBA程序正常运行，但是后面就会出现“未响应“（一直打圈圈）情况，除非退出，否则一直就不动了，要不直接就重启excel,前面做的东西全部未保存，得重来。是什么原因呢？如果你有兴趣，我可发我做的系统给你看，诊断一下到底发生了什么情况？