自动生成差异清单

jiangjian1380

工作簿中有表1和表2两个表


其中表1是存量数据，表2是累计数据，里面包含新增和存量的，表中的颜色可以忽略（只是为了方便标识存量数据是哪些）
通过对比表1和表2数据，能自动生成表1不存在表2的数据清单《已核销数据》

limonet

也不知道判断依据是哪个列字段。

yanglinzi

1. Sub 对比()
   
2. Dim arr, brr, d, i, j, r, n, d1
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set d1 = CreateObject("scripting.dictionary")
   
5. arr = Sheet1.UsedRange '表一
   
6. brr = Sheet2.UsedRange '表二
   
7. For i = 2 To UBound(brr)
   
8.     sa = brr(i, 1)
   
9.     If Not d.exists(sa) Then
   
10.         d(sa) = i '第一次出现的行号
    
11.     End If
    
12. Next
    
13. ReDim crr(1 To 10000, 1 To 100)
    
14. For j = 2 To UBound(arr)
    
15.     sb = arr(j, 1)
    
16.     ii = d(sb)
    
17.     If ii > 0 Then
    
18.         d1(sb) = j
    
19.     Else
    
20.         n = n + 1
    
21.         For i = 1 To UBound(arr, 2)
    
22.             crr(n, i) = arr(j, i)
    
23.         Next
    
24.     End If
    
25. Next
    
26. Sheet4.[a:a,b:b,d:d,e:e].NumberFormatLocal = "@"
    
27. Sheet4.[f:f,g:g,h:h,i:i].NumberFormatLocal = "yyyy-m-d"
    
28. Sheet4.[a6].Resize(n, 20) = crr
    
29. End Sub
    

复制代码

yanglinzi

不知是不是符合你的要求

quqiyuan

一招秒杀

没用过SQL，不会知道 SQL 处理数据起来可以有多简单，
Select * From 表2 Except  Select * From 表1
多么简单的1句就完美解决了，
和前面循环接着循环套循环的冗长代码相比如何？
这效率相差多少倍？