求助，两份表格进行对比！

fangliang

请帮忙，谢谢了
表格中，表1数据比表2数据多，要对比两份表格中标注红色的列，找出表2中没有的，

蓝桥玄霜

1. Sub lqxs()
   
2. Dim Arr, i&, Brr
   
3. Dim d, k, t
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Sheet1.Activate
   
6. [b:b].Interior.ColorIndex = xlNone
   
7. Arr = Sheet2.UsedRange
   
8. Brr = Sheet1.[a1].CurrentRegion
   
9. For i = 1 To UBound(Arr)
   
10.     If Arr(i, 7) <> "" Then d(Arr(i, 7)) = ""
    
11. Next
    
12. For i = 1 To UBound(Brr)
    
13.     If Not d.exists(Brr(i, 2)) Then
    
14.         Cells(i, 2).Interior.ColorIndex = 6
    
15.     End If
    
16. Next
    
17. End Sub
    

复制代码

蓝桥玄霜

请见附件。