如何用VBA判断：如果同一客户号，五级分类统计结果不一致，就把数据复制到错误提示...

wdw102

实际数据有一万条，这里数据仅供测试，如何用VBA判断：如果同一客户号，五级分类统计结果不一致，就把数据复制到错误提示表。同一客户号，五级统计结果相同，则正确，不需要处理。

结果如下：

gwjkkkkk

没理解，什么算是五级分类统计结果不一致，什么算五级分类统计结果一致，怎么判断？

ttiemike

仅供参考。。。。

wdw102

这就是我想要的结果，竟然在百度上可能得到，百度也会根据需求帮编程了

准提部林

sub TTest()
dim arr,xd,i&,j%,k%,t$,n&
Set xd = CreateObject("Scripting.Dictionary")
arr=range([g1], [a65536].end(3))
for i=2 to ubound(arr)
    t=arr(i,3)
    If not xd.Exists(t) Then xd(t)=arr(i,4): goto i01
    if xd(t)=-999 then goto i01
    if xd(t) <> arr(i,4) then xd(t)=-999:k=1
i01:next i
if k=0 then exit sub
for i=1 to ubound(arr)
    if xd(arr(i,3))=-999 then
      n=n+1
      for j=1 to ubound(arr,2)
          arr(n+1,j)=arr(i,j)
      next j
    end if
next i
[k1].resize(n+1,ubound(arr,2))=arr
end sub